<% Dim x, e: If Request.QueryString("Product") <> "" then sql = "SELECT * FROM Products WHERE ID = '" & Request.Querystring("Product") & "'" set rs = db.execute(sql) If Not rs.eof and not rs.bof then If isnull(rs("Name")) and isnull(rs("Image")) or trim(rs("Name")) = "No Name" and trim(rs("Image")) = "No Image" then %> <% ElseIf isnull(rs("Name")) or trim(rs("Name")) = "No Name" then %> <% ElseIf isnull(rs("Image")) or trim(rs("Image")) = "No Image" then %> <% Else %> <% End If End If %> <% ElseIf Request.QueryString("SubCategory") <> "" then sql = "SELECT * FROM Products WHERE SubCategory = " & Request.QueryString("SubCategory") & " ORDER BY ID" set rs = db.execute(sql) %> <% ElseIf Request.QueryString("Category") <> "" then sql = "SELECT * FROM SubCategories WHERE Category = " & Request.Querystring("Category") & " ORDER BY ID" set rs = db.execute(sql): If rs.eof and rs.bof then E = True %> <% sql = "SELECT * FROM Products WHERE Category = " & Request.Querystring("Category") & " ORDER BY ID" set rs = db.execute(sql) %> <% Else sql = "SELECT * FROM Categories ORDER BY ID" set rs = db.execute(sql) %> <% End If %>

<%=rs("Price")%> ',document.all.T1.value);document.all.T1.value='0'"> <%=rs("Description")%>
<%=rs("Price")%> > ',document.all.T1.value);document.all.T1.value='0'"> <%=rs("Description")%>
<%=rs("Name")%> <%=rs("Price")%> ',document.all.T1.value);document.all.T1.value='0'"> <%=rs("Description")%>
<%=rs("Name")%> > <%=rs("Price")%> ',document.all.T1.value);document.all.T1.value='0'"> <%=rs("Description")%>
<% x =1: Do until rs.eof %> <% If isnull(rs("Name")) and isnull(rs("Image")) or trim(rs("Name")) = "No Name" and trim(rs("Image")) = "No Image" then %> <% ElseIf isnull(rs("Name")) or trim(rs("Name")) = "No Name" then %> <% ElseIf isnull(rs("Image")) or trim(rs("Image")) = "No Image" then %> <% Else %> <% End If %> <%=rs("Description")%> <%=rs("Price")%> ',document.all.T<%=x%>.value);document.all.T<%=x%>.value='0'"> value="0"> <%=rs("Description")%> > <%=rs("Price")%> ',document.all.T<%=x%>.value);document.all.T<%=x%>.value='0'"> value="0"> <%=rs("Name")%> <%=rs("Description")%> <%=rs("Price")%> ',document.all.T<%=x%>.value);document.all.T<%=x%>.value='0'"> value="0"> <%=rs("Name")%> <%=rs("Description")%> > <%=rs("Price")%> ',document.all.T<%=x%>.value);document.all.T<%=x%>.value='0'"> value="0"> <% x = x + 1: rs.movenext: Loop If rs.eof and rs.bof then %> Empty <% End If %>
<% Do until rs.eof %> <% rs.movenext: Loop %> ><%=rs("Name")%> <%=rs("Description")%>
<% If E <> True and not rs.eof and not rs.bof then %> <% End If: if not rs.eof and not rs.bof then E = False x =1: Do until rs.eof %> <% If isnull(rs("Name")) and isnull(rs("Image")) or trim(rs("Name")) = "No Name" and trim(rs("Image")) = "No Image" then %> <% ElseIf isnull(rs("Name")) or trim(rs("Name")) = "No Name" then %> <% ElseIf isnull(rs("Image")) or trim(rs("Image")) = "No Image" then %> <% Else %> <% End If %> <%=rs("Description")%> <%=rs("Price")%> ',document.all.T<%=x%>.value);document.all.T<%=x%>.value='0'"> value="0"> <%=rs("Description")%> > <%=rs("Price")%> ',document.all.T<%=x%>.value);document.all.T<%=x%>.value='0'"> value="0"> <%=rs("Name")%> <%=rs("Description")%> <%=rs("Price")%> ',document.all.T<%=x%>.value);document.all.T<%=x%>.value='0'"> value="0"> <%=rs("Name")%> <%=rs("Description")%> > <%=rs("Price")%> ',document.all.T<%=x%>.value);document.all.T<%=x%>.value='0'"> value="0"> <% x = x + 1: rs.movenext: Loop If E = True then %> Empty <% End If %>
	Our Products
We have a wide variety of computer systems, servers, peripherials and components available. If you have any questions please e-mail us at rpeltz@rspconsulting.net
<% Do until rs.eof %> <% rs.movenext: Loop %> ><%=rs("Name")%> <%=rs("Description")%>