This is my guestbook. Use this form to submit your greeting:
<%
MyFile = "c:\guestbook.txt"
'Opens the guestbook file if it exists
Set MyFileObj=Server.CreateObject("Scripting.FileSystemObject")
IF MyFileObj.FileExists(MyFile) THEN
Set MyTextFile=MyFileObj.OpenTextFile(MyFile)
'Reads a line, and outputs it
WHILE NOT MyTextFile.AtEndOfStream
%>
<%=MyTextFile.ReadLine%>
<%
WEND
'Closes the textfile
MyTextFile.Close
END IF' Does file exist
%>