<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> :: Welcome to VWR :: <% desc_table=request.QueryString("tbl") strdesc=request.QueryString("cate") strsql1="select * from vwr where description='"&strdesc&"'" set rs1=server.CreateObject("Adodb.recordset") rs1.Open strsql1,con,2,2 ' ***************************code to retrive all Capacity n details ********************* strsql2="select * from "& desc_table & " where description='"&strdesc&"' order by catalog_no" 'strsql2="select * from "& table & " where description='"&strdesc&"' " set rs2=server.CreateObject("Adodb.recordset") 'response.Write(strsql2 & "
") rs2.open strSql2,con,2,2 %>
<%=desc_table%>
<%=rs1.Fields("cat_description")%>
" alt="<%=strdesc%>" border="0" widht="50%">
 
 
 
 
<%if isnull(rs1.Fields("astm"))=false then %> <%end if%>
<%=desc_table%>
<%=strdesc%>
ASTM Standard : <%=rs1.Fields("astm")%>
<% ' *****************writing field names as Table heading **************************** cnt=0 for each x in rs2.Fields if isnull(x.value)=false and x.value<>strdesc then 'if isnull(x.value)=false then response.write("") 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<>strdesc then %> <%'if isnull(x.value)=false then %> <%end if%> <%next rs2.MoveNext %> <% loop rs2.close rs1.Close %>
" & x.name & "
<%Response.Write(x.value)%>