<%
dim strAddr
dim replyTo
dim strSubject
dim strText
dim itsReady
itsReady = ""
strAddr = Trim(Request.form("user_email"))
if strAddr <> "" then
replyTo = cstr(strAddr)
end if
strSubject = Request.form("user_subject")
strName = Request.form("user_name")
strMsg = Request.form("user_text")
strText = "E-mail from: " & strName & vbCrLf & "Concerning: " & strMsg
if replyTo <> "" then itsReady = send_email()
function send_email()
'Create an object or container for your mail
Dim objMail
Set objMail = Server.CreateObject("CDO.Message")
objMail.To = "josh@summercamptv.com"
objMail.From = "josh@summercamptv.com"
objMail.ReplyTo = replyTo
objMail.Subject = strSubject
objMail.TextBody = strText
objMail.Send 'comment out to test script without sending mail
'Release system resources
Set objMail = Nothing
'Response.Write "
Thank you for using e-mail!
"
if err.number > 0 then
response.write "Errors were encountered in sending your e-mail message. "&_
"Please try again, or contact the webmaster"
else
%>
<%
end if
end function
%>
Untitled Document
SummerCampTV would love to hear any comments you might have. Please leave an e-mail address so that we can contact you.
