<%
dim rs
set rs=server.CreateObject("Adodb.recordset")
'strSql="select distinct(catalog_no) as cno, from beakers"
strsql="select * from Watch_Glasses_desc order by catalog_no"
table="Watch_Glasses"
rs.open strSql,conn,2,2
%>
<%
do until rs.eof
item_name=rs.fields("catalog_no")+ " - Watch Glasses"
%>
<%Set rsc = Server.CreateObject("ADODB.Recordset")
strsql="select * from Laboratory_ware order by category"
rsc.Open strSql, conn
do until rsc.EOF
nlink=rsc("category")+".asp"
%>
