<% If Request.QueryString("categoryID") <> "" Then Set category = New CCategory category.Load Request.QueryString("categoryID") Else Response.Redirect("default.asp") End If %> <% = category.Name %>

<% = category.Name %>

<% Set products = New CProducts products.Load Request.QueryString("categoryID") j = 0 For Each product in products.Items If j mod 3 = 0 Then Response.Write "" End If %> <% j = j + 1 Next Set products = Nothing %>
<% If product.hasTwoImages Then %>     <% Else %> <% End If %>
<%=product.ItemNumber %>
<% If product.DimWidth <> 0 Then %><%=product.FractWidth %> x <% End If %><%=product.FractHeight %>