Make an entry to the guestbook. Click Here to view the Archive Guestbook entries (from July 1997-June 2001)
Here are what some previous guests have written:
<%
MyFile = "D:\Inetpub\NewWeb\pages\guestbook\guestbook1.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
%>
