Forest Pond Cottage ~ Guest Book

<% 'CONDITION TEST If Request("a") = "b" Then Call Confirm Else Call FillForm End If %> <%sub FillForm%>

To add a message, please fill out this form. Thanks!

* Name:

* City:

* State:

* Email:

How did you here about Forest Pond Cottage?

Internet

Brochure

Other

* Tell us about your visit...

<%End Sub%> <%Sub Confirm%> <% 'VARIABLES name = Request.Form("admin_name") city = Request.Form("admin_city") state = Request.Form("admin_state") email = Request.Form("admin_email") radios = Request.Form("radios") other = Request.Form("other") text = Request.Form("admin_text") %>

Your guestbook message has been emailed to Forest Pond Cottage and will be posted within 2 business days. Thanks!

Name:

<% = name %>

City, State:

<% = city %>, <% = state %>

Email:

<% = email %>

Message:

<% = text %>

<% dim messagetxt messagetxt = "This message is from the Guest Book page of ForestPondCottage.com" & vbCrLf messagetxt = messagetxt & "Name: " & name & vbCrLf messagetxt = messagetxt & "Address: " & city & ", " & state & vbCrLf messagetxt = messagetxt & "Email: " & email & vbCrLf messagetxt = messagetxt & "Source: " & radios & vbCrLf messagetxt = messagetxt & "Message: " & text & vbCrLf dim objmail set objmail = Server.CreateObject("CDONTS.NewMail") objmail.Send "guestbook@forestpondcottage.com","davidmattimore@yahoo.com","Guest Book Entry",messagetxt %> <%End Sub%>