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

<%=straddress%>

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

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