<% Dim MLS MLS = Request("MLS") %>

<%=straddress%>

<%=strtitle%> Stats <%=strtitle%> Notes Administration

Add Open House <%StatWriteMenu%> <%=strtitle%> Admin  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 %>