<%
' 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 Get To Know Me
' out the Request.QueryString line and unGet To Know Me the "" one.
Dim bForce
bForce = Request.QueryString("")
'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("gettoknowme.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.
%>
Please submit 3-5 questions each. Once everyone has submitted their questions, you can pick about 5-7 questions to answer (preferably not your own). If you want to answer more than 7, please feel free just keep in mind that we want everyone to have about 6 or 7 minutes each to go over their questions and answers. This is an individual effort, not as a couple. Be prepared to share on Friday August 8th.
PRINT QUESTIONS
<% 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) If InStr(1, Request.Form("Get To Know Me"), "http://", 1) = 0 Then ' 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 "Submitted by " objFile.Write Server.HTMLEncode(Request.Form("name")) objFile.Write " on " objFile.Write Server.HTMLEncode(Request.Form("tdate")) objFile.Write "
" objFile.WriteLine "" objFile.Write "" objFile.Write Server.HTMLEncode(Request.Form("Your Question")) objFile.Write "
" objFile.WriteLine "" End If ' Close the file and dispose of our objects objFile.Close Set objFile = Nothing Set objFSO = Nothing ' Tell people we've written their info %>
Your Question has been submitted
Return to Question List <% End If ' We do this to delete the file every day to keep it managable. ' If you were doing this for real you probably wouldn't want to ' do this so we have defined a const named bDeleteEntries at the ' top of the script that you can set to False to prevent this ' section from running. You could also delete this whole ' If Then....End If block if you'd like. Just be sure to leave ' the script delimiter at the bottom! If 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 Get To Know Me!" objFile.Close End If Set objFile = Nothing Set objFSO = Nothing End If %>
