Shop By Categories
<%do while rec.eof<>true %>
|
 |
<%
set sbpr=Server.CreateObject("ADODB.Recordset")
sql = "select * from products where cat_name='"&rec("cat_name")&"'"
sbpr.open sql,conn,3
%>
<%if sbpr.eof<>true then
%>
">
<%=ucase(rec("cat_name"))%>
|
<%else
%>
<%=ucase(rec("cat_name"))%>
|
<%end if%>
<%if catname=rec("cat_name") then %>
<%
set subc=Server.CreateObject("ADODB.Recordset")
sql = "select * from sub_cat where cat_name='"&catname&"' order by sub_cat_name"
subc.open sql,conn,3
do while subc.eof<>true
set sbp=Server.CreateObject("ADODB.Recordset")
sql = "select * from products where cat_name='"&catname&"' and sub_cat_name='"&subc("sub_cat_name")&"'"
sbp.open sql,conn,3
%>
<%if sbp.eof<>true then%>
|
 |
&subcatname=<%=subc("sub_cat_name")%>"><%=subc("sub_cat_name")%> |
<%else%>
<%end if%>
<%
subc.movenext
loop%>
<%end if%>
|
|
<%
rec.movenext
%>
<%
loop
%>
|
|
|
|
|
| |
Language Laboratory |
( Kit
From ) |
 |
 |
<%if citem<>0 then%>
<%end if%>
| |
| |
| |
| |
| |
| |
|
|
|
|
|