JREDS - Volunteers - Become a Volunteer

<% dim msg msg = "" if Request.QueryString("Send") = "Y" then 'response.end Dim MyCDONTSMail Dim MsgBody MsgBody = "First Name: " & request.form("FirstName") & "
" MsgBody = MsgBody & "Last Name: " & request.form("LastName") & "
" MsgBody = MsgBody & "Age: " & Request.Form("Age") & "
" MsgBody = MsgBody & "Education: " & request.form("Education") & "
" MsgBody = MsgBody & "Work Experience if Any: " & request.form("WorkExperience") & "
" MsgBody = MsgBody & "What fields would you like to learn more about? " & request.form("Learn") & "
" MsgBody = MsgBody & "Telephone: " & request.form("Telephone") & "
" MsgBody = MsgBody &"E-Mail: " & request.form("EMail") & "
" MsgBody = MsgBody &"Why would like to volunteer at JREDS? : " & request.form("Volunteer") & "
" MsgBody = MsgBody &"Date: " & request.form("Date") & "
" MsgBody = MsgBody &"Days: " & request.form("Days") & "
" MsgBody = Hours: " & request.form("Hours") & "
" Set MyCDONTSMail =CreateObject("CDO.Message") MyCDONTSMail.From = request.form("Email") MyCDONTSMail.To = " information@jreds.org" MyCDONTSMail.Subject = "Customer Feedback " MyCDONTSMail.HtmlBody = MsgBody MyCDONTSMail.Send Set MyCDONTSMail = Nothing msg = "Thank you for submitting your inquiry" end if '------------------------------------------------ IF Request.QueryString("Send") = "YA" Then msg = "Thank you for submitting your inquiry
" msg = msg & "You have been joined to our Newsletter successfully" End IF '------------------------------------------------ '------------------------------------------------ IF Request.QueryString("Send") = "YE" Then msg = "Thank you for submitting your inquiry
" msg = msg & "The Email you've posted already exists" End IF '------------------------------------------------ %> JREDS - Volunteers - Become a Volunteer