Browse by  Stone <% Set rs=Server.CreateObject("ADODB.Recordset") sql="select c1v from products where cat='Beads' and gemcat='Precious' group by c1v order by c1v" rs.open sql,coni,3,2,1 i=1 while not rs.eof %><%=rs(0)%> <% rs.movenext wend rs.close %>

Browse by Shape <% Set rs=Server.CreateObject("ADODB.Recordset") sql="select shape from products where cat='Beads' and gemcat='Precious' group by shape order by shape" rs.open sql,coni,3,2,1 i=1 while not rs.eof %><%=rs(0)%> <% rs.movenext wend rs.close %>

Browse by  Stone <% Set rs=Server.CreateObject("ADODB.Recordset") sql="select c1v from products where cat='Silver Jewellery' group by c1v order by c1v" rs.open sql,coni,3,2,1 i=1 while not rs.eof %><%=rs(0)%> <% rs.movenext wend rs.close %>

Browse by Item <% Set rs=Server.CreateObject("ADODB.Recordset") sql="select subcat from products where cat='Silver Jewellery' group by subcat order by subcat" rs.open sql,coni,3,2,1 i=1 while not rs.eof %><%=rs(0)%> <% rs.movenext wend rs.close %>

Browse by  Stone <% Set rs=Server.CreateObject("ADODB.Recordset") sql="select c1v from products where cat='Beaded Jewellery' group by c1v order by c1v" rs.open sql,coni,3,2,1 i=1 while not rs.eof %><%=rs(0)%> <% rs.movenext wend rs.close %>

Browse by Item <% Set rs=Server.CreateObject("ADODB.Recordset") sql="select subcat from products where cat='Beaded Jewellery' group by subcat order by subcat" rs.open sql,coni,3,2,1 i=1 while not rs.eof %><%=rs(0)%> <% rs.movenext wend rs.close %>

Browse by  Stone <% Set rs=Server.CreateObject("ADODB.Recordset") sql="select c1v from products where cat='Silver Beads' group by c1v order by c1v" rs.open sql,coni,3,2,1 i=1 while not rs.eof %><%=rs(0)%> <% rs.movenext wend rs.close %>

Browse by Item <% Set rs=Server.CreateObject("ADODB.Recordset") sql="select subcat from products where cat='Silver Beads' group by subcat order by subcat" rs.open sql,coni,3,2,1 i=1 while not rs.eof %><%=rs(0)%> <% rs.movenext wend rs.close %>

Browse by  Stone <% Set rs=Server.CreateObject("ADODB.Recordset") sql="select subcat from products where cat='Gem Stones' group by subcat order by subcat" rs.open sql,coni,3,2,1 i=1 while not rs.eof %><%=rs(0)%> <% rs.movenext wend rs.close %>

Browse by Shape <% Set rs=Server.CreateObject("ADODB.Recordset") sql="select shape from products where cat='Gem Stones' group by shape order by shape" rs.open sql,coni,3,2,1 i=1 while not rs.eof %><%=rs(0)%> <% rs.movenext wend rs.close %>