<% Set conn = Server.CreateObject("ADODB.Connection") conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("marten.mdb") &";" strSQL = "SELECT DISTINCT Category FROM [Companies]" set objRS = conn.Execute(strSQL) %> Testing
<%do until objRS.EOF%> <%objRS.MoveNext Loop%>
Available search categories
<%=objRS("Category")%>
<% objRS.close conn.close %>