<% Dim Connect, Classifieds, Query Set Connect =Server.CreateObject("ADODB.Connection") Connect.Open "chamber" Query = "SELECT DISTINCT CATEGORY,CATEGORY_NAME FROM camillachamber " Set Classifieds = Connect.Execute(Query) if Classifieds.EOF then SHOWITEM Classifieds("CATEGORY"),Classifieds("CATEGORY_NAME") %> Your database is currently unavailable <% End If If not Classifieds.EOF then%>

A service to the members of the Camilla, Georgia Chamber of Commerce

 

Select the category that interests you. Remember, you may look at a complete list.

<% Do While Not Classifieds.EOF %> > <%=Classifieds("CATEGORY_NAME")%>
<% Classifieds.MoveNext Loop End If %>