<%
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%>