<% Dim sortdata,strfileloc,strstart,strLine,strmls,strprice,strLocation,strbedroom,strbathroom Dim MyDataFile,strDataLine, strhomedata, strpano, strpending, strsold, strdesc, strHZ, stragent sortdata = "2" strfileloc = "D:\webroot\localuser\houseview\database\property.txt" Dim objFileTextStream,objFileTextStream2,objFSO Set objFSO = CreateObject("Scripting.FileSystemObject") set objFileTextStream = objFSO.OpenTextFile(strfileloc) strpanotext = "In/Out" strstilltext = "Out" %>

<% Do While objFileTextStream.AtEndOfStream <> TRUE strstart = Trim(Server.HTMLEncode(objFileTextStream.ReadLine)) if strstart = "TRUE" then strLine = Trim(Server.HTMLEncode(objFileTextStream.ReadLine)) strLine = Split(strLine, "^") If strLine(9) = sortdata and LCase(Trim(strLine(10))) <> "yes"then strmls = strLine(0) strprice = strLine(1) stragent = strLine(2) strLocation = strLine(3) strbedroom = strLine(5) strbathroom = strLine(6) strpano = strLine(7) strpending = strLine(8) strsold = strLine(10) strdesc = strLine(11) strHZ = strLine(12) strhomedata = strdesc %>  MLS# <%=strmls%>   • Located in: <%=strLocation%>  • <%=FormatCurrency(strprice,0)%>    Payment Calculator  • (<%=strbedroom%>) Bedroom  (<%=strbathroom%>) Bath <% If strhomedata <> "" Then Response.Write("" & strhomedata & "") %> Click MLS For More pictures and Information... <% strhomedata = "" End if End If Loop objFileTextStream.Close Set objFileTextStream = Nothing Set objFSO = Nothing %> Images property of www.houseviewonline.com