<%
sql="Select * from Categry_In"
set rs=Server.CreateObject("adodb.recordset")
rs.open sql, db, adopenstatic
do while not rs.eof
response.write ""&rs("Categary")&"
"
sql1="select * from sub_categary_in where Cat_code="&rs("Cat_Code")
set rs1=Server.CreateObject("adodb.recordset")
rs1.open sql1, db, adopenstatic
if rs1.recordcount <> 0 then
do while not rs1.eof
response.write ""
response.write " "&rs1("Sub_Name")&"
"
rs1.movenext
loop
end if
rs.movenext
loop
response.write "
"
%>
|
<%
response.write "
Pens & Misc. Products"
response.write "
To compliment our range of leather products and promotional garments, we have added to our product line, writing instruments/Pen's in metal and Plastic. "
response.write " Following are the different Sub-categories"
%>
| |
Subcategories |
Products |
<%
while not r1.eof
sq="Select * from Product where subcategary like '"&r1(1)&"' "
set rs3=Server.CreateObject("adodb.recordset")
rs3.open sq, db, 3
%>|
<%
response.write " | "
response.write ""
response.write rs3.recordcount&" | "
%>
<%
r1.movenext
rs3.close
wend%>
<% r1.close
%> |