<%
dim rs
set rs=server.CreateObject("Adodb.recordset")
'strSql="select distinct(catalog_no) as cno, from beakers"
strsql="select * from dishes_desc"
table="Dishes"
rs.open strSql,conn,2,2
%>
<%
do until rs.eof
item_name=rs.fields("catalog_no")+ " - Dishes"
%>
<%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"
%>
