<% 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 : Welcome, <%=rslog("Company_Name")%>
<%if rslog("Valid") <> 0 then%> <%end if%>
  My Inquiry Basket
 


My Handicraft is a section entirely dedicated to give our valued members complete freedom to customise and manage all subscriber related operations on handicrafts.easy2source. 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 Basket

  My Basket Posted Inquiry
Supplier : <% qbuy = "Select count(Temp_Id) as cbuy from inquiry_basket where Inquirer_Id="&suid&" and prod_id is null" set rsbuy = server.Createobject("adodb.Recordset") rsbuy.open qbuy,db,3,2 if rsbuy("cbuy") > "0" then %> <%=rsbuy("cbuy")%> <% else Response.write "0" end if %> <% qsupp = "Select count(Inquiry_Id) as cprod from inquiry_mst where Inquirer_id="&suid&" and inquiry_deleted = 0 and prod_id is null" set rssupp = server.Createobject("adodb.Recordset") rssupp.open qsupp,db,3,2 if rssupp("cprod") > "0" then %> <%=rssupp("cprod")%> <% else Response.write "0" end if%>
Product : <% qbuy = "Select count(Temp_Id) as cbuy from inquiry_basket where Inquirer_Id="&suid&" and prod_id is not null " set rsbuy = server.Createobject("adodb.Recordset") rsbuy.open qbuy,db,3,2 if rsbuy("cbuy") > "0" then %> <%=rsbuy("cbuy") %> <% else Response.write "0" end if %> <% qprod = "Select count(Inquiry_Id) as cprod from inquiry_mst where inquirer_id="&suid&" and inquiry_deleted = 0 and prod_id is not null " set rsprod = server.Createobject("adodb.Recordset") rsprod.open qprod,db,3,2 if rsprod("cprod") > "0" then %> <%=rsprod("cprod")%> <%else Response.write "0" end if %>
Buy Lead : <% qbuy = "Select count(Temp_Id) as cbuy from inquiry_basket where Inquirer_Id="&suid&" and lead_id in (Select lead_id from trade_Lead where Post_Type = 'buy' ) " set rsbuy = server.Createobject("adodb.Recordset") rsbuy.open qbuy,db,3,2 if rsbuy("cbuy") > "0" then %> <%=rsbuy("cbuy")%> <% else Response.write "0" end if %> <% qbuy = "Select count(Inquiry_Id) as cbuy from trade_lead_inquiry where Inquirer_Id = "&suid&" and lead_id in (Select lead_id from trade_Lead where Post_Type = 'buy') and Inquiry_Deleted = 0 " set rsbuy = server.Createobject("adodb.Recordset") rsbuy.open qbuy,db,3,2 if rsbuy("cbuy") > "0" then %> <%=rsbuy("cbuy")%> <% else Response.write "0" end if %>
Sell : <% qbuy = "Select count(Temp_Id) as cbuy from inquiry_basket where Inquirer_Id="&suid&" and lead_id in (Select lead_id from trade_Lead where Post_Type = 'Sell') " set rsbuy = server.Createobject("adodb.Recordset") rsbuy.open qbuy,db,3,2 if rsbuy("cbuy") > "0" then %> <%=rsbuy("cbuy") %> <%else Response.write "0" end if %> <% qsell = "Select count(Inquiry_Id) as csell from trade_lead_inquiry where Inquirer_Id = "&suid&" and lead_id in (Select lead_id from trade_Lead where Post_Type = 'sell' ) and Inquiry_Deleted = 0 " set rssell = server.Createobject("adodb.Recordset") rssell.open qsell,db,3,2 if rssell("csell") > "0" then %> <%=rssell("csell")%> <%else Response.write "0" end if %>
Biz : <% qbuy = "Select count(Temp_Id) as cbuy from inquiry_basket where Inquirer_Id="&suid&" and lead_id in (Select lead_id from trade_Lead where Post_Type = 'biz')" set rsbuy = server.Createobject("adodb.Recordset") rsbuy.open qbuy,db,3,2 if rsbuy("cbuy") > "0" then %> <%=rsbuy("cbuy") %> <%else Response.write "0" end if %> <% qbiz = "Select count(inquiry_Id) as cbiz from trade_lead_Inquiry where Inquirer_Id = "&suid&" and lead_id in (Select lead_id from trade_Lead where Post_Type = 'Biz') and Inquiry_Deleted = 0 " set rsbiz = server.Createobject("adodb.Recordset") rsbiz.open qbiz,db,3,2 if rsbiz("cbiz") > "0" then %> <%=rsbiz("cbiz")%> <% else Response.write "0" end if %>

<%bottom_patch%>