<%@ 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 Parts WHERE nCatID=" & CatID rs.Open Sel,DB,1,3 If rs.EOF then%> <%Else%>

Please select a Part category to view:
-Select Category- <%Sel="SELECT * FROM PartCategories" 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 Parts 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("txtPart")%>"> <%=rs("txtPart")%> Item Number: <%=rs("txtItemNumber")%>   <%End If End If%>

 

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