<% 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
>>
My Product Alert
>>
Manage Product Alert :
Welcome, <%=rslog("Company_Name")%>
My Handicrafts
My Profile
<%if rslog("Valid") <> 0 then%>
My Inquiries
My Products
<%end if%>
My Trade Lead
My Trade Alert
My Product Alert
Manage Product Alert
My Inquiry Basket
My Trash
Help
Logout
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.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.
Select Product Category
<% qcat = "Select cat_id,category,index1 from category where cat_id in (Select distinct cat_id from Supplier_ProductAlert_Cat where id="&suid&") " set rscat = server.CreateObject("adodb.recordset") set rsmain = server.CreateObject("adodb.recordset") rscat.open qcat,db,3 do while not rscat.eof ind = rscat("index1") lent = len(ind) if lent > 3 then indmain = left(ind,3) if lent = 6 then qrmain = "Select * from category where index1 = '"&indmain&"'" rsmain.open qrmain,db,3,2 categ = rsmain("Category")&"@"&rsmain("cat_id")&">>"& rscat("Category")&"@"&rscat("cat_id") subcat = rscat("Category")&"@"&rscat("cat_id") rsmain.close end if end if response.write "
"&categ&"
" rscat.movenext loop %>
<%bottom_patch%>