<% cat = Request.QueryString("cat") ind = Request.QueryString("ind") lead = Request.QueryString("lead") supp = Request.QueryString("supp") if cat = "" then ql = "Select lead_cat_id from trade_lead where lead_id="&lead set rsl = server.Createobject("adodb.recordset") rsl.open ql,db,3,2 cat = rsl("lead_cat_id") end if if ind = "" then qind = "Select cat_id,index1 from category where cat_id ="&cat set rsind = server.CreateObject("adodb.Recordset") rsind.open qind,db,3,2 ind = rsind("index1") end if lent = len(ind) '----------------------------This is for dispalying heading ---------------------------------------------- if lent > 3 then indmain = left(ind,3) if lent = 6 then qrmain = "main_cat_disp '"&indmain&"'" set rsmain = server.CreateObject("adodb.recordset") rsmain.open qrmain,db,3,2 end if if lent = 9 then qrmain = "main_cat_disp '"&indmain&"'" set rsmain = server.CreateObject("adodb.recordset") rsmain.open qrmain,db,3,2 indsub = left(ind,6) qrsub = "main_cat_disp '"&indsub&"'" set rssub = server.CreateObject("adodb.recordset") rssub.open qrsub,db,3,2 end if end if qrc = "Select Category,Description from category where cat_id = "&cat set rsc = server.CreateObject("adodb.recordset") rsc.open qrc,db,3,2 qtrade = "Select * from trade_lead where lead_id ="&lead set rst = server.CreateObject("adodb.recordset") rst.open qtrade,db,3,2 qsupp = "Select * from supplier where supplier_id in (Select Supplier_id from trade_lead where lead_id="&lead&")" set rssupp = server.CreateObject("adodb.recordset") rssupp.open qsupp,db,2,3 %> <% handicrafts_top "Trade Leads","" %> <% Sql = "select cat_id,pagename from Products_Master where cat_id in (select cat_id from category where index1 like '"&ind&"%')" set rsprod =server.CreateObject("Adodb.Recordset") rsprod.Open sql,db,3,2 %>

<% baseprdLink = "http://handicrafts.easy2source.com/products/" If rsprod.RecordCount > 0 Then %> Product Categories <% Do While Not rsprod.EOF dirSupp = baseprdLink & getFolderName(rsprod("cat_id")) if cstr(rsprod("cat_id")) <> cstr(rsprod("pagename")) then dirSupp = dirSupp & rsprod("pagename") &".htm" ProductName = GetFieldValue("Pagetitle", "Products_Master", "pagename", rsprod("pagename")) response.write ""&ProductName&" " rsprod.MoveNext Loop %> <% End If rsprod.Close %>

Home >> Trade Leads >> <% if lent = 6 then%> "> <%=rsmain("Category")%> >> <%end if %> "><%=rsc("Category")%> >> <%=rst("offer_title")%>:

Offer Title : <%=rst("Offer_title")%> Offer Type Posting date Expiry date <%=rst("Post_Type")%> <%=rst("Post_date")%> <%=rst("Expiry_date")%> <% if name <> " and suid <> " then tin = "reg-trade-inquiry.htm?cat="&cat&"&ind="&ind&"&lead="&rst("lead_id")&"" else tin = "trade-inquiry.htm?cat="&cat&"&ind="&ind&"&lead="&rst("lead_id")&"" end if %> <% if name <> "" and suid <> "" then tin = "TradeRegInq.asp?cat="&Cat&"&ind="&Ind&"&lead="&rst("lead_id")&"" else tin = "tradeInq.asp?cat="&Cat&"&ind="&Ind&"&lead="&rst("lead_id")&"" end if %> On-Line Trade Inquiry <% if rst("Description") <> "" then%> <%end if%> <% if rst("offer_qty") <> "" then%> <%end if %> <% if rst("Packaging") <> "" then%> <%end if %> <% if rst("Payment_Term") <> "" then%> <%end if %> <%if rst("Supply_Term") <> "" then%> <%end if%> <% if rst("Location") <> "" then%> <%end if%> Offer Detail Offer Description : <%=rst("Description")%> Preferred Quantity : <%=rst("Offer_Qty")%> Packaging : <%=rst("Packaging")%> Payment Terms : <%=rst("Payment_Term")%> Delivery Terms : <%=rst("Supply_Term")%> Location : <%=rst("Location")%>

<%if not rssupp.eof then%>

<%end if%> Contact Detail Company : <%=rssupp("Company_Name")%> Contact Person : <%=rssupp("Contact_Person")%> Address : <%=rssupp("Address")%> <%=rssupp("City")%> <%=rssupp("State")%> <%=rssupp("Country")%> Pin Code : <%=rssupp("Pin")%> Telephone : <%=rssupp("Tel1")%>,<%=rssupp("Tel2")%> Fax : <%=rssupp("Fax")%> WebSite : <%=rssupp("WebSite")%> E-Mail : <%=lcase(rssupp("Email"))%> <% if name <> "" and suid <> "" then tin = "TradeRegInq.asp?cat="&Cat&"&ind="&Ind&"&lead="&rst("lead_id")&"" else tin = "tradeInq.asp?cat="&Cat&"&ind="&Ind&"&lead="&rst("lead_id")&"" end if %> On-Line Trade Inquiry <% qmore = "Select * from trade_lead where supplier_id = '"&supp&"' and lead_id <>"&lead set rsmore = server.createobject("adodb.recordset") rsmore.open qmore,db,3,2 if not rsmore.eof then %> View other offers of this company <% do while not rsmore.eof if rsmore("Offer_title") <> "" then %> &supp=<%=supp%>&cat=<%=cat%>"><%=rsmore("Offer_title")%> <% end if rsmore.movenext loop %> <% end if %>

<%bottom_patch%> <% db.close set db=nothing %>