Inquiry Into Trade Section on handicrafts.easy2source

<% inquiry = request("inquiry") lead = request("lead") view = request("view") dellead_id = Request("dellead_Id") handicrafts_top "supplier","" if name <> "" and suid <> "" then qlog = "login_name '"&name&"','"&suid&"' " set rslog = server.CreateObject("adodb.Recordset") rslog.open qlog,db,3,2 else response.redirect ("sign-in.asp") end if %>

My Handicrafts >> Inquiry Basket >> Trade Section:

Welcome, <%=rslog("Company_Name")%>

<%if rslog("Valid") <> 0 then%> <%end if%>


	Supplier Section
	Product Section
	Trade Section

My Trash

Help

Logout

<% if dellead_id <> "" then qdelinq = "update Trade_lead_Inquiry set Inquiry_Deleted = 1 where Inquiry_id = "&dellead_Id set rsinq = server.createObject("adodb.recordset") rsinq.open qdelinq,db, 3,2 qdelresp = "delete Trade_Lead_Response where Inquiry_Id="&dellead_Id set rsresp = server.createObject("adodb.recordset") rsresp.open qdelresp,db,3,2 end if set rssupp = server.createObject("adodb.recordset") set rsinq = server.createObject("adodb.recordset") set rscount = server.createObject("adodb.recordset") set rspost = server.createObject("adodb.recordset") if lead = "" then qrsupp = "Select * from trade_lead_inquiry where inquirer_id="&suid&" order by Inquiry_date desc" end if if lead="buy" then qrsupp = "Select * from trade_lead_inquiry where inquirer_id="&suid&" and lead_id in (Select lead_id from trade_lead where post_type= 'buy' ) order by Inquiry_date desc" end if if lead="sell" then qrsupp = "Select * from trade_lead_inquiry where inquirer_id ="&suid&" and lead_id in (Select lead_id from trade_lead where post_type= 'sell' ) order by Inquiry_date desc" end if if lead="biz" then qrsupp = "Select * from trade_lead_inquiry where inquirer_id = "&suid&" and lead_id in (Select lead_id from trade_lead where post_type= 'biz' ) order by Inquiry_date desc" end if rssupp.CursorType=3 rssupp.CursorLocation=3 rssupp.open qrsupp,db,3,2 %> <% if not rssupp.eof then rssupp.pagesize=20 rssupp.cachesize=20 pages = rssupp.pagecount count = rssupp.recordcount if request("currpage")="" then currpage=1 else currpage=int(request("currpage")) end if rssupp.absolutepage=currpage start = rssupp.absoluteposition if currpage > pages then currpage = 1 if currpage=pages then finish=rssupp.recordcount else finish=start+rssupp.pagesize-1 end if %> <%else%> <%end if%>

My Handicraft is a section entirely dedicated to give our valued members complete freedom to customise and manage all subscriber related operations on easy2source.com. You can post buy/sell offers, update your company profile, add product keywords, keep track of all your inquiries, receive trade alerts and much more.

Inquiry Into Trade Section

Displaying Inquiries <%=start%> to <%=finish%> of <%=count%>

Click On Subjct to view Details

<% do while not rssupp.eof qinq = "Select Company_Name from supplier where supplier_id="&rssupp("supplier_id")&"" rsinq.open qinq,db,3,2 qpost = "Select Post_Type from trade_lead where lead_id="&rssupp("lead_id")&"" rspost.open qpost,db,3,2 qrcoun = "Select count(response_id) as coun from Inquiry_Response where Responder_id <> "&suid&" and inquiry_id = "&rssupp("inquiry_id")&" " rscount.open qrcoun,db,3,2 if rssupp("Read_Flag")= true then %> <%else%> <%end if%> "> "> <% rsinq.close rscount.close rssupp.movenext loop %>

To	Subject	Type	Date	Response
<%=propercase(rsinq("Company_Name"))%>	"> <%=propercase(rssupp("Subject"))%>	<%=propercase(rspost("Post_Type"))%> Lead	<%=rssupp("Inquiry_date")%>	<%if rscount("coun") <> "0" then%> "><%=rscount("coun")%> <%else Response.write "0" end if %>

Pages : <% subpage "trade-section-inquiry-basket.asp",start,currpage,finish,pages %>

Theres is no inquiry in this section

<%bottom_patch%>