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