<% If Request.Cookies("Webmaster") <> "Validated" Then Response.Redirect("/ctrfiles/stats/login.asp") End if Dim strgroup strgroup = Request.Querystring("Group") Dim MyFile MyFile = Server.MapPath("/database/houseview.mdb") Dim DataConnection, cmdDC, RecordSet Dim RecordToDelete Set DataConnection = Server.CreateObject("ADODB.Connection") DataConnection.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & MyFile & ";" Set cmdDC = Server.CreateObject("ADODB.Command") cmdDC.ActiveConnection = DataConnection SQL = "SELECT * FROM Agents WHERE (((Agents.Grouping) = '" & strgroup & "')) ORDER BY Agents.AgentLast ASC" cmdDC.CommandText = SQL Set RecordSet = Server.CreateObject("ADODB.Recordset") RecordSet.Open cmdDC, , 2, 2 If RecordSet.EOF AND RecordSet.BOF Then Response.Write("No Agents currently in this group....") RecordSet.Close Set RecordSet = Nothing Set cmdDC = Nothing DataConnection.Close Set DataConnection = Nothing Response.End End if %> <% If Not RecordSet.BOF Then RecordSet.MoveFirst Do Until RecordSet.EOF Response.Write("" & Chr(13)) Response.Write(" ") Response.Write(" ") Response.Write("" & Chr(13)) RecordSet.MoveNext Loop End If %>

Agents in Group <%=strgroup%>--<%=RecordSet.Fields("RealitorDesc")%>
" & RecordSet.Fields("AgentFirst") & " " & RecordSet.Fields("AgentLast") & "	" & RecordSet.Fields("RealitorDesc") & "

<% RecordSet.Close Set RecordSet = Nothing Set cmdDC = Nothing DataConnection.Close Set DataConnection = Nothing %>