|
Home >> Product Search :
<%
set rsinquiry=server.createobject("adodb.recordset")
rsinquiry.open "select count(*) from inquiry_details where session_id='"&session.sessionid&"'",db,3
H = 0
if not rsinquiry.eof then H=rsinquiry(0)
rsinquiry.close
%>
View inquiry basket : <%=H%> Unsent Inquiry
<%dim s1, s2, sp1, sps1, sc1, sc2
set rc2=server.createobject("adodb.recordset")
sps1="select count(distinct(supplier_id)) from product"
rc2.open sps1, db, 3
supcount=rc2(0)
rc2.close
sp1="select count(*) from product"
set re2=server.createobject("adodb.recordset")
re2.open sp1, db, 3
prodcount=re2(0)
re2.close
%>
|
Search Result : <%=prodcount%> Products and <%=supcount%> Suppliers |
<% productdisplay
else
%>
|
Home >> Directory Search :
<%
dirdisplay
end if%>
|
<%Bottom_Patch%>
<%'response.write "| "
'response.write " Home >> "
'response.write "Product Search :
"
'set rsinquiry=server.createobject("adodb.recordset")
'rsinquiry.open "select * from inquiry_details where session_id='"&session.sessionid&"'",db,3
'''response.Write("select * from inquiry_details where session_id='"&session.sessionid&"' --test")
' H = 0
' if not rsinquiry.eof then H=rsinquiry.recordcount
' rsinquiry.close
' response.write "View inquiry basket : "&H&" Unsent Inquiry
"
' productdisplay
'else
' response.write "| "
' response.write " Home >> "
' response.write "Directory Search :
"
' dirdisplay
'end if
'response.write " |
"
'Bottom_Patch
%>
<%
Sub productdisplay
dim s1, s2, sp1, sps1, sc1, sc2
sp1="select count(*) from product"
'sp1="select prod_code from product"
'response.Write(s2&"--
")
set re2=server.createobject("adodb.recordset")
re2.open sp1, db, 3
'response.write ""
'response.write ""
'response.write "Search Result : "&re2(0) 'r2.recordcount
'response.write " Products "
're2.close
'sps1="select distinct(supplier_id) from product"
'set rc2=server.createobject("adodb.recordset")
'sps1="select count(distinct(supplier_id)) from product"
'response.Write(s2&"--
")
'rc2.open sps1, db, 3
'response.write "and "&rc2(0)&" Suppliers | "
'rc2.close
response.write "| "
response.write "Narrow your search by selecting a category"
response.write " | "
response.write "| "
response.write " | "
response.write ""
response.write "Categories | "
response.write ""
response.write "Products | "
response.write ""
response.write "Suppliers | "
set rcd3 = server.createobject("adodb.recordset")
set rcd4 = server.createobject("adodb.recordset")
sc1="select * from category where len(index1)=3 order by category"
set rcd1=server.createobject("adodb.recordset")
rcd1.open sc1, db, 3
rcd1.movelast
rcd1.movefirst
Dim counter,Prod
do while not rcd1.eof
sc2= "Product_Display "& rcd1("cat_id")
counter=0
rcd4.open sc2, db, 3
counter=rcd4(0)
if counter<>0 then
prod=0
prod=rcd4(1)
response.write "| "
response.write " | "
response.write ""
response.write ""
response.write ProperCase(rcd1("category"))&" | "
response.write ""
response.write prod&" | "
response.write ""
response.write counter
response.write " | "
response.write " | "
end if
rcd4.close
rcd1.movenext
loop
response.write " | "
response.write "
"
rcd1.close
set rcd1=nothing
set rcd2=nothing
set rcd3=nothing
set rcd4=nothing
db.close
set db=nothing
End Sub
%>
<%
Sub dirdisplay
dim ss1, ss2 , ss3, ss4
ss2="select count(supplier_id) from supplier"
set rds2=server.createobject("adodb.recordset")
rds2.open ss2, db, 3
response.write ""
response.write "| "
response.write "Search Result : "&rds2(0)&" Suppliers "
rds2.close
ss2="select count(prod_id) from product"
rds2.open ss2, db, 3
response.write "and "&rds2(0)&" Products | "
rds2.close
response.write "| Narrow your search by selecting a category | "
response.write "| "
response.write " | "
response.write ""
response.write "Categories | "
response.write ""
response.write "Supplier | "
response.write ""
response.write "Products | "
set rset3 = server.createobject("adodb.recordset")
set rset4 = server.createobject("adodb.recordset")
ss3="select * from category where len(index1)=3 and Index1 is not null order by category"
set rset1=server.createobject("adodb.recordset")
rset1.open ss3, db, 3
rset1.movelast
rset1.movefirst
dim counter
do while not rset1.eof
set rset2=server.createobject("adodb.recordset")
ss4 = "Directory_Display " & rset1("cat_id")
rset2.open ss4, db, 3
if not rset2.recordcount=0 then
counter=0
counter=rset2(0)
prod=0
prod=rset2(1)
response.write "| | "
response.write ""
response.write ""
response.write ProperCase(rset1("category"))&" | "
response.write ""
response.write ""&counter&" | "
response.write ""
response.write ""&prod&" | "
response.write " | "
end if
rset2.close
rset1.movenext
loop
response.write " | "
response.write "
"
rset1.close
set rset1=nothing
set rset2=nothing
set rset3=nothing
set rset4=nothing
db.close
set db=nothing
End Sub
%> |
<%
function ProperCase(txt)
txt=trim(txt)
if txt<>"" then
varTxt=split(txt," ")
putSpace=""
for i=0 to ubound(varTxt)
if varTxt(i)<>"" then
txtVal=txtVal & putSpace & ucase(left(varTxt(i),1)) & lcase(right(varTxt(i),len(varTxt(i))-1))
end if
putSpace=" "
next
ProperCase=txtVal
end if
End function
%>
|