<%@ Language=VBScript %>
<%
Response.buffer = true
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 = "Individual Membership Application
"&_
"The following person has applied for Individual membership in the JASP.
"&_
""&Request.Form("Name")&"
"&_
Request.Form("Organization")&"
"&_
Request.Form("Address")&"
"&_
Request.Form("City")&", "&Request.Form("State")&" "&Request.Form("Zip")&_
"
Home Phone: "&Request.Form("HomeTel")&_
"
Work Phone: "&Request.Form("WorkTel")&_
"
Fax: "&Request.Form("Fax")&_
"
E-Mail Address: "&Request.Form("Email")&"
"&_
"He/She desires to become a member at the following level: "&Request.Form("MemLevel")&". "
Response.Write("From: "&strSender&"
"&_
"To: "&strRecipient&"
"&_
"Subject: "&strSubject&"
"&_
"Body: "&strMessageText&"
")
'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 ("InfoResponse.asp?mail="&strMailCheck&"&name="&strNameCheck&"&num="&strNumCheck&"")
End If
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("AppResponse.asp")
End If
%>
Japan-America Society of Pennsylvania - Application for Individual Membership
