<%Const bDeleteEntries = FalseDim bForcebForce = ""Dim strFile ' String variable to store the path / file we write tostrFile = Server.MapPath("guestbook.txt")If Request.Form.Count = 0 Then ' Display the entry form. %> <%Else ' Log the entry to the guestbook file Dim objFSO 'FileSystemObject Variable Dim objFile 'File Object Variable ' Create an instance of the FileSystemObject Set objFSO = Server.CreateObject("Scripting.FileSystemObject") ' Open the TextFile (FileName, ForAppending, AllowCreation) Set objFile = objFSO.OpenTextFile(strFile, 8, True) ' Log the results objFile.Write "" objFile.Write Server.HTMLEncode(Request.Form("name")) objFile.Write ": " objFile.Write Server.HTMLEncode(Request.Form("comment")) objFile.Write "
" objFile.WriteLine "" ' Close the file and dispose of our objects objFile.Close Set objFile = Nothing Set objFSO = Nothing ' Tell people we've written their info %> <%End IfIf bDeleteEntries Then Set objFSO = Server.CreateObject("Scripting.FileSystemObject") Set objFile = objFSO.GetFile(strFile) If DateDiff("d", objFile.DateLastModified, Date()) <> 0 Or bForce <> "" Then Set objFile = Nothing ' Can't use delete because we need the file to exist for ' the include the next time the script is run! 'objFile.Delete ' Create a file overwriting old one. Set objFile = objFSO.CreateTextFile(strFile, True) ' The include barks if the file's empty! objFile.Write "John: " objFile.WriteLine "I hope you like our guestbook!
" objFile.Close End If Set objFile = Nothing Set objFSO = NothingEnd If%>