<% Response.Buffer = True %> [an error occurred while processing this directive] <% '****************************************** 'Config Code for Houseview***************** '****************************************** strtitle = "Houseviewonline.com" straddress = "http://www.houseviewonline.com" strlink = "black" strvisited = "#585858" strhover = "red" strkeywords = "" strdescription = "Panoramic home Viewing" strstaticimage = "static.jpg" stremail = "lori@houseviewonline.com" strdwstripelight = "#FFFFFF" strdwstripedark = "#EEEECC" strfontface = "Tahoma,Verdana,sans-serif" strbackgroundcolor = "#FFFFFF" strbackgroundimage = "" strpanotext = "360°/180°" strstilltext = "Stills" strcontrolpanel = "http://ftp.houseviewonline.com/controlpanel/controlpanel.asp?SID=1718984543&txtSiteID=8&txtUser=houseviewonline&bwuser=Houseviewonline.com&AU=20000000000&AB=300000&sessions=" & application("vSessions") & "&fw=houseview" strshowads = True '****************************************** 'End Configuration Code******************** '****************************************** %> <% StatLog 'Function to do Agency Specific Fonts------------------------------ function Getfontface(usegrouping) Getfontface = "Tahoma" Select Case usegrouping Case 9 Getfontface = "Realty Executives" End Select end function 'Function to do Agency Specific Fonts------------------------------ %> HouseViewOnline Online Real Estate for Southeast Missouri, including Cape Girardeau & Jackson MO
Click to return home Login 
Click to return home
  Property search::.
<% Dim FSO,MyTFile,sLine,count,dailydeal,recordsfile,Totalrecords,top10stripe Set FSO = Server.CreateObject("Scripting.FileSystemObject") 'Get the Total Record Count Set recordsfile = fSO.OpenTextFile(Server.MapPath("/database/recordcount.txt")) Totalrecords = recordsfile.ReadLine recordsfile.Close Set recordsfile = Nothing Totalrecords = Cint(Totalrecords) 'Stlouisshowcase.com----------------- Set recordsfile = fSO.OpenTextFile("d:\webroot\localuser\stlouisshowcase\database\recordcount.txt") Totalrecords = Totalrecords + Cint(recordsfile.ReadLine) recordsfile.Close Set recordsfile = Nothing 'Gatewayhouseview.com----------------- Set recordsfile = fSO.OpenTextFile("d:\webroot\localuser\gatewayhouseview\database\recordcount.txt") Totalrecords = Totalrecords + Cint(recordsfile.ReadLine) recordsfile.Close Set recordsfile = Nothing 'Sihometours.com----------------- Set recordsfile = fSO.OpenTextFile("d:\webroot\localuser\sihometours\database\recordcount.txt") Totalrecords = Totalrecords + Cint(recordsfile.ReadLine) recordsfile.Close Set recordsfile = Nothing 'Fluff it up a bit Totalrecords = Totalrecords + 500 %>
<%=Totalrecords%> Listings Currently Online

-- Search All Listings --
  ">
 Search Examples:
 Fireplace, Pond, or MLS#...


Current Scheduled Open House Listings

  Latest 10 Listings::.
<% Set MyTFile = FSO.OpenTextFile(Server.MapPath("/database/newlistings.txt"),1,-2) Count = 1 Do While MyTFile.AtEndOfStream <> TRUE sLine = Trim(Server.HTMLEncode(MyTFile.ReadLine)) sLine = Split(sLine, "|") if top10stripe = "#f5f5eb" then top10stripe = "#ffffff" else top10stripe = "#f5f5eb" end if %> <% If count = 3 then dailydeal = "MLS#" & sLine(0) & " - " & FormatCurrency(sLine(1),0,0) & "
" & sLine(3) & " - " & sLine(5) & " Bed, " & sLine(6) & " Bath
" & Chr(13) End if count = count + 1 Loop %>
Click to view MLS #<%=sLine(0)%> <%="[" & count & "]"%> Listing #<%=sLine(0)%>
<%=FormatCurrency(sLine(1),0,0)%>
<%=sLine(3)%>, <%=sline(13)%>

Last Updated:
<%=FSO.GetFile(Server.MapPath("/database/newlistings.txt")).DateLastModified%>
<% MyTFile.close Set FSO = Nothing %> Clcik link to the Houseviewonline.com Latest 10 RSS Feed
Panoramic Home Viewing in the Cape Girardeau Area!