<% On Error Resume Next If Request.Form("hname") = "" Then ' This part of the script allows a person ' to enter data on an HTML form. %>

Name:




Email Address:


Your URL:


 





Baxk

<% Else ' This part of the script shows a person ' what was selected. %> <% If Request.Form("webpage") = "" Then %> <% url = "" %> <% If Request.Form("name") = "" Then %> <% name = ANONYMOUSUSER %> <% Else %> <% name = Request.Form("name") %> <% End If %> <% Else %> <% url = Request.Form("webpage") %> <% If Request.Form("name") = "" Then %> <% name = "" & ANONYMOUSUSER & "" %> <% Else %> <% name = "" & Request.Form("name") & "" %> <% End If %> <% End If %> <% If Request.Form("email") = "" Then %> <% emailaddress = "" %> <% Else %> <% emailaddress = " (" & Request.Form("email") & ")" %> <% End If %> <% If Request.Form("describe") = "" Then %> <% comment = NOGASPBOOKCOMMENT %> <% Else %> <% comment = Request.Form("describe") %> <% End If %>
Thank you for adding a note to our guestbook. Your message will appear as follows:

<% Set FileObject = Server.CreateObject("Scripting.FileSystemObject") GuestBookFile = Server.MapPath (GASPBOOKFILEDIRECTORY) & "\gASPdata.html" Set OutStream= FileObject.OpenTextFile (GuestbookFile, 8, True) OutputString = "" OutStream.WriteLine OutputString Response.Write "

" & OutputString & "

From: " & name & emailaddress & "Date: " & Now() & "
" & comment & "
" Set OutStream = Nothing %>

Baxk <% End If %>