"
dim SQL1,h
set rs1=server.createobject("adodb.recordset")
SQL1="select * FROM Profile WHERE Supplier_id="&rs("Supplier_id")
'set rs1=server.createobject("adodb.recordset")
rs1.open SQL1, db, adopenstatic
response.write ""
if not rs1.eof then
txtProfile=rs1("Profile")
response.write " "&MakeFirstLetterCapital(txtProfile)&" |
"
end if
rs1.close
%>
<%
set rs1=server.createobject("adodb.recordset")
SQL1="select * FROM products WHERE Supplier_id="&rs("Supplier_id")
'set rs1=server.createobject("adodb.recordset")
rs1.open SQL1, db, adopenstatic
response.write " "
response.write "Our Products |
"
response.write " "
if not rs1.eof then
response.write " "
response.write MakeFirstLetterCapital(rs1("Description"))
response.write " Category wise : "
end if
rs1.close
set rs1=server.createobject("adodb.recordset")
SQL1="select distinct cat_id FROM product WHERE Supplier_id="&rs("Supplier_id")
'set rs1=server.createobject("adodb.recordset")
rs1.open SQL1, db, adopenstatic
h = 0
Tot = 0
do while not rs1.eof
if rs1("cat_id") <> "" then
SQL2="Select prod_code from product where cat_id="&rs1("cat_id")&" and supplier_id="&rs("supplier_id")
set rs2=server.createobject("adodb.recordset")
rs2.open SQL2, db, 3
SQL2="Select category from category where cat_id="&rs1("cat_id")
set rs3=server.createobject("adodb.recordset")
rs3.open SQL2, db, adopenstatic
if not rs3.eof then
response.write ""&ProperCase(rs3("category"))&" ( "&rs2.recordcount&" Products) "
end if
Tot=Tot+rs2.recordcount
rs2.close
rs3.close
end if
rs1.movenext
loop
rs1.close
response.write " Total Products = "&Tot&" |
"
response.write " "
response.write "Contact Details |
"
response.write " Company: | "&ProperCase(rs("company_name"))&" "
'response.write rs("address")&" "
if len(rs("address"))<>0 then response.write""&ProperCase(rs("address"))&" "
response.write " "&ProperCase(rs("city"))&"-"&rs("pin")&" "&ProperCase(rs("state"))&" "&ProperCase(rs("country"))&" | "
response.write "Tel. No.: | "&rs("Tel1")&" | "
if len(rs("fax"))>0 then response.write "Fax: | "&rs("Fax")&" | "
response.write "Send | On-Line Trade Inquiry | "
if len(rs("contact_person"))>0 then
response.write "Contact Person: | "
response.write " "&ProperCase(rs("contact_person"))&" "&ProperCase(rs("designation"))&" |
"
end if
response.write " | "
response.write ""
dim SQL3,rs3
SQL3="select * from product where Supplier_id="&Supplier_id&" order by prod_code"
set rs3=server.createobject("adodb.recordset")
rs3.open SQL3, db, adopenstatic
dim i
i = 1
do while not rs3.eof
if len(rs3("img_no"))>3 then
response.write ""
response.write ""
response.write "Click here for enlarge photo "
i = i + 1
if i >= 4 then exit do
end if
rs3.movenext
loop
rs.close
rs3.close
set rs = nothing
set rs2=nothing
set rs3=nothing
response.write " |