BOROSIL Glass Works Limited

<% set rsdesc=server.CreateObject("ADODB.Recordset") rsdesc.open "Select * from Laboratory_ware where category='Tubes_Test_and_Culture'",conn,2,2 %>

Home

About Us

Products

Downloads

Contact Us

Tubes Test & Culture

<%=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 Tubes_Test_desc" table="Tubes_Test_and_Culture" rs.open strSql,conn,2,2 %>

<% do until rs.eof item_name=rs.fields("catalog_no")+ " - Tubes Test and Culture" %> <% rs.movenext loop rs.close %>

<%=item_name %>

<%= rs.fields("Product_desc") %>

<%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" %> <% rsc.close conn.close %>

<%Response.Write("" & rsc("category") & "")%> <% rsc.MoveNext loop %>