<% ShowHeader("List by Category") %> <% Dim Connect, MyClass, Query, Category Category = Trim(Request("Category")) If Category = "" Then Response.Write "No Category specified.

" Else Set Connect = Server.CreateObject("ADODB.Connection") Connect.Open "Classifieds" Query = "SELECT ItemNum,Item,Price,State FROM Items " Query = Query & "WHERE Category='" & Category & "'" Set MyClass = Connect.Execute(Query) %> <%=Category%>: <% Do While Not MyClass.EOF %> <% MyClass.MoveNext Loop End If %>

Item Cost State
> <%=MyClass("Item")%> <%=MyClass("Price")%> <%=MyClass("State")%>