<% If Request("MLS") <> "" then Dim sortdata,Pass1,Pass2,Pass3 sortdata = Request("MLS") if sortdata = "" then sortdata = "999999999" end if Dim filesys, txtfile, strstart, strLine, strmls, strprice, stragent, strLocation, strdesc, strbed, strbath Set filesys = CreateObject("Scripting.FileSystemObject") Set txtfile = filesys.OpenTextFile(Server.MapPath("/images/homeproperty.txt"),1, 0) Do While txtfile.AtEndOfStream <> TRUE strstart = Trim(Server.HTMLEncode(txtfile.ReadLine)) if strstart = "TRUE" then strLine = Trim(txtfile.ReadLine) strLine = Split(strLine, "|") If trim(strLine(0)) = sortdata then strmls = strLine(0) strprice = strLine(1) stragent = strLine(2) strLocation = strLine(3) strdesc =strLine(4) strbed = strLine(6) strbath = strLine(7) Pass1 = "True" End if End If Loop txtfile.close Dim strstart2,strLine2,stragentfirst,stragentlast,strrealitorabb,strrealitordesc,strgrouping Dim stremail,strbus,strres,strpgr,dwStripe Set objFileTextStream = filesys.OpenTextFile(Server.MapPath("/database/agents.txt"),1, 0) Do While objFileTextStream.AtEndOfStream <> TRUE strstart2 = Trim(Server.HTMLEncode(objFileTextStream.ReadLine)) if strstart2 = "TRUE" then strLine2 = Trim(Server.HTMLEncode(objFileTextStream.ReadLine)) strLine2 = Split(strLine2, "^") If trim(strLine2(2)) = stragent then stragentfirst = strLine2(0) stragentlast = strLine2(1) strrealitorabb = strLine2(2) strrealitordesc = strLine2(3) strgrouping =strLine2(4) stremail = strLine2(5) strbus = strLine2(6) strres = strLine2(7) strpgr = strLine2(8) Pass2 = "True" End if End If Loop objFileTextStream.close If strdesc = "" then strdesc = "Contact " & stragentfirst & " " & stragentlast & " For Details on this property!" End if Dim imagename,picture imagename = sortdata picture = imagename & ".jpg" If filesys.FileExists(Server.MapPath("/images/" & imagename & "/" & picture)) Then Pass3 = "True" end if End if %> <% if Pass1 = "True" AND Pass2 = "True" AND Pass3 = "True" then %> <%=strtitle%>
<% If filesys.FileExists(Server.MapPath("/agents/agentlogos/" & Trim(strgrouping) & ".jpg")) Then %> <% Else %> <% End if %>
<%=strrealitordesc%> <%=strrealitordesc%> <%=straddress%> Virtual Panoramic Home Tours!
<%=FormatCurrency(strprice,0,0)%>
 • MLS#: <%=strmls%>
 • <%=strLocation%>, MO
 • <%=strbed%> Bed   • <%=strbath%> Bath

Features:.....<%=strdesc%>.....

 MLS#<%=sortdata%>
<% If filesys.FileExists(Server.MapPath("/agents/agentpics/" & Trim(strrealitorabb) & ".jpg")) Then %> "> <% Else %> MLS#: <%=strmls%> <% End if %> <%=stragentfirst & " " & stragentlast%>
<% If Trim(strbus) <> "" Then %> <%=strbus%> Bus <% End if %> <% If Trim(strpgr) <> "" Then %>   <%=strpgr%> Cell
<% End if %> <% If Trim(strres) <> "" Then %>   <%=strres%> Res <% End if %>

<% If Trim(stremail) <> "" Then %> <%=stremail%> <% End if %>

Outside/Inside Photos
<% Dim strPath2 Dim objFolder3 Dim objItem3 count = 0 strPath2 = "/images/" & sortdata & "/" Set filesys = Server.CreateObject("Scripting.FileSystemObject") Set objFolder3 = filesys.GetFolder(Server.MapPath(strPath2)) For Each objItem3 In objFolder3.Files for i = 1 to 15 step 1 if Left(UCase(objItem3.Name),3) = "OUT" and count < 5 then If UCase(objItem3.Name) = Left(UCase(objItem3.Name),5) & "0" & i & ".JPG" OR UCase(objItem3.Name) = Left(UCase(objItem3.Name),5) & i & ".JPG" then %> <%=objItem3.Name%> <% count = count + 1 end if end if Next Next %>
<% Dim Path Dim Folder Dim Item Dim count1,s count1 = 0 Path = "/images/" & sortdata & "/" Set Folder = filesys.GetFolder(Server.MapPath(Path)) For Each Item In Folder.Files for s = 1 to 15 step 1 if Left(UCase(Item.Name),2) = "IN" and count1 < 5 then If UCase(Item.Name) = Left(UCase(Item.Name),4) & "0" & s & ".JPG" OR UCase(Item.Name) = Left(UCase(Item.Name),4) & s & ".JPG" then %> <%=Item.Name%> <% count1 = count1 + 1 end if end if Next Next Set filesys = Nothing %>
All information provided is deemed reliable but is not guaranteed and should be independently verified. <% else %> <% If Request("MLS") <> "" AND Pass1 <> "True" OR Request("MLS") <> "" AND Pass2 <> "True" OR Request("MLS") <> "" AND Pass3 <> "True" then Response.Write("Invalid or Outdated MLS# Please use the Property Links
") End if %>
Enter the Valid 5 Digit MLS number and
Press lookup to Generate a Printable Flyer

MLS#

<% End if %>