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

<% BannerZone = 5 %>
<center><!--#INCLUDE FILE="aspbanner/aspbanner_inc.asp"--></center>

      <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 -->  
<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>
<% IF foundweatherimage Then %>
<td align="center" rowspan="5"><a href="/Weather/Radar_Image.jpg" onclick="NewWindowB(this.href,'Radar','650','480','yes');return false" onfocus="this.blur()"><img src="<%=strlocalweatherimage%>" WIDTH="55" HEIGHT="58" ALT="Click For National Radar Image" BORDER="0"></a></td>
<% Else %>
<td align="center" rowspan="5"><img src="/weather/na.jpg" WIDTH="55" HEIGHT="58" ALT="Weather Image Not Available"></td>
<% End If %>
<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>
</table>
</fieldset>

                </TD></TR>
              <TR>
                <TD bgColor=#ffffff colSpan=2>
 <!-- Dynamic News Feed by Yahoo/Houseviewonline.com --> 
 <!--#INCLUDE VIRTUAL="/weather/news_inc.asp" -->   
                </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><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>
<div align="center">
<img src="/webimages/HVNEWFULLsmall.jpg" ALT="Welcome to houseviewonline.com">
<br><FONT face=Verdana size=1><em>.::HouseViewOnline.com::.</em></font>
</div>

</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">
<%
'Dim varAd, objAd
'Set objAd=Server.CreateObject("MSWC.AdRotator")
'objAd.TargetFrame="target='_new'"
'varAd=objAd.GetAdvertisement("/ctrfiles/ads/adrot.txt")
'Set objAd=Nothing
'Response.Write(varAd)
%>


<% BannerZone = 2 %>
<!--#INCLUDE FILE="aspbanner/aspbanner_inc.asp"-->

</a>



                     </TD></TR>


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



                Serving the Real-estate community since  
            1999, HouseViewonline is a Consumer Tool taking Home Viewing to a new level. We 
            realized the simple truth about online Home 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....


</font>
<br>
<img src="/webimages/static.jpg">



 <!-- HouseView Publication Ad -->  
<fieldset>
<legend><font face="Tahoma" size="1" color="#990000"><b>&nbsp;<%=Monthname(month(date()))%> HouseView Publication!&nbsp;</b></font></legend>
<table border="0" width="100%" cellpadding="2" cellspacing="0">
<tr>
<td align="left"><a href="/magazine/webmag/"><img src="/magazine/webmag/thumbs/HV01.jpg" WIDTH="100" HEIGHT="127" ALT="Take an online Peek at the Latest Issue!" border="0"  align="RIGHT"></a>
<font face="tahoma" size="1">
&nbsp;&nbsp;Check out the <%=Monthname(month(date()))%> Issue of the <a href="/magazine/webmag/" TITLE="Take an online Peek at the Latest Issue!"><b>HouseView Magazine</b></a>. You Love HouseViewOnline.com, now take it anywhere. This is a full color publication featuring hundreds of listings from the Cape Girardeau Area offered by the area's leading real estate professionals. 
Inside you will find high quality imaging with numerous inside and outside photos of all of the listings in full vibrant color.
You can pick up your <u>FREE</u> copy at local real estate offices and participating merchants.<br>
&nbsp;&nbsp;If you are interested in participating or advertising in the <a href="/magazine/webmag/" TITLE="Take an online Peek at the Latest Issue!"><b>HouseView publication</b></a>, contact: <a href="mailto:advertising@houseviewonline.com">advertising@houseviewonline.com<a><br></font></td>
</tr>
</table>
</fieldset>



        <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 Panoramic Home viewing for the Cape Girardeau 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>


            <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")) 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")) 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>
<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>


<% BannerZone = 1 %>
<!--#INCLUDE FILE="aspbanner/aspbanner_inc.asp"-->
<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>

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