<%
'*******************code to retrive category description *******************
strsql="select * from Laboratory_ware where category='"&table&"' "
set rs=server.CreateObject("Adodb.recordset")
'response.Write(strsql & " ")
rs.open strSql,conn,2,2
if rs.eof=false then
response.Write(rs.fields("category_description"))
end if
rs.close
%>
<%
' ***************************code to retrive all Capacity n details *********************
strsql2="select * from 39580 where catalog_no='"&catalog_no&"' "
set rs2=server.CreateObject("Adodb.recordset")
' response.Write(strsql2 & " ")
rs2.open strSql2,conn,2,2 %>
<%
' *****************writing field names as Table heading ****************************
cnt=0
for each x in rs2.Fields
if isnull(x.value)=false and x.value<>catalog_no then
'if isnull(x.value)=false then
response.write("
" & x.name & "
")
end if
cnt=cnt+1
next%>
<% ' *****************writing Table Data ie capacity n all as Table Rows ****************************
do until rs2.EOF%>
<%for each x in rs2.Fields%>
<%if isnull(x.value)=false and x.value<>catalog_no then %>
<%'if isnull(x.value)=false then %>
<%Response.Write(x.value)%>
<%end if%>
<%next
rs2.MoveNext
%>
<%
loop
rs2.close
%>
<%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"
%>
See Other <%= table%> 
