"
if request.querystring("supplier_id") = "" then
Response.Write "No records found."
response.end
end if
supplier_id=int(request.querystring("supplier_id"))
set rs1=server.createobject("adodb.recordset")
sql="select company_name, website from supplier where supplier_id="&supplier_id
rs1.open sql, db, 3
if rs1.EOF = true then
Response.Write " No records found. "
response.end
end if
dim count,start,currpage,pages
count=rs1.recordcount
response.write ""&ProperCase(rs1("company_name"))&" | | "
response.write "Company Profile"
response.write " Product Catalogue | "
response.write ""
response.write ""
response.write ""
response.Write " | | "
%>
<%
response.write ""
response.write "View inquiry basket : "
H = 0
set rsinquiry=server.createobject("adodb.recordset")
rsinquiry.open "select * from inquiry_details where session_id='"&session.sessionid&"'",db,3
if not rsinquiry.eof then H=rsinquiry.recordcount
rsinquiry.close
response.write " "&H&" Unsent Inquiry"
if count=0 then
response.write "Sorry, no suppliers for this one"
else
Productdisplay
end if
rs1.close
set rs1=nothing
db.close
set db=nothing%>
<%Right_patch1%>
<%
response.write " |