| <%=rs1.fields("Catalog_no")%> - <%=rs1.fields("Product_desc")%> |
|
<%if rs1.fields("ASTM Standard") <> "" then%>
| ASTM Standard : <%=rs1.fields("ASTM Standard")%> |
<%end if%>
<%
rs1.close
%>
|
<%
' ***************************code to retrive all Capacity n details *********************
strsql2="select * from "& table & " where vwr_scied='"&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
%>
|
| |
| |
| |
|
| |
| |
| |
| |
| |
See Other <%= stritemcategory%> 
