Introducing Genevieve Millie Alexander
aka "Project Becticia"
Born: 02-13-2006
Birth Time: 7:53 am
@ Banner Baywood Medical Center
Weight: 7 lbs 1 oz
Length: 20 in. |
|
<%
' This is used to control whether or not we empty the guestbook at
' the first hit after midnight. We do it just to keep the list
' short. You'll probably want to set this to False
Const bDeleteEntries = False
' Allows us to easily clear the guestbook if we notice someone is
' getting rude! All you need to do is pass it ?force=anything
' Possibly something else you might not want. To disable it comment
' out the Request.QueryString line and uncomment the "" one.
Dim bForce
bForce = Request.QueryString("force")
'bForce = ""
' Now that we're done implementing features you probably won't want,
' let's get to the actual script...
Dim strFile ' String variable to store the path / file we write to
' I use MapPath here to make the script somewhat location independent.
' If I specified the physical path, you'd need to edit it to run this
' on your own server. This way it should work fine as long as it's in
' the same directory as the guestbook file. The include line also
' needs to be changed if you change this! This file needs to exist
' BEFORE you run this script!
strFile = Server.MapPath("./guestbook.txt")
' If the script doesn't have anything posted to it we display the form
' otherwise we process the input and append it to the guestbook file.
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
' I simply bold the name and do a
.
' You can make it look however you'd like.
' Once again I remind readers that we by no means claim to
' be UI experts. Although one person did ask us if we had a
' graphic designer! I laughed so hard that I almost hurt myself!
' objFile.Write "
"
objFile.Write "| "
objFile.Write now
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
%>
<%
End If
%>
