<%
dim success
success = ""
if Request.ServerVariables("REQUEST_METHOD") = "POST" Then
'send the user an email
dim message
set message = CreateObject("CDO.Message")
message.Subject = "Legacy Cruise II: Feedback"
message.To = "RayDersBerlin@gmail.com"
message.From = Request.Form("Email")
message.HTMLBody = "From: " & Request.Form("Name") & "
" &_
"Feedback: " & Request.Form("Comments")
'message.Send
set message = Nothing
if err = 0 then
success = "Your message has been sent to Steve. Thanks for the feedback!"
else
success = "An error has occurred. Please try again!"
end if
end if
%>
Legacy Cruise II