<% @ Language=VBScript %> Guestbook
Home Page Newsletter Photo Album Family Links

Guest Book

<% If Request.Form.Count = 0 Then %>

We'd like to hear from you.  Please leave your comments to be posted on this page or submit them to us privately.  If you select the checkbox to keep the submission private, it will be emailed to the Morgans, but not posted on this page.  Skip to the bottom of this page to read previous entries.

Sign In And Add Your Comments

Name: Email:
Check here if you would like to keep your submission private.

After you submit your comments, you may need to reload this page with your browser in order to see your additions to the log.

<% else %>

Thank you for your entry. <% Dim HTML Dim strInfo Dim strFrom Dim strEmail Dim strTextFile Dim strPrivate strPrivate = Request.Form("Private") strTextFile = Server.MapPath("guestbook.txt") strHttp_Referer = Request.ServerVariables("HTTP_REFERER") strRemote_Address = Request.ServerVariables("REMOTE_ADDR") Dim myMail Set myMail = CreateObject("CDONTS.NewMail") strInfo = strInfo & "
Name:" & Request.Form("Name") strInfo = strInfo & "Email:" & Request.Form("Email") strInfo = strInfo & "
Comment or Question:

" & Request.Form("Comment") strInfo = strInfo & "

" HTML = "" HTML = HTML & "" HTML = HTML & "" HTML = HTML & "" HTML = HTML & "MID Contact" HTML = HTML & "" HTML = HTML & "" HTML = HTML & "

" HTML = HTML & "MID Contact Form Submission

" HTML = HTML & "

" HTML = HTML & "The following information was submitted through the MID Contact Form.

" HTML = HTML & strInfo HTML = HTML & strHttp_Referer & "
" HTML = HTML & strRemote_Address & "
" HTML = HTML & "

" HTML = HTML & "" HTML = HTML & "" If (inStr(Request.Form("Email"),"@")) Then strFrom = Request.Form("Email") Else strFrom = "noaddress@nowhere.none" myMail.From=strFrom myMail.To="email@morganinternetdesign.com" myMail.Subject="MID Contact Form" myMail.BodyFormat=0 myMail.MailFormat=0 myMail.Body=HTML myMail.Send set mymail=nothing If strPrivate <> "ON" Then ' Log the entry to the guestbook file Dim objFSO 'FileSystemObject Variable Dim objTextFile 'File Object Variable ' Create an instance of the FileSystemObject Set objFSO = Server.CreateObject("Scripting.FileSystemObject") ' Open the TextFile (FileName, ForAppending, AllowCreation) Set objTextFile = objFSO.OpenTextFile(strTextFile, 8, True) objTextFile.Write strInfo objTextFile.Close Set objTextFile = Nothing Set objFSO = Nothing End If End If %>

Previous entries