<%=strtitle%>

<% If Request("MLS") <> "" AND Request.Form("btndsply") = "Generate Flyer" 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,strLine3,picture imagename = sortdata picture = imagename & ".jpg" If filesys.FileExists(Server.MapPath("/images/" & imagename & "/" & imagename & ".asp")) Then Set MyTextFile = filesys.OpenTextFile(Server.MapPath("/images/" & imagename & "/" & imagename & ".asp")) Do While MyTextFile.AtEndOfStream <> TRUE strLine3 = Trim(MyTextFile.ReadLine) IF Instr(1,UCase(strLine3), "MVC",1) then picture = Mid(strLine3,Instr(1,UCase(strLine3), "MVC",1),12) End if loop MyTextFile.Close If filesys.FileExists(Server.MapPath("/images/" & imagename & "/" & picture)) Then Pass3 = "True" end if 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%>
<%=FormatCurrency(strprice,0,0)%> • MLS#: <%=strmls%> • <%=strLocation%>, MO • <%=strbed%> Bed • <%=strbath%> Bath Features:.....<%=strdesc%>.....
<% If Request.Form("OH") = "yes" Then %> Open House <%=Request.Form("DATE")%> <% End if %> <%=Request.Form("ADDRESS")%> <%=Request.Form("NOTES")%>
<% 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 %> <% 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 %> <% 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.Form("btndsply") = "Generate Flyer" AND Pass1 <> "True" OR Request.Form("btndsply") = "Generate Flyer" AND Pass2 <> "True" OR Request.Form("btndsply") = "Generate Flyer" 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

<% End if %>