<%@ Language=VBScript %> <%Response.Buffer=True%> <% OpenConnection1 Set rs=Server.CreateObject("ADODB.Recordset") CatID=Request.QueryString("C") 'If Request.Cookies("wades")("logged")="TRUE" then ' CustID=Request.Cookies("wades")("cid") ' Sel="SELECT txtFname,txtLname FROM Customers WHERE CustomerID=" & CustID ' rs.Open Sel,DB,1,3 ' txtName=rs("txtFname") & " " & rs("txtLname") ' rs.Close 'End If %>

<%If txtName<>"" then%> <%End If%> <%If Request.QueryString("L")="T" Then Sel="SELECT * FROM Supplies WHERE nCatID=" & CatID rs.Open Sel,DB,1,3 If rs.EOF then%> <%Else%>

Welcome back <%=txtName%>!
Please select a Supply category to view:
-Select Category- <%Sel="SELECT * FROM SCategories" rs.Open Sel,DB,1,3 While Not rs.EOF%> " <%=IsSelected(rs("CatID"),CInt(CatID))%>><%=rs("txtCategory")%> <%rs.MoveNext Wend rs.Close%>
There are currently no Supplies available in this category. Please check back soon!!
<%While Not rs.EOF%> <%rs.MoveNext Wend rs.Close%> &C=<%=CatID%>" title="Click here to view the details of <%=rs("txtSupply")%>"> <%=rs("txtSupply")%> Item Number: <%=rs("txtItemNumber")%>   <%End If End If%>

 

<% Function IsSelected(value,data) If value=data then IsSelected="Selected" Else IsSelected="" End If End Function %>