<%@ Language=VBScript %> <%Response.Buffer=True%> <% OpenConnection1 Set rs=Server.CreateObject("ADODB.Recordset") CatID=Request.QueryString("C") %>

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

Please select a Used Equipment category to view:
-Select Category- <%Sel="SELECT * FROM UCategories" rs.Open Sel,DB,1,3 While Not rs.EOF%> " <%=IsSelected(rs("CatID"),CInt(CatID))%>><%=rs("txtCategory")%> <%rs.MoveNext Wend rs.Close%>
There is currently no Used Equipment 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("txtProduct")%>"> <%=rs("txtProduct")%> <%=rs("txtDescription")%>   <%End If End If%>

 

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