<% 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 Notes <%StatWriteMenu%> <%=Session("houseviewAbb")%>  of: <%=Session("houseviewAgency")%>  Notes Entry For MLS#<%=MLS%> Enter in Information Below Html Tags Supported <% Dim strPath Dim objFSO Dim objFolder strPath = "../notes/" Set objFSO = Server.CreateObject("Scripting.FileSystemObject") Set objFolder = objFSO.GetFolder(Server.MapPath(strPath)) If objFSO.FileExists(Server.MapPath("../notes/" & MLS & ".txt" )) Then Set MyTextFile = objFSO.OpenTextFile(Server.MapPath("../notes/" & MLS & ".txt" )) WHILE NOT MyTextFile.AtEndOfStream Response.Write(MyTextFile.ReadLine & Chr(10)) WEND MyTextFile.Close end if %> <% Response.Write(Server.HTMLEncode("To Get Bold text: Your text here") & " ") Response.Write("      Bold Result: Your text here" & " ") Response.Write(Server.HTMLEncode("To Get Colored text: Your text here") & " ") Response.Write("      Color Result: Your text here" & " ") Response.Write(Server.HTMLEncode("To Get Sized text: Your text here") & " ") Response.Write("      Sized Result: Your text here" & " ") Response.Write(Server.HTMLEncode("All: text") & " ") Response.Write("      Result: text" & " ") Response.Write(" Colors: Blue ") Response.Write("Red ") Response.Write("Green ") Response.Write("Black ") Response.Write("yellow ") Response.Write("Gray ") Response.Write("orange ") Response.Write("purple ") Response.Write("lime ") Response.Write("pink ") Response.Write("cyan ") Response.Write("brown  ") Response.Write("Sizes: use 1 thru 6 max ") Response.Write("Custom Colors: Click Here ") Response.Write("Example Entry: Click Here ") %>

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