 |
 |
 &FI=yes" width="305" height="229" border="0" ALT="<% If Request("MODE") <> "inhouse" Then Response.Write ("MLS# ")%><%=MLS_RS.Fields("MLS")%>" NAME="housepic">
<% If MyFileObj.FileExists("D:\webroot\localuser\houseview\images\" & MLS_RS.Fields("MLS") & "\outpgf.htm") Then %>
/outpgf.htm" onclick="NewWindow(this.href,'HouseViewOnline','750','500','yes');return false" onfocus="this.blur()" TITLE="Outside Images courtesy of HouseViewOnline.com">
<% End if %>
<% If MyFileObj.FileExists("D:\webroot\localuser\houseview\images\" & MLS_RS.Fields("MLS") & "\inpgf.htm") Then %>
/inpgf.htm" onclick="NewWindow(this.href,'HouseViewOnline','750','500','yes');return false" onfocus="this.blur()" TITLE="Inside Images courtesy of HouseViewOnline.com">
<% End if %>
<%
'Get Panoramic pictures from asp file-----------------------------------------------------------
Dim strfoundpanos,txtfile,stralltxtfile,strpanostring,strpanostringfirst
strfoundpanos = False
If MyFileObj.FileExists("D:\webroot\localuser\houseview\images\" & MLS_RS.Fields("MLS") & "\pano1_thumb_0360.jpg") Then
If MyFileObj.FileExists("D:\webroot\localuser\houseview\images\" & MLS_RS.Fields("MLS") & "\" & MLS_RS.Fields("MLS") & ".asp") then
Set txtfile = MyFileObj.OpenTextFile("D:\webroot\localuser\houseview\images\" & MLS_RS.Fields("MLS") & "\" & MLS_RS.Fields("MLS") & ".asp")
stralltxtfile = txtfile.ReadAll
IF Instr(1,stralltxtfile,"P1",1) Then
strpanostringfirst = Mid(stralltxtfile,Instr(1,stralltxtfile,"P1",1),Len(stralltxtfile))
strpanostring = Mid(strpanostringfirst,1,Instr(1,strpanostringfirst,"PT8=",1)+2)
strfoundpanos = True
txtfile.Close
Set txtfile = Nothing
End if
End if
End if
'Get Panoramic pictures from asp file-----------------------------------------------------------
If strfoundpanos Then
%>
" onclick="NewWindow(this.href,'HouseViewOnline','750','500','yes');return false" onfocus="this.blur()" TITLE="Panoramic Images courtesy of HouseViewOnline.com">
<% End if %>
|
|
|
<%=MLS_RS.Fields("NOTES")%> |
|
|
For Additional Information Contact:<% If strgroup <> MLS_RS.Fields("GROUPING") Then Response.Write("**")%>
<%
Private Function RetrieveAgentPhoto(stragentfirst,stragentlast)
Dim objFileTextStream,strstart,strLine
set objFileTextStream = MyFileObj.OpenTextFile("D:\webroot\localuser\houseview\database\agents.txt")
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 Instr(1,LCase(Trim(strLine(0))),stragentfirst,1) AND Instr(1,LCase(Trim(strLine(1))),stragentlast,1) Then
RetrieveAgentPhoto = LCase(Trim(strLine(2)))
Exit Do
Else
RetrieveAgentPhoto = ""
End if
end if
Loop
objFileTextStream.Close
set objFileTextStream = Nothing
End Function
Dim stragentdata,stragentfirst,stragentlast
If Len(Trim(MLS_RS.Fields("Agent"))) > 5 Then
stragentdata = Split(MLS_RS.Fields("Agent"), ",")
stragentfirst = stragentdata(1)
stragentlast = stragentdata(0)
Else
Response.Write("N/A")
End if
If strgroup = MLS_RS.Fields("GROUPING") Then
Response.Write("" & chr(13))
Response.Write(" & ) | ")
Response.Write("" & stragentfirst & " " & stragentlast & "
" & MLS_RS.Fields("AGENTPHONE") & " | ")
Response.Write("
" & chr(13))
%>
<%=MLS_RS.Fields("OFFICE")%>
<%=MLS_RS.Fields("OFFICEPHONE")%>
Email
<%
Else
If foundagencybol Then
%>
 |
<%=agagency%>
• Phone: <%=agphone%>
• Fax: <%=agfax%>
• <%=agemail%>
<%=agaddress%>
<%=agcity%>, <%=agstate%> <%=agzip%>
|
<%
Else
Response.Write("Agency Data Not Found....IDX error 001")
End if
End if
%>
|
|
|
|
<%=FormatCurrency(MLS_RS.Fields("PRICE"),0,0)%> |
|
<% If Request("MODE") <> "inhouse" Then Response.Write ("MLS# ")%>
<%=MLS_RS.Fields("MLS")%> |
|
<%=MLS_RS.Fields("CITY")%>, <%=MLS_RS.Fields("STATE")%> <%=MLS_RS.Fields("ZIP")%> |
|
Type: <%=MLS_RS.Fields("TYPE1")%>
<%=MLS_RS.Fields("TYPE2")%>
<%=MLS_RS.Fields("TYPE3")%> |
|
Beds: <%=MLS_RS.Fields("BED")%> |
|
Baths: <%=MLS_RS.Fields("BATHFULL")%> |
|
Half Baths: <%=MLS_RS.Fields("BATHHALF")%> |
|
Square Feet: <%=MLS_RS.Fields("SQFT")%>
|
|
Basement: <%=MLS_RS.Fields("BASEMENT")%> |
|
Age: <%=MLS_RS.Fields("AGE")%>:
|
|
|
|
Estimated
Payment: <%=FigurePayment(MLS_RS.Fields("PRICE"))%>*
|
|
|
|
" TITLE="Request More Information"> |
|
|
&Down=0&Rate=7.00','MortgageCalculator','toolbar=no,location=no,directories=no,status=no,menubar=no,scrollbars=no,resizable=yes,width=275,height=305,left=50,top=50'); return false;" TITLE="Calculate Monthly Payments"> |
|
|
&MLS=<%=MLS_RS.Fields("MLS")%>&GRP=<%=Request.Querystring("GRP")%>&FILTER=<%=Request.Querystring("FILTER")%>&MODE=<%=Request.Querystring("MODE")%>&IH=<%=Request.Querystring("IH")%>&EMAIL=<%=agemail%>&AGENCY=<%=Server.URLEncode(agagency)%>','_blank','toolbar=no,location=no,directories=no,status=no,menubar=no,scrollbars=yes,resizable=yes,width=520,height=150,left=50,top=50'); return false;" TITLE="Request More Information"> |
|
<% If strgroup <> MLS_RS.Fields("GROUPING") Then %>
|
<% End if %>
<%
Dim MyTextFile,strLine,strcity,strstreet,strstate,strzip,strtime,strnotes
If MyFileObj.FileExists(Server.MapPath("/ctrfiles/notes/" & Trim(MLS_RS.Fields("MLS")) & "oh.txt" )) Then
%>
OPEN HOUSE:
<%
Set MyTextFile = MyFileObj.OpenTextFile(Server.MapPath("/ctrfiles/notes/" & Trim(MLS_RS.Fields("MLS")) & "oh.txt" ))
strLine = Trim(Server.HTMLEncode(MyTextFile.ReadLine))
strLine = Split(strLine, "|")
strcity = strLine(0)
strstreet = strLine(1)
strstate = strLine(2)
strzip = strLine(3)
strtime = strLine(4)
strnotes =strLine(5)
MyTextFile.Close
%>
<%=Replace(strstreet,"+"," ")%> <%=Replace(strcity,"+"," ")%> <%=strtime%> <%=strnotes%>
<% End if %>
|
|
|
Features:
<%
If ISNull(MLS_RS.Fields("FEATURES")) Then
'Do Nothing, null Filed
Else
If Trim(MLS_RS.Fields("FEATURES")) <> "" Then
If Not OnFeatures.BOF Then
OnFeatures.MoveFirst
Do Until OnFeatures.EOF
If marker <> OnFeatures.Fields(6) Then
Response.Write("------" & OnFeatures.Fields(6) & "------
")
End if
Response.Write(" • " & OnFeatures.Fields(1) & "
")
marker = OnFeatures.Fields(1)
OnFeatures.MoveNext
Loop
End if
End if
End if
%>
*Estimated Payment: Assuming 0% down, 30 year fixed rate of 7.00%
<% If strgroup <> MLS_RS.Fields("GROUPING") Then %>
**This listing courtesy of:
<%=stragentfirst%> <%=stragentlast%>
<%
If Trim(MLS_RS.Fields("Agent")) <> Trim(MLS_RS.Fields("OFFICE")) Then
Response.Write("of " & Trim(MLS_RS.Fields("OFFICE")))
End if
%>
, <%=MLS_RS.Fields("OFFICEPHONE")%>
The data
relating to real estate for sale on this web site comes in part from
the Broker
Reciprocity Program of the Cape Girardeau County Regional MLS. Real
estate listings held by brokerage firms other than The Listing Broker are marked with the Broker Reciprocity logo and detailed
information about them includes the name of the listing brokers. |
<% End if %>
IDX Data Intergration Provided by
Data Updated on: <%=FormatDateTime(MyFileObj.GetFile(Server.MapPath("/IDX/listings-residential.txt")).DateLastModified,2)%>
<%
Else
Response.Write("
Invalid or Outdated Item....
")
End if
Connect.Close
Set Connect = Nothing
Set MLS_RS = Nothing
Set OnAgency = Nothing
Set OnFeatures = Nothing
Set MyFileObj = Nothing
%>
|
|
