<% Dim objFSO,MyFileObj,strLine,strcity,strstreet,strstate,strzip,strnotes,strtime,MLS MLS = Request("MLS") if Request.Form("btndelete") = "Delete Open House" then Set objFSO = Server.CreateObject("Scripting.FileSystemObject") If objFSO.FileExists(Server.MapPath("/ctrfiles/notes/" & MLS & "oh.txt" )) Then objFSO.deletefile(Server.MapPath("/ctrfiles/notes/" & MLS & "oh.txt" )) end if Set objFSO = Nothing Response.Redirect ("adminopenhouse.asp?GROUPING=" & Request.Querystring("GROUPING")) end if if Request.Form("btnsave") = "Save Open House" then Set MyFileObj = Server.CreateObject("Scripting.FileSystemObject") Set MyTextFile = MyFileObj.CreateTextFile(Server.MapPath("/ctrfiles/notes/" & MLS & "oh.txt"), 1, 0) MyTextFile.Writeline (Replace(Request.Form("city"), " ", "+") & "|" & Replace(Request.Form("street"), " ", "+") & "|" & Request.Form("state") & "|" & Request.Form("zip") & "|" & Request.Form("time") & "|" & Request.Form("notes")) MyTextFile.Close Set MyFileObj = Nothing Response.Redirect ("adminopenhouse.asp?GROUPING=" & Request.Querystring("GROUPING")) end if Set objFSO = Server.CreateObject("Scripting.FileSystemObject") If objFSO.FileExists(Server.MapPath("/ctrfiles/notes/" & MLS & "oh.txt" )) Then Set MyTextFile = objFSO.OpenTextFile(Server.MapPath("/ctrfiles/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 Set objFSO = Nothing %> Open House Information for Lisitng# <%=Request("MLS")%>

&GROUPING=<%=Request.Querystring("GROUPING")%>" METHOD=POST> Open House Information: ALL FIELDS ARE REQUIRED Time and Date: City:"> Street address:"> State: Zip: Notes: