Sign Our Guestbook:
<%
' Log the entry to the guestbook file
Dim objFSO 'FileSystemObject Variable
Dim objFile 'File Object Variable
Dim strFile 'Location of the text file.
strFile = Server.MapPath("guestbook.txt")
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
' Open the TextFile (FileName, ForAppending, AllowCreation)
Set objFile = objFSO.OpenTextFile(strFile, 8, True)
objFile.Write Server.HTMLEncode(Request.Form("name"))
objFile.Write Server.HTMLEncode(Request.Form("comment"))
objFile.WriteLine "" 'Puts in a new line.
' Close the file and dispose of our objects
objFile.Close
Set objFile = Nothing
Set objFSO = Nothing
%>
Messages from our Guests::