Agent/Agency: <% Dim strLine,strStart,Readcity,strcompline Set Readcity = objFSO.OpenTextFile(Server.MapPath("../database/agents.txt")) Do While Readcity.AtEndOfStream <> TRUE on error resume next strStart = Readcity.ReadLine If strStart = "TRUE" Then strLine = Readcity.ReadLine strcompline = strLine strLine = Split(strLine, "^") %> <%=strLine(0) & " " & strLine(1) & "," & replace(strLine(2),"#"," ")%> <% End if loop Readcity.close %>
Phone Number: Bus: Res: Pgr:

Bedrooms:
Bathrooms:
Category: Property Category RES $0-100K RES $100-200K RES $200-300K RES $300K+ COMM $0-300K COMM $300K+ LAND $0-300K LAND $300K+

Bullet:1">
Bullet:2">
Bullet:3">
Bullet:4">
Bullet:5">

MLS Number:
Price:$No $