<%
session("GformFlag")= session("GformFlag") + 1
If session("GformFlag") = 1 Then

Rem Get the current number of hits for this page
Set FileObject = Server.CreateObject("Scripting.FileSystemObject")
OtherCounterFile = Server.MapPath ("/guest") & "\Gform.txt"
Set InStream= FileObject.OpenTextFile (OtherCounterFile, 1, False, False)
Number = Instream.Readline
Instream.close
application.lock
application("GformCount") = Number
Set OutStream= FileObject.CreateTextFile (OtherCounterFile, True, False)
application("GformCount") = application("GformCount") + 1
OutStream.WriteLine application("GformCount")
OutStream.close
application.unlock
End If



Dim FileObject, OutStream, InStream

'Set up the email notification info here to save speed up form submissition

'Set DafTools = Server.CreateObject("daftools.daftools.1")
'MailServer = "ns.cosentini.com"
'ReturnPath = "nabrams@cosentini.com"
'Subject = "Your Guest Book has been updated"
REM Subject = "Admin Guest Book"
'MailTo = "nabrams@cosentini.com"


Set objMail = CreateObject("CDONTS.Newmail")
objMail.From = "nabrams@barbneal.com"
objMail.To = "nabrams@cosentini.com"
objMail.Subject = "Your Guest Book has been updated"



Action = UCase(Request("Action"))
SubmitName = 0
SubmitEmail = 0
Msg1 = "Please enter your name. *" 
Msg2 = "Please enter your email address. *" 
Msg3 = "Please enter your comments." 


' Do Some form validation
If Action = "SUBMIT" Then	'The form has been submitted

     If Request("name") = "" Then
       Msg1 = "Please enter your name, this field is required." 
     Else SubmitName = 1
     Msg1=""
     End If

     If InStr(Request("email"), "@") = 0 Then 
       Msg2 = "Please enter an email address" & _
      " in the form username@location *"
       SubmitEmail = 0
     Else SubmitEmail = 1
     Msg2=""
     End If

     If Request("comments") = "" Then
       Msg3 = "Please enter your comments." 
     End If

     Submit = SubmitName + SubmitEmail

     'Check file for duplicates
          If Submit = 2 Then   
              Set FileObject = CreateObject("Scripting.FileSystemObject")
              GuestFile = Server.MapPath ("/guest") & "\guests.txt"
              Set InStream= FileObject.OpenTextFile (GuestFile, 1, False, False)
              While not InStream.AtEndOfStream
                 Instream.SkipLine()
                 If LCase(Request.Form("name"))= LCase(Instream.Readline)Then
                    Msg1 = "Sorry, this name already exists in the guest book."
                    Submit=0
                 End If
                 If LCase(Request.Form("email"))= LCase(Instream.Readline)Then
                    Msg2 = "Sorry, this address already exists in the guest book."
                    Submit=0
                 End If
                 Instream.SkipLine()
              Wend
              InStream.Close
              Set Instream=Nothing
           End If

     If Submit = 2 Then	 'No duplicates found, add the record

           Name = Request.Form("name")
           Email = Request.Form("email")
           If Request("comments") = "" Then
              Comments="none"
              Else Comments = Request("comments")
           End If

rem   This is needed for sending the the e-mail
           UserName = Request.Form("name")
           UserEmail = Request.Form("email")
           If Request("comments") = "" Then
              UserComments="none"
              Else UserComments = Request("comments")
           End If



           application.lock
           Set FileObject = CreateObject("Scripting.FileSystemObject")
           NewGuestFile = Server.MapPath ("/guest") & "\guests.new"
           Set OutStream = FileObject.OpenTextFile(NewGuestFile, 2, True)
           OutStream.WriteLine (Now)
           OutStream.WriteLine (Name)
           OutStream.WriteLine (Email)
           OutStream.WriteLine (Comments)

rem   Create guests.new and write the First record with the new entry,
rem   then append all the previous ones
           Guestfile = server.mappath ("/guest") & "\guests.txt"
           set Instream= fileobject.opentextfile (Guestfile, 1, false, false)
           while not Instream.atendofstream
              Anow = Instream.Readline
              OutStream.WriteLine (Anow)
              Name = Instream.Readline
              OutStream.WriteLine (Name)
              Email = Instream.Readline
              OutStream.WriteLine (Email)
              Comments = Instream.Readline
              OutStream.WriteLine (Comments)
           Wend
           InStream.Close
           OutStream.Close
           Set InStream = Nothing

rem   Now create and write all the entries to guests.txt
rem   We have to do this until we get a file copy/rename component
           set Instream= fileobject.opentextfile (NewGuestfile, 1, false, false)
           set OutStream = FileObject.OpenTextFile(GuestFile, 2, True)
           while not Instream.atendofstream
              Anow = Instream.Readline
              OutStream.WriteLine (Anow)
              Name = Instream.Readline
              OutStream.WriteLine (Name)
              Email = Instream.Readline
              OutStream.WriteLine (Email)
              Comments = Instream.Readline
              OutStream.WriteLine (Comments)
           Wend
           InStream.Close
           OutStream.Close
           Set InStream = Nothing
           application.unlock


rem     'Send me some mail
        'Data = "Your guest book was updated by visitor " & session("visitorcount") & chr(10) & "Name: " & UserName & chr(10) & "Email: " & UserEmail & chr(10) & "Comments: " & UserComments
        'Status = DafTools.SendMail(MailServer,ReturnPath,Subject,MailTo,Data)

        objMail.Body = "Your guest book was updated by visitor " & session("visitorcount") & chr(10) & "Name: " & UserName & chr(10) & "Email: " & UserEmail & chr(10) & "Comments: " & UserComments
	  objMail.Send
	  Set objMail = Nothing


rem     'Display the guest book
     response.redirect ("/guestbook.htm")

     End If	'Submit

End If	'Action
%>


<html>
<head>
<title>Sign the guest book of Neal Abrams</title>
<meta name="author" content="Neal Abrams">
<meta name="authoring.tool" content="HotDog">
<meta name="description" content="The guest book of Neal Abrams">
<meta name="keywords" content="guestbook">
<meta name="distribution" content="global">
<meta name="resource-type" content="document">
</head>

<body background="graphics/cstbgnd.gif" text="#FF00FF" link="#FFFF00" vlink="#0080FF">
<center>
<% 'Here's where the guest book display begins. %>

<table border="0" width="600" cellpadding="0" cellspacing="10">
<tr align=center><img src="graphics/guest3.gif" width=585 height=37></tr>
<br><br>

<img src="graphics/divider.gif" align="bottom" width="600" height="5"><p>
</table>


<table border="0" width="600" cellpadding="0" cellspacing="10">
<tr><td align=center><h4>Thank you for taking the time to sign my guest book.</h4></tr></td>
<tr><td></tr></td>
<form method=post action="guestform.htm">
<tr><td><font color="#00FFFF"><%= Msg1 %></font></td></tr>
<tr>
   <td><input name="name" type="TEXT" size="24" value="<%= Request("name") %>"</td>
</tr>
<tr><td><font color="#00FFFF"><%= Msg2 %></font></td></tr>
<tr>
   <td><input name="email" type="TEXT" size="36" value="<%= Request("email") %>"</td>
</tr>
<tr><td><font color="#00FFFF"><%= Msg3 %></font></td></tr>
<tr>
   <td><input name="comments" type="TEXT" size="72"  value="<%= Request("comments") %>"></td>
</tr>
<tr>
   <td><input  type="SUBMIT" name="Action" value="Submit"><input  type="RESET" value="Reset"></td>
</tr>

</form>
<tr><td><font size="-1"><font color="#00FFF">*</font> This field is required.</font></td></tr>
</table>

<p>
<table cellpadding="0" cellspacing="0" width="600">
    <tr>
        <td><h5><a href="#top">Back to Top</a></h5><p>

	<center>
	<img src="graphics/divider.gif" align="bottom" width="600" height="5"><p>
	<a href="default.htm">Home</a> - <a href="wav.htm">The .WAV Collection</a> - <a href="links.htm">The Links Page</a> - <a href="aboutme.htm">About Me</a>
	<p><a href="guestbook.htm">View Guest Book</a> - <a href="software.htm">My Software</a> - <a href="whatsnew.htm">What's New</a><p>
	<p><a href="search.htm">Search this Site</a><p>
	<img src="graphics/divider.gif" align="bottom" width="600" height="5"><p>
	<font size="-2">Page last updated on November 28, 1997 4:10 PM<br>
	
	Previous session logged in at: <%= session("LastVisitorTime")%>.
	</font>
	</center>

        </td>
    </tr>
</table>

</center>

</body>
</html>