<% @ Language = vbscript EnableSessionState = False %> <% Option Explicit Response.Buffer = True %> <% StatLog Dim objFSO, objFileTextStream,objFileTextStream2 Set objFSO = CreateObject("Scripting.FileSystemObject") set objFileTextStream = objFSO.OpenTextFile(Server.MapPath("/database/property.txt")) set objFileTextStream2 = objFSO.OpenTextFile(Server.MapPath("/database/Locations.txt")) Dim MyStream, Mssg %> Coldwell Banker Abernathy Realty

ABERNATHY REALTY

Commercial Property Search <% if Request.Form("btngo") = "Sort" then Dim locationname locationname = Request.Form("Location") if Request.Form("Location") = "" then locationname = "All Locations" end if Response.Write("

Sorted...From:" & " " & FormatCurrency(Request.Form("strfrom"),0,0) & " " & "To:" & " " & FormatCurrency(Request.Form("strto"),0,0) & " " & "In:" & " " & locationname & "
") end if %>
From$:To$: In Location:
CLICK ON MLS# TO VIEW THAT LISTING
CLICK ON AGENT'S NAME TO VIEW THEIR LISTINGS
<% Dim strfrom, strto, bgcolor,strLine,strmls,strprice,stragent,strLocation,strpricecat,strbedroom Dim strbathroom,strpano,strpending,strstart,strcatgrpg,strgrouping,dwStripe,strdesc '------------------------------------ strto = 10000000 '------------------------------------ if Request.Form("btngo") = "Sort" then strto = int(Request.Form("strto")) end if '------------------------------------ strfrom = 0 '------------------------------------ if Request.Form("btngo") = "Sort" then strfrom = int(Request.Form("strfrom")) end if '------------------------------------ strcatgrpg = 3 '------------------------------------ '------------------------------------ strdesc = "ColdWell-Banker-Abernaty-Realty" '------------------------------------ if Request.Form("btngo") = "Sort" and Request.Form("Location") <> "" then 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) <> "" then If trim(strLine(9)) = trim(strcatgrpg) and int(strLine(1)) =< strto and int(strLine(1)) >= strfrom and strLine(3) = Trim(Request.Form("Location")) and strLine(4) = 5 then strmls = strLine(0) strprice = strLine(1) stragent = strLine(2) strLocation = strLine(3) strpricecat =strLine(4) strbedroom = strLine(5) strbathroom = strLine(6) strpano = strLine(7) strpending = strLine(8) strgrouping = strLine(9) if Trim(strpending) = "Yes" then bgcolor="Yellow" end if dwStripe="#FFFFFF" Response.Write("" & Chr(13)) if strpano = "Yes" then Response.Write(" ") else Response.Write(" ") end if Response.Write(" " & Chr(13)) Response.Write(" " & Chr(13)) Response.Write(" " & Chr(13)) Response.Write(" " & Chr(13)) if strpending = "Yes" then Response.Write("" & Chr(13)) else Response.Write(" " & Chr(13)) end if Response.Write(" " & Chr(13)) Response.Write("" & Chr(13)) If objFSO.FileExists(Server.MapPath("/ctrfiles/notes/" & strmls & "oh.txt" )) Then Set MyStream=objFSO.OpenTextFile(Server.MapPath("/ctrfiles/notes/" & strmls & "oh.txt" )) Mssg = MyStream.Readline Mssg = Split(Mssg, "|") Response.Write("" & Chr(13)) Response.Write(" " & Chr(13)) Response.Write(" " & Chr(13)) Response.Write("" & Chr(13)) Mystream.Close end if End if End if End If Loop elseif Request.Form("btngo") = "Sort" and Request.Form("Location") = "" then 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) <> "" then If trim(strLine(9)) = trim(strcatgrpg) and int(strLine(1)) =< strto and int(strLine(1)) >= strfrom and strLine(4) = 5 then strmls = strLine(0) strprice = strLine(1) stragent = strLine(2) strLocation = strLine(3) strpricecat =strLine(4) strbedroom = strLine(5) strbathroom = strLine(6) strpano = strLine(7) strpending = strLine(8) strgrouping = strLine(9) if Trim(strpending) = "Yes" then bgcolor="Yellow" end if dwStripe="#FFFFFF" Response.Write("" & Chr(13)) if strpano = "Yes" then Response.Write(" ") else Response.Write(" ") end if Response.Write(" " & Chr(13)) Response.Write(" " & Chr(13)) Response.Write(" " & Chr(13)) Response.Write(" " & Chr(13)) if strpending = "Yes" then Response.Write("" & Chr(13)) else Response.Write(" " & Chr(13)) end if Response.Write(" " & Chr(13)) Response.Write("" & Chr(13)) If objFSO.FileExists(Server.MapPath("/ctrfiles/notes/" & strmls & "oh.txt" )) Then Set MyStream=objFSO.OpenTextFile(Server.MapPath("/ctrfiles/notes/" & strmls & "oh.txt" )) Mssg = MyStream.Readline Mssg = Split(Mssg, "|") Response.Write("" & Chr(13)) Response.Write(" " & Chr(13)) Response.Write(" " & Chr(13)) Response.Write("" & Chr(13)) Mystream.Close end if End if End if End If Loop else 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) <> "" then If trim(strLine(9)) = trim(strcatgrpg) and strLine(4) = 5 then strmls = strLine(0) strprice = strLine(1) stragent = strLine(2) strLocation = strLine(3) strpricecat =strLine(4) strbedroom = strLine(5) strbathroom = strLine(6) strpano = strLine(7) strpending = strLine(8) strgrouping = strLine(9) if Trim(strpending) = "Yes" then bgcolor="Yellow" end if dwStripe="#FFFFFF" Response.Write("" & Chr(13)) if strpano = "Yes" then Response.Write(" ") else Response.Write(" ") end if Response.Write(" " & Chr(13)) Response.Write(" " & Chr(13)) Response.Write(" " & Chr(13)) Response.Write(" " & Chr(13)) if strpending = "Yes" then Response.Write("" & Chr(13)) else Response.Write(" " & Chr(13)) end if Response.Write(" " & Chr(13)) Response.Write("" & Chr(13)) If objFSO.FileExists(Server.MapPath("/ctrfiles/notes/" & strmls & "oh.txt" )) Then Set MyStream=objFSO.OpenTextFile(Server.MapPath("/ctrfiles/notes/" & strmls & "oh.txt" )) Mssg = MyStream.Readline Mssg = Split(Mssg, "|") Response.Write("" & Chr(13)) Response.Write(" " & Chr(13)) Response.Write(" " & Chr(13)) Response.Write("" & Chr(13)) Mystream.Close end if End if End if End If Loop end if objFileTextStream.Close objFileTextStream2.Close Set objFSO = Nothing %>
I/O
Preview		 MLS# Price Bdrm Bath Location Realtor
Info
" & strmls & "" & FormatCurrency(strprice,0,0) & "" & strbedroom & "" & strbathroom & "" & strLocation & "---PENDING!" & strLocation & "" & stragent & "
MLS#" & strmls & " " & Mssg(4) & " " & Replace(Mssg(0), "+", " ") & " " & Mssg(2) & " " & Replace(Mssg(1), "+", " ") & " " & Mssg(5) & "
" & strmls & "" & FormatCurrency(strprice,0,0) & "" & strbedroom & "" & strbathroom & "" & strLocation & "---PENDING!" & strLocation & "" & stragent & "
MLS#" & strmls & " " & Mssg(4) & " " & Replace(Mssg(0), "+", " ") & " " & Mssg(2) & " " & Replace(Mssg(1), "+", " ") & " " & Mssg(5) & "
" & strmls & "" & FormatCurrency(strprice,0,0) & "" & strbedroom & "" & strbathroom & "" & strLocation & "---PENDING!" & strLocation & "" & stragent & "
MLS#" & strmls & " " & Mssg(4) & " " & Replace(Mssg(0), "+", " ") & " " & Mssg(2) & " " & Replace(Mssg(1), "+", " ") & " " & Mssg(5) & "