Borosil Glass Works Limited

<% Set rsc = Server.CreateObject("ADODB.Recordset") Set rsc2 = Server.CreateObject("ADODB.Recordset") strcatalog=request.QueryString("cat") strtbname=Ucase(request.QueryString("tbname") ) 'strsql2="select * from "& strtbname & " " strsql2="select * from Laboratory_Ware where category='"&strtbname&"' " rsc2.Open strSql2,conn,2,2 if not rsc2.eof then strdesc=rsc2.fields("Category_description") end if rsc2.close strimg=request.QueryString("img") ' response.Write(strimg) strsql="select * from "& strtbname & " where catalog_no='"&strcatalog&"' " rsc.Open strSql,conn,2,2 %>

Home

About Us

Products

Downloads

Contact Us

<% nlink=strtbname + ".asp" Response.Write("" & strtbname & "")%>

<%=strdesc %>

Home

Products

Laboratory Ware

<% nlink=strtbname + ".asp" Response.Write("" & strtbname & "")%>

Quick Jumps:

<% cnt=0 for each x in rsc.Fields if isnull(x.value)=false and x.value<>strcatalog then 'if isnull(x.value)=false then response.write("") end if cnt=cnt+1 next%> <%do until rsc.EOF%> <%for each x in rsc.Fields%> <%if isnull(x.value)=false and x.value<>strcatalog then %> <%'if isnull(x.value)=false then %> <%end if%> <%next rsc.MoveNext%> <%loop rsc.close 'conn.close %>

<%=request.QueryString("catno")%>
<%=request.QueryString("prddesc")%>

" & x.name & "

<%Response.Write(x.value)%>

<%Set rsc2 = Server.CreateObject("ADODB.Recordset") strsql="select * from Laboratory_ware " rsc2.Open strSql, conn do until rsc2.EOF nlink=rsc2("category")+".asp" %> <% rsc2.close 'conn.close %>

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

Sitemap