<%@ Language=VBScript %> <%Response.Buffer=True%> <% SupplyID=Request.QueryString("SID") CatID=Request.QueryString("C") 'If Not Logged Then ' Session("page")="supply_details.asp?SID=" & SupplyID ' Response.Redirect("login.asp") 'End If 'Session("conshopping")="supply_details.asp?SID=" & SupplyID OpenConnection1 Set rs=Server.CreateObject("ADODB.Recordset") Sel="SELECT * FROM Supplies WHERE SupplyID=" & SupplyID rs.Open Sel,DB,1,3 If rs.EOF then Response.Redirect("supply_list.asp") txtSupply=rs("txtSupply") txtDescription=DisPrepText(rs("txtDescription")) txtItemNumber=rs("txtItemNumber") txtImage=rs("txtImage") 'If Request.Cookies("wades")("curopt")="1" then ' curPrice=rs("curCanPrice") ' curCur="Canadian Dollars" 'Else ' curPrice=rs("curUSPrice") ' curCur="U.S. Dollars" 'End If rs.Close %>

<%If txtImage<>"" then%> <%End If If Trim(txtDescription)<>"" then%> <%End If%> <%=txtSupply%> <%=txtDescription%> <%Sel="SELECT * FROM S_Specs WHERE nSupplyID=" & SupplyID & " ORDER BY nSortOrder" rs.Open Sel,DB,1,3 If Not rs.EOF then%> <%While Not rs.EOF%> <%rs.MoveNext Wend rs.Close End If%> Item Number <%=txtItemNumber%>   Specifications... • <%=rs("txtSpecification")%>