<%@ language="VBscript" %>
<%
message_sent = Request.Form("message_sent")
recipient = Request.Form("recipient")
subject = Request.Form("subject")
name = Request.Form("name")
email = Request.Form("email")
comment = Request.Form("comment")
dim message
if message_sent = "yes" then
message = "Thanks for sending us your comment."
else
message = "Use this form to send us a comment."
end if
' This section sends the email to the recipient
' The recipient can of the comment can be adjusted in the hidden input named recipient
dim mailobj
if message_sent = "yes" then
set mailobj = server.createobject("CDONTS.Newmail")
mailobj.From = email & " (" & name & ")"
mailobj.To = recipient
mailobj.Subject = subject
mailobj.Body = comment
mailobj.send
set mailobj = Nothing
end if
%>
Ghostbusters
|
Comments
