<!--#include virtual="/common/header.inc" -->
<!--#include virtual="/weather/weather.inc" -->

<% If strshowads Then %>
<!--#include virtual="/JBSX/include/JBS.asp"-->
<center>
<% Call JBS(1) %>
</center>
<% End if %> 

      <TABLE cellPadding=6 border=0>
        <TBODY>
        <TR>
          <TD><FONT face=Verdana size=2>

            <P>
            <FORM name="surfform">
            <TABLE cellSpacing=2 cellPadding=4 width=180 align=right border=0>
              <TBODY>
              <TR>
                <TD bgColor=#ffffff colSpan=2>
<!-- Dynamic Weather Feed by Houseviewonline.com -->
<!-- Weather data provided by weather.com -->
<fieldset>
<legend><font face="Tahoma" size="1" color="#990000"><b>&nbsp;Cape Girardeau Weather&nbsp;</b></font></legend>
<table border="0" width="100%" cellpadding="0" cellspacing="0">
<tr>
<td align="center" rowspan="5"><img src="<%=strlocalweatherimage%>" WIDTH="55" HEIGHT="58" ALT="<%=strconditions%>" BORDER="0"></td>
<td align="center"><font face="tahoma" size="1"><b><%=strconditions%></b></font></td>
</tr>
<tr><td align="Left"><font face="tahoma" size="1">&nbsp;Temp:&nbsp;&nbsp;<b><%=strfahrenheit%>&deg;F</b></font></td></tr>
<tr><td align="Left"><font face="tahoma" size="1">&nbsp;Wind:&nbsp;&nbsp;<b><%=strwind%></b></font></td></tr>
<tr><td align="Left"><font face="tahoma" size="1">&nbsp;RH:&nbsp;&nbsp;<b><%=strrelative_humidity%>%</b></font></td></tr>
<tr><td align="Left"><font face="tahoma" size="1">&nbsp;BP:&nbsp;&nbsp;<b><%=strbarometric_pressure%></b></font></td></tr>
<tr>
<td align="center" bgcolor="#f5f5f5"><a href="http://www.weather.com/?prod=xoap&par=[1008705363]" TARGET=_Blank><img src="/weather/img/weather_logo.png" WIDTH="43" HEIGHT="32" ALT="Weather data provided by weather.com ®" BORDER="0"></a></td>
<td align="center" bgcolor="#f5f5f5"><a href="http://www.weather.com/?prod=xoap&par=[1008705363]" TARGET=_Blank><font face="tahoma" size="1">Weather data by weather.com®</font></a></td>
</tr>
</table>
</fieldset>
<!-- Weather data provided by weather.com -->
<!-- Dynamic Weather Feed by Houseviewonline.com -->  

                </TD></TR>

<TR>
<TD bgColor=#f5f5eb colSpan=2><FONT face=Verdana size=1><B style="LETTER-SPACING: 2px">Daily Deal</B><br>
&nbsp;&#149;&nbsp;<%=dailydeal%>
</TD>
</TR>
              <TR>
                <TD colSpan=2><FONT face=Verdana size=1>


<fieldset>
<legend><font face="Tahoma" size="1" color="#990000"><b>Surrounding Houseview's</b></font></legend>
<font style="FONT-SIZE: 9px; FONT-FAMILY: Verdana; COLOR: #000000;">St. Louis Area Listings</font>
<br>
<SELECT name="stlouisshowcase" onchange="if(this.options[this.selectedIndex].value!='$') {window.open(this.options[this.selectedIndex].value,'_self')}">
<OPTION selected value="$">St. Louis Area</OPTION>
<OPTION value="/viewproperty_showcase.asp?C=1&I=yes">$0-100K Listings</OPTION>
<OPTION style="BACKGROUND-COLOR: #f5f5eb" value="/viewproperty_showcase.asp?C=2&I=yes">$100-200K Listings</OPTION>
<OPTION value="/viewproperty_showcase.asp?C=3&I=yes">$200K + Listings</OPTION>
<OPTION style="BACKGROUND-COLOR: #f5f5eb" value="/viewproperty_showcase.asp?C=5&I=yes">Commercial Listings</OPTION>
<OPTION value="/viewproperty_showcase.asp?C=4&I=yes">Land Listings</OPTION>
<OPTION value="/viewagents_showcase.asp?T=2">Participating Agents</OPTION>
</SELECT>
<br>
<font style="FONT-SIZE: 9px; FONT-FAMILY: Verdana; COLOR: #000000;">St. Louis Metro East Listings</font>
<br>
<SELECT name="gateway" onchange="if(this.options[this.selectedIndex].value!='$') {window.open(this.options[this.selectedIndex].value,'_self')}">
<OPTION selected value="$">St. Louis Metro East</OPTION>
<OPTION value="/viewproperty_gateway.asp?C=1&I=yes">$0-100K Listings</OPTION>
<OPTION style="BACKGROUND-COLOR: #f5f5eb" value="/viewproperty_gateway.asp?C=2&I=yes">$100-200K Listings</OPTION>
<OPTION value="/viewproperty_gateway.asp?C=3&I=yes">$200K + Listings</OPTION>
<OPTION style="BACKGROUND-COLOR: #f5f5eb" value="/viewproperty_gateway.asp?C=5&I=yes">Commercial Listings</OPTION>
<OPTION value="/viewproperty_gateway.asp?C=4&I=yes">Land Listings</OPTION>
<OPTION value="/viewagents_gateway.asp?T=2">Participating Agents</OPTION>
</SELECT>
<br>
<font style="FONT-SIZE: 9px; FONT-FAMILY: Verdana; COLOR: #000000;">Southern Illinois Listings</font>
<br>
<SELECT name="stlouisshowcase" onchange="if(this.options[this.selectedIndex].value!='$') {window.open(this.options[this.selectedIndex].value,'_self')}">
<OPTION selected value="$">Southern Illinois</OPTION>
<OPTION value="/viewproperty_sihometours.asp?C=1&I=yes">$0-100K Listings</OPTION>
<OPTION style="BACKGROUND-COLOR: #f5f5eb" value="/viewproperty_sihometours.asp?C=2&I=yes">$100-200K Listings</OPTION>
<OPTION value="/viewproperty_sihometours.asp?C=3&I=yes">$200K + Listings</OPTION>
<OPTION style="BACKGROUND-COLOR: #f5f5eb" value="/viewproperty_sihometours.asp?C=5&I=yes">Commercial Listings</OPTION>
<OPTION value="/viewproperty_sihometours.asp?C=4&I=yes">Land Listings</OPTION>
<OPTION value="/viewagents_sihometours.asp?T=2">Participating Agents</OPTION>
</SELECT>
</fieldset>
<br>
<B style="LETTER-SPACING: 2px">Latest Snippet</B><BR><A 
                  href="/myhouseview.asp" TITLE="Customize your Search Criteria!">My
                  Houseview</A> : Customized Search Criteria For 
                  You!...</FONT>
</TD></TR>
              <TR>
                <TD bgColor=#f5f5eb colSpan=2><FONT face=Verdana size=1><B 
                  style="LETTER-SPACING: 2px">Quick Jump</B><BR>Go Directly 
                  to the Listings..<BR><NOBR>
<SELECT name=answer onchange="if(this.options[this.selectedIndex].value!='$') {window.open(this.options[this.selectedIndex].value,'_self')}">
<OPTION selected value="$">Select Destination</OPTION>
<OPTION style="BACKGROUND-COLOR: #f5f5eb" value="/default.asp">Home</OPTION>
<OPTION value="/viewproperty.asp?C=1">$0-100K Listings</OPTION>
<OPTION style="BACKGROUND-COLOR: #f5f5eb" value="/viewproperty.asp?C=2">$100-200K Listings</OPTION>
<OPTION value="/viewproperty.asp?C=3">$200K + Listings</OPTION>
<OPTION style="BACKGROUND-COLOR: #f5f5eb" value="/viewproperty.asp?C=5">Commercial Listings</OPTION>
<OPTION value="/viewproperty.asp?C=4">Land Listings</OPTION>
<OPTION style="BACKGROUND-COLOR: #f5f5eb" value="/viewagents2.asp">Agents</OPTION></SELECT>
</NOBR></FONT></TD></TR>
              <TR>
                <TD noWrap align=middle colspan="2">
  <font face="Verdana" size="1"><a href="/advertise.asp" TITLE="Advertise on houseviewonline.com and Watch your Buisness GROW!">Advertise Here</a></font>
                </TD>
</tr>
<tr>
                <TD align=right colspan="2">

<% 
If strshowads Then Call JBS(3)
%>
</a>



                     </TD></TR>


</TBODY></TABLE></FORM>


            &nbsp;&nbsp;Serving the <a href="http://www.houseviewonline.com/"><b>Missouri Real Estate</b></a> community since  
            1999, HouseViewonline is the leading realty website for Southeast Missouri. If you are looking 
            for residential or commercial properties in Cape Girardeau, Jackson, Perryville, Sikeston or 
            Marble Hill MO, HouseViewOnline is the place to be. We realized the simple truth about online 
            real estate Viewing; Websites need to be fast, user-friendly, and reliable. They must offer 
            easy to find information, be educational, and allow for easy interaction with the Realtors. 
            Thus, the <u>New</u> <b>HouseViewOnline.com::.</b> was born....<br>


</font>

<br>
<center>
<% If strshowads Then Call JBS(7) %>
<br><br>
</center>

        <P><B>Let us help you Find <I>your</I> Dream Home!</B><font face="Verdana" size="2"> The First Step 
            is right here with <a href="http://www.houseviewonline.com/">HouseViewOnline.com.</a>
The Leader in virtual real estate for the southeast Missouri area! We feature many High quality images of each property
utilizing the latest technology in digital imaging and 360&deg; immersive (panoramic) photography.  <br>
<em>houseViewonline.com&nbsp;&nbsp;&nbsp;Your New Home is our Domain!</em></font> <br><br>
<br>
<br>
<br>
<br>
            <TABLE cellSpacing=0 width="100%" border=0>
              <TBODY>
              <TR>
                <TD noWrap bgColor=#f5f5eb><FONT face=Verdana size=2>
                  <LI><a href="/flyer.asp"   onclick="NewWindowB(this.href,'Flyer','700','500','yes');return false" onfocus="this.blur()" TITLE="Generate a Printable Flyer on a Listing">Printable Flyers</a>
                  <LI><a href="/lookuppic.asp" TITLE="Download High Quality Photos of the listings!">Download Photo</a>
                  <LI><a href="/viewagents2.asp" TITLE="View all Houseviewonline.com's Participating Agents and Offices">Participating Offices</a></LI></FONT></TD>
                <TD noWrap bgColor=#f5f5eb><FONT face=Verdana size=2>
                  <LI><a href="/openhouse.asp" TITLE="View current listed Open House Listings">Open House</a>
                  <LI><a href="/mortgage.asp" TITLE="Mortgage Payment Calculator">Payment Calculator</a>
                  <LI><a href="/linkinfo.asp" TITLE="Link to houseview!">Link to Us!</a>&nbsp;<img src="/webimages/handico.gif"></FONT></TD>
                <TD noWrap bgColor=#f5f5eb><FONT face=Verdana size=2>
                  <LI><a href="/myhouseview.asp" TITLE="Customized Search Critera For you!">My Houseview</a>&nbsp;<img src="/webimages/new.gif">
                  <LI><a href="/errorreport.asp" TITLE="Report an error to us">Error Report</a>
                  <LI><a href="/" TITLE="HouseViewOnline.com Home">Home</a></LI></FONT></TD></TR></TBODY></TABLE><BR>
            <HR color=#990000 noShade SIZE=1></FONT></FONT></TD></TR></TBODY></TABLE>

<%
if Request.Cookies("MyHouseView")("display") = "yes" then
Dim FSO2
Set FSO2 = Server.CreateObject("Scripting.FileSystemObject")

response.Write("<center>")
response.Write("<TABLE cellSpacing=0 cellPadding=0 border=0>" & chr(13))
response.Write("<TBODY>" & chr(13))
response.Write("<TR bgColor=#e5e5ca>" & chr(13))
response.Write("<TD>&nbsp;</TD>" & chr(13))
response.Write("<TD noWrap width=""520""><FONT style=""LETTER-SPACING: 1px" & chr(34) & chr(13)) 
response.Write("face=Verdana size=2><B>Welcome To Houseviewonline " & Request.Cookies("MyHouseView")("name") & " ::.</B></FONT></TD>" & chr(13))
response.Write("<TD align=right><IMG height=18" & chr(13)) 
response.Write("src=""/webimages/crv.gif"" width=7" & chr(13)) 
response.Write("border=0></TD></TR>" & chr(13))
response.Write("<TR bgColor=#f5f5eb>" & chr(13))
response.Write("<TD background=""/webimages/no.gif" & chr(34) & chr(13)) 
response.Write("colSpan=3>" & chr(13))
response.Write("<TABLE cellPadding=4 border=0>" & chr(13))
response.Write("<TBODY>" & chr(13))
response.Write("<TR>" & chr(13))
response.Write("<TD>" & chr(13))
response.Write("<FONT face=Verdana size=1><SPAN id=new>" & chr(13))

response.Write("<font face=tahoma size=1><b>Here are a List of Homes Meeting your Specific Search Criteria...</b></font><hr color=#e6e6e6 width=520 align=left>" & chr(13))
response.Write("<table border=0 cellpadding=0 cellspacing=0 width=520  class=""homelinks""  onMouseover=""borderize_on(event)"" onMouseout=""borderize_off(event)"">" & chr(13))
response.Write("<tr>")
response.Write("<td align=center><font face=tahoma size=1><b>Imaging</td>" & chr(13))
response.Write("<td align=center><font face=tahoma size=1><b>MLS#</td>" & chr(13))
response.Write("<td align=center><font face=tahoma size=1><b>Audio</td>" & chr(13))
response.Write("<td align=center><font face=tahoma size=1><b>Price</td>" & chr(13))
response.Write("<td align=center><font face=tahoma size=1><b>Bed</td>" & chr(13))
response.Write("<td align=center><font face=tahoma size=1><b>Bath</td>" & chr(13))
response.Write("<td align=center><font face=tahoma size=1><b>Location</td>" & chr(13))
response.Write("<td align=center><font face=tahoma size=1><b>Agent Notes</td>" & chr(13))
response.Write("</tr>")
Set MyTFile = FSO2.OpenTextFile(Server.MapPath("/database/property.txt"),1,-2)
Do While MyTFile.AtEndOfStream <> TRUE
on error resume next
	sstart = Trim(Server.HTMLEncode(MyTFile.ReadLine))
if sstart = "TRUE" then
	sLine = Trim(Server.HTMLEncode(MyTFile.ReadLine))
	sLine = Split(sLine, "^")
  If int(sLine(4)) < 4 and int(sLine(1)) =< int(Request.Cookies("MyHouseView")("to")) and  int(sLine(1)) >= int(Request.Cookies("MyHouseView")("from"))  and sLine(3) = Trim(Request.Cookies("MyHouseView")("location1")) and LCase(Trim(sLine(10))) <> "yes" OR int(sLine(1)) =< int(Request.Cookies("MyHouseView")("to")) and  int(sLine(1)) >= int(Request.Cookies("MyHouseView")("from"))  and sLine(3) = Trim(Request.Cookies("MyHouseView")("location2")) and LCase(Trim(sLine(10))) <> "yes" then
if dwStripe = "#ffffff" then
dwStripe = "#f5f5eb"
else
dwStripe = "#ffffff"
end if

Response.Write("<tr bgcolor=" & chr(34) & dwStripe & chr(34) & ">" & Chr(13))
if sLine(7) = "Yes" then
Response.Write(" <td align=" & chr(34) & "center" & chr(34) & "><font face=" & "Tahoma" & " size=1>" & "In/Out" & "</font></td>")
else
Response.Write(" <td align=" & chr(34) & "center" & chr(34) & "><font face=" & "Tahoma" & " size=1>" & "Out" & "</font></td>")
end if
response.Write("<td align=center  class=" & chr(34) & "menulines" & chr(34) & "><font face=tahoma size=1><a href=" & chr(34) & "/viewhome.asp?MLS=" & sLine(0) & chr(34) & " TITLE=" & chr(34) & "Click to View MLS#" & sLine(0) & chr(34) &"><b>" & sLine(0) & "</b></font></td>" & chr(13)) 
If FSO2.FileExists(Server.MapPath("/images/" & sLine(0) & "/" & sLine(0) & ".wav")) Then 
Response.Write("<td align=" & chr(34) & "center" & chr(34) & "><img src=" & chr(34) & "/webimages/speaker.gif" & chr(34) & " ALT=" & chr(34) & "MLS# " &  sLine(0) & " Is Multimedia Enhanced!" & chr(34) & "></td>" & Chr(13))
Else 
Response.Write("<td align=" & chr(34) & "center" & chr(34) & ">&nbsp;</td>")
End if
response.Write("<td align=center><font face=tahoma size=1>" & FormatCurrency(sLine(1),0,0) & "</font></td>" & chr(13))
response.Write("<td align=center><font face=tahoma size=1>" & sLine(5) & "</font></td>" & chr(13))
response.Write("<td align=center><font face=tahoma size=1>" & sLine(6) & "</font></td>" & chr(13))
response.Write("<td align=center><font face=tahoma size=1>" & sLine(3) & "</font></td>" & chr(13))
If FSO2.FileExists(Server.MapPath("/ctrfiles/notes/" & sLine(0) & ".txt" )) Then
Response.Write(" <td align=" & chr(34) & "center" & chr(34) & "><a href=" & chr(34) & "/ctrfiles/notes/notes.asp?MLS=" & sLine(0) & "&ID=" & sLine(1) & "&RL=" & sLine(2)  & chr(34) & " " & "onclick=" & chr(34) & "NewWindowB(this.href,'noteswin','420','340','no');return false" & chr(34) & " " & "onfocus=" & chr(34) & "this.blur()" & chr(34) & "><img src=" & chr(34) & "/webimages/ball90.gif" & chr(34) & "border=" & chr(34) & "0" & chr(34) & "ALT=" & chr(34) & "Click for Agent's Personal Notes!" & chr(34) & "></a></td>" & Chr(13))
else
Response.Write(" <td align=" & chr(34) & "center" & chr(34) & "><font face=" & "Tahoma" & " size=1><b>&nbsp;</b></font></td>" & Chr(13))
end if
response.Write("</tr>" & chr(13))
  End if
End if
Loop
MyTFile.Close
Response.Write("<tr bgcolor=" & chr(34) & "#ffffff" & chr(34) & ">" & Chr(13))
response.Write("<td align=center colspan=8><font face=tahoma size=1>" & Chr(13))
response.Write("<hr color=#e6e6e6><b class=""r"">Your Settings are Currently:</b> " & chr(13))
response.Write("<u>From</u>: " & FormatCurrency(Request.Cookies("MyHouseView")("from"),0,0) & " <u>To</u>:" & chr(13))
response.Write(FormatCurrency(Request.Cookies("MyHouseView")("to"),0,0) & chr(13))
response.Write( Request.Cookies("MyHouseView")("bed") & " <u>Bedroom</u> " & chr(13))
response.Write( Request.Cookies("MyHouseView")("bath") & " <u>Bath</u> " & chr(13))
response.Write(" <u>In</u>: "  & Request.Cookies("MyHouseView")("location1") & chr(13))
response.Write(" <u>Or</u>: " & Request.Cookies("MyHouseView")("location2") & chr(13))
response.Write("<br><a href=""/myhouseview.asp"">Click Here</a> to Edit your Settings" & chr(13))
response.Write("</font></td></tr>" & chr(13)) 
response.Write("</table>" & chr(13))
response.Write("</SPAN></FONT></TD></TR></TBODY></TABLE></TD></TR></TBODY></TABLE><BR>")
response.Write("</center>")
Set FSO2 = Nothing
End if 
%>



<center>
<%
If strshowads Then 
 Call JBS(8)
End if
%>
<br><br>
<table border="0" width="515"><tr><td align="center" valign="top"><img src="/webimages/new.gif"></td>
<td align="center" valign="middle">
<a href="/toolbar/download.asp?go=http://www.houseviewonline.com/toolbar/toolbar.asp">
<img src="/webimages/toolbar.jpg" ALT="Get your HouseViewOnline.com Toolbar!" Width="480" height="40" border="0">
</a>
<font face="Tahoma" size="1"><b>HouseViewOnline.com Toolbar works only with IE Browsers and Windows.</b></font>
</td></tr></table>
<br>


<% 
If strshowads Then 
 Call JBS(2)
End if
%>

<br>
<font face="Tahoma" size="1" color="#990000"><b>
<%
Dim dHour
dHour = Hour(Now)

If dHour < 12 Then
	Response.Write "Good Morning! "
ElseIf dHour < 17 Then
	Response.Write "Good Afternoon! "
Else
	Response.Write "Good Evening! "
End If
Response.Write "&nbsp;"
%></b>
Welcome to HouseViewOnline.com...
&nbsp;Today is <%=WeekdayName(Weekday(Date))%>
&nbsp;<%=now()%></font>
</center>

<% If strshowads Then %>
<!--#include virtual="/JBSX/include/close_JBS.asp"-->
<% End if %>

 <!--#INCLUDE VIRTUAL="/common/footer.inc" --> 
