<% Response.Buffer = True stragentgroup = Request("GRP") Select Case Request("RPT") Case 1 strfilename = "listings-COMMERCIAL.txt" strgroup = 23 Case 2 strfilename = "listings-residential.txt" strgroup = 40 Case 3 strfilename = "listings-land.txt" strgroup = 24 Case 4 strfilename = "listings-multifamily.txt" strgroup = 22 End Select Dim MyFileObj,MyTextFile Set MyFileObj = Server.CreateObject("Scripting.FileSystemObject") Set MyTextFile = MyFileObj.OpenTextFile(Server.MapPath("/IDX/" & strfilename),1,-2) Response.Write("") Do While MyTextFile.AtEndOfStream <> TRUE strLine = Trim(Server.HTMLEncode(MyTextFile.ReadLine)) allelements = Split(strLine,VbTab) If CStr(Trim(allelements(strgroup))) = stragentgroup Then maxcounter = ubound(allelements) Response.Write("") FOR counter=0 TO maxcounter thiselement = allelements(counter) Response.Write("") Next Response.Write("") End if Loop MyTextFile.Close Set MyTextFile = Nothing Response.Write("

" & counter & " " & thiselement & "

") %>