<% 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")%>
<%if rslog("Valid") <> 0 then%> <%end if%> My Handicrafts   My Profile   My Inquiries   My Products   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%>