%
dim count, db
connection
dim supplier_id,cat_id,product_id
supplier_id=cdbl(request.querystring("supplier_id"))
Product_id=request.querystring("Prod_Id")
cat_id =""
if request.querystring("cat_id")="" then
cat_id=int(request.form("cat_id"))
else
cat_id=int(request.querystring("cat_id"))
end if
if (trim(cat_id)="" or cat_id=0) and Request.QueryString("supplier_id")<>"" then
set rsTemp=server.createobject("adodb.recordset")
sql1="select * from cat where supplier_id=" & Request.QueryString("supplier_id")
''response.Write("
supplier_id-->
"&sql1)
rsTemp.Open sql1,db,3,2
if rsTemp.RecordCount> 0 then
cat_id=rsTemp("cat_id")
end if
end if
if cat_id <> "" then
sql="select * from category where cat_id="&cat_id
set rs3=server.createobject("adodb.recordset")
''response.Write("
cat_id-->
"&sql)
rs3.open sql, db ,3,2
end if
sql="select * from supplier where supplier_id="&supplier_id
set rs1=server.createobject("adodb.recordset")
''response.Write("
supplier-->
"&sql)
rs1.open sql, db, adopenstatic
sql="select * from product where prod_Id="&Product_id
set rs=server.createobject("adodb.recordset")
''response.Write("
product_id-->
"&sql)
rs.open sql, db, 3
count=rs.recordcount
if count <> 0 then
else
%>
|
| Home | New Products | Products Directory | Supplier Directory | |
"
response.write " Home >> Product Search >>"
if rs3.recordcount > 0 then
response.write " "&ProperCase(rs3("Category"))&" >>"
session("cat_id") = cat_id
session("Category") = rs3("Category")
else
response.write " "&ProperCase(session("Category"))&" s >>"
cat_id = session("cat_id")
end if
response.write " Product catalogue :"
response.write " " response.write " | |||||
" response.write "" response.write ProperCase(rs1("company_name"))&"" 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" response.write " | |||||
"&ProperCase(rs("Product_name"))&" " %> <% response.write "
Added To Inquiry Basket " else response.write " " end if response.write " |