<%=rsdesc.Fields("Category_description")%>
<%
rsdesc.Close
set rsdesc=nothing
%>
<%
dim rs
set rs=server.CreateObject("Adodb.recordset")
'strSql="select distinct(catalog_no) as cno, from beakers"
strsql="select * from adapters_desc"
table="Tube_Adapters"
rs.open strSql,conn,2,2
%>
<%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"
%>