<% Dim VPATH,strFileName,strsortmessage If Request("T") = 2 Then VPATH = "/database/agents_office.txt" strsortmessage = "All Participating Agents:(Sorted by Office)" Else VPATH = "/database/agents.txt" strsortmessage = "All Participating Agents:(Sorted by last Name)" End if strFileName = Server.MapPath(VPATH) Dim objFSO,objFileTextStream Set objFSO = CreateObject("Scripting.FileSystemObject") Set objFileTextStream = objFSO.OpenTextFile(strFileName) %>

Virtual Real Estate::.

<% Dim strstart,strLine,stragentfirst,stragentlast,strrealitorabb,strrealitordesc,strgrouping Dim stremail,strbus,strres,strpgr,dwStripe Do While objFileTextStream.AtEndOfStream <> TRUE strstart = Trim(Server.HTMLEncode(objFileTextStream.ReadLine)) if strstart = "TRUE" then strLine = Trim(Server.HTMLEncode(objFileTextStream.ReadLine)) strLine = Split(strLine, "^") stragentfirst = strLine(0) stragentlast = strLine(1) strrealitorabb = strLine(2) strrealitordesc = strLine(3) strgrouping =strLine(4) stremail = strLine(5) strbus = strLine(6) strres = strLine(7) strpgr = strLine(8) if dwStripe="#FFFFFF" then dwStripe="#f5f5eb" else dwStripe="#FFFFFF" end if Response.Write("

" & Chr(13)) Response.Write("") Response.Write("") Response.Write("" & Chr(13)) end if Loop objFileTextStream.Close Set objFileTextStream = Nothing Set objFSO = Nothing %>

<% if Request("T") = 2 then %> <% Else %> <% End if %>  View Agents by Name   View Agents by office   View Agents by Name   View Agents by office
<%=strsortmessage%>
") Response.Write("','#FFFFFF')" & chr(34) & "; ONMOUSEOUT=" & chr(34) & "kill()" & chr(34) & " BORDER=0 width=16 height=14>  " & stragentfirst & " " & stragentlast & "") If objFSO.FileExists(Server.MapPath("/agents/wav/" & trim(strrealitorabb) & ".wav")) Then Response.Write("") End if Response.Write("	" & strrealitordesc & "