<%@ Language=VBScript %>
<%
If not IsEmpty (Request.Form("Submit")) Then
'Declaration of Variables
Dim strSender 'the sender's email address or name
Dim strRecipient 'the email address this mail will be sent to
Dim strSubject 'the subject of the email being sent
Dim strMessageText 'the body text (or HTML) of the email being sent
Dim objMail 'the email object on the server
'Assignment of values to variables
set strSender = Request.Form("Email")
set strRecipient = Request.Form("Recipient")
set strSubject = Request.Form("Subject")
strMessageText = "Volunteer Information Request
The following person has requested information regarding volunteer opportunities with the JASP:
"&Request.Form("Name")&"
"&Request.Form("Address")&"
"&Request.Form("City")&", "&Request.Form("State")&", "&Request.Form("Zip")&"
Home Phone: "&Request.Form("HomeTel")&"
Work Phone: "&Request.Form("WorkTel")&"
E-Mail Address: "&Request.Form("Email")&"
He/She is interested in the following committees:
"&Request.Form("Ed")&Request.Form("Golf")&Request.Form("Membership")&Request.Form("Programs")&"
He/She is interested in volunteering for the following programs:
"&Request.Form("JIS")&Request.Form("JBowl")&"
"
'error checking for required parameters
Dim strMailCheck
If strSender = "" or isnull(strSender) Then
strMailCheck = "0"
Else
strMailCheck = "1"
End If
Dim strNameCheck
If Request.form("Name") = "" Then
strNameCheck = "0"
Else
strNameCheck = "1"
End If
Dim strNumCheck
If Request.form("HomeTel") = "" and Request.form("WorkTel") = "" Then
strNumCheck = "0"
Else
strNumCheck = "1"
End If
If strMailCheck = "0" OR strNameCheck = "0" or strNumCheck = "0" then
Response.Redirect ("Response.asp?mail="&strMailCheck&"&name="&strNameCheck&"&num="&strNumCheck&"")
End If
'Creation and sending of the mail object
Set objMail = Server.CreateObject("CDONTS.NewMail")'creation of the mail object
objMail.From = strSender 'defines source of email
objMail.To = strRecipient 'defines destination of email
objMail.Subject = strSubject 'defines subject line of email
objMail.BodyFormat= 0 '0 = HTML, 1 = Text
objMail.MailFormat = 0 '0 = MIME 1 = TEXT
' objMail.Importance = 2 '0=low system use, 1=normal, 2=right away
objMail.Body = strMessageText 'puts whatever is in strMessageText in the body of the email
objMail.Send 'sends the mail
Set objMail = Nothing 'destroys the mail object
Response.Redirect("Response.asp")
End If
%>
Japan-America Society of Pennsylvania - Volunteer Information Request Form
