<% if Request.ServerVariables("REQUEST_METHOD") = "POST" Then 'send the user an email dim message set message = CreateObject("CDO.Message") message.Subject = "Feedback from Legacy Cruise II Website" message.To = "sberlin@surewest.net" message.From = Request.Form("Email") message.HTMLBody = "From: " & Request.Form("Name") & "

" &_ "Feedback: " & Request.Form("Comments") message.Send set message = Nothing Session("responseString") = "Your message has been sent to Steve. Thanks for the feedback!" 'Redirect to form_submit Response.Redirect "form_submit.asp" end if %> Legacy Cruise II
<%=welcomeString%>

Legacy Cruise II departs in
Home Register & Vote History Attendees Pictures Guestbook Links Feedback

Use this form to send feedback to Steve Berlin about the site
 

Name:
Email:
Comments:
 

 

 

Account Management   Email Newsletter   Voting Results

Copyright © 2005 Legacy Cruise Productions. All Rights Reserved.