<% up "Supplier" dim db connection set rs1=server.createobject("adodb.recordset") set rs2=server.createobject("adodb.recordset") set rs3=server.createobject("adodb.recordset") set rs4=server.createobject("adodb.recordset") rs1.open "select * from supplier where supplier_id="&session("myid"),db,3 rs2.open "select * from login where supplier_id="&session("myid"),db,3 rs3.open "select * from profile where supplier_id="&session("myid"),db,3 rs4.open "select * from Products where supplier_id="&session("myid"),db,3 set rs13=server.createobject("adodb.recordset") s2="select * from directory_inquiry where Supplier_id="&session("myid")&" " rs13.open s2 , db, 3 set rs12=server.createobject("adodb.recordset") s2="select * from product_inquiry where Supplier_id="&session("myid")&" " rs12.open s2 , db, 3 response.write "
Home >> Update Your Listing :
" response.write "
" response.write "" response.write "" response.write "" 'response.write "" 'response.write "" response.write "" response.write "
" response.write "  View Supplier Inquiry ("&rs13.recordcount&")
" response.write "  View Product Inquiry ("&rs12.recordcount&")
" response.write "  Update Listing
" 'response.write "  Update Products
" 'response.write "  Add More Products
" response.write "  Change Password
" response.write "  Logout
" response.write "
" response.write "
" response.write ""&session("company_name")&"" response.write "

Update your company details:" response.write "
(Fields marked with * are mandatory)

" response.write "
" response.write "" response.write "" response.write "" response.write "" response.write "" if session("Company_name")="" then session("Company_Name")= rs1("company_name") response.write "" response.write "" response.write "" response.write "" response.write "" response.write "" response.write "" response.write "" response.write "" response.write "" response.write "" response.write "" response.write "" response.write "" response.write "" response.write "" response.write "" response.write "" response.write "" response.write "" response.write "" response.write "" response.write "" response.write "" rs1.close rs2.close set rs=server.createobject("adodb.recordset") rs.open "select cat_id, category from category where len(index1)=3 and cat_id<>8470", db, 3 dim i,mycat rs1.open "select distinct(cat_id) from cat where supplier_id="&session("myid"),db,3 for i=1 to 2 response.write "" next rs.close rs1.close response.write "" if rs4.eof then response.write "" else response.write "" end if response.write "" if rs3.eof then response.write "" else response.write "" end if rs.close rs1.close rs2.close rs3.close rs4.close set rs=nothing db.close set db=nothing %>
Login :        * Enter you email ID
Company :        " response.write "*
Contact Person :        
Designation :        
Address :        " response.write "*
City :        " response.write "*
Pin :        
State :        *
Country :        
Tel. No. :
Fax No. :        
E-mail :        *
Website :
" response.write "
Select Categories : (select atleast one category)*
Category "&i&" :

        (use a comma to separate different products): *
Products Profile :         
Products Profile :

        (200 Characters only) *
Enter Company Profile :         
Enter Company Profile :
          
<% response.write "
" %>

<% Bottom_Patch %>
<% Sub Bottom_Patch %>
<% End Sub %>