<% If Request.Cookies("Webmaster") <> "Validated" Then Response.Redirect("/ctrfiles/stats/login.asp") End if %> Select Agency to report on Below...

<% Set Connect = Server.CreateObject("ADODB.Connection") Connect.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("/database/houseview.mdb") & ";" sqlnew="SELECT DISTINCT RealitorDesc, Grouping FROM Agents ORDER BY Agents.RealitorDesc ASC" Set RS = Connect.execute(sqlnew) If Not RS.BOF Then RS.MoveFirst Do Until RS.EOF %> "><%=RS.Fields("RealitorDesc")%> Group[<%=RS.Fields("Grouping")%>] <% RS.MoveNext Loop End if Set objFSO = Nothing Connect.Close Set Connect = Nothing Set RS = Nothing %>