<% If Session("houseviewlogin") = "" OR Session("houseviewpass") = "" OR Session("houseviewgroup") = "" then Response.Redirect "login.asp" End If Dim sortdata,MLS MLS = Request.Querystring("MLS") sortdata= Session("houseviewgroup") if sortdata = "" then response.redirect ("login.asp") end if %>

<%=straddress%>

<%=strtitle%> Stats Currently Logged in: <%=Session("houseviewlogin")%> of <%=Session("houseviewAgency")%>

Add Open House Listing <%StatWriteMenu%> <%=Session("houseviewAbb")%>  of: <%=Session("houseviewAgency")%>  Open House Entry For MLS#<%=MLS%> Enter Address and Time Below Open House will Show Automatically <% Dim strPath Dim objFSO Dim objFolder Dim strLine,strcity,strstreet,strstate,strzip,strnotes,strtime strPath = "../notes/" Set objFSO = Server.CreateObject("Scripting.FileSystemObject") Set objFolder = objFSO.GetFolder(Server.MapPath(strPath)) If objFSO.FileExists(Server.MapPath("../notes/" & MLS & "oh.txt" )) Then Set MyTextFile = objFSO.OpenTextFile(Server.MapPath("../notes/" & 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 end if %> Open House Information: ALL FIELDS ARE REQUIRED Time and Date: City:"> Street address:"> State: Zip: Notes:

<% Set objFolder = Nothing Set objFSO = Nothing %>