<% 'Dimension variables Dim objCDOSYSCon, formName, formEmail, formSubject, formComment, eMailSubject, eMailAddress, eMailRedirect %> <% if request.querystring("action") = "mail" then formName = request.form("XX-name") formEmail = request.form("XX-email") formSubject = request.form("1_Subject:") formComment = request.form("2_Comments:") eMailSubject = request.form("XX-subject") eMailAddress = request.form("XX-send-to-email") eMailRedirect = request.form("XX-redirect-to-url") 'Create the e-mail server object Set objCDOSYSMail = Server.CreateObject("CDO.Message") Set objCDOSYSCon = Server.CreateObject ("CDO.Configuration") 'Out going SMTP server objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "mail.eastrisinglion.org" objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60 objCDOSYSCon.Fields.Update 'Update the CDOSYS Configuration Set objCDOSYSMail.Configuration = objCDOSYSCon formName = request.form("XX-name") formEmail = request.form("XX-email") formSubject = request.form("1_Subject:") formComment = request.form("2_Comments:") eMailSubject = request.form("XX-subject") eMailAddress = request.form("XX-send-to-email") eMailRedirect = request.form("XX-redirect-to-url") objCDOSYSMail.From = formEmail objCDOSYSMail.To = "mychow@gmail.com" objCDOSYSMail.Subject = "EastRisingLion.org - Contact eMail" objCDOSYSMail.HTMLBody = formName & " sent the following:

" & formSubject & "

" & formComment objCDOSYSMail.Send 'Close the server mail object Set objCDOSYSMail = Nothing Set objCDOSYSCon = Nothing Response.Redirect "thankyou.asp" end if %>

Contact Us

We would love to hear from you! Whether you want to request a show, learn more about us, have suggestions for us, or just want to chat - please feel free to use the form below to send us an eMail. If for some reason the form is not working, please send your eMail to: mychow@gmail.com.

Name
eMail
Subject
Body