<%
If Not IsEmpty(Request.Form) Then
error="false"
If request.form("first") = "" then
Response.Write("Error: Please fill in your First Name.
|
Development and Alumni Relations Krannert Office of Development Purdue University MGMT, KRAN 403 West State Street West Lafayette, IN 47907-2056 |
- Make check payable to Purdue Foundation.
- Be sure to write in the memo section which Krannert fund you wish to allocate your gift.
<% End Sub 'MailForm %> <% sub SendMail 'Send the e-mail %>On-line pledge
- Fill out the form below.
- Click the "Submit" button to register your pledge.
- Krannert will then send you a postage paid envelope in which you can send us your check.
<% Bodyend = Bodyend & "Gift for: " & Request.Form("gift_designation") & chr(13) response.Write("Gift for: " & request.Form("gift_designation") & "
First Name: <% = request("first") %> Middle Initial: <% = request("middle") %> Last Name: <% = request("last") %> Maiden Name: <% = request("maiden") %> Home street address: <% = request("address") %> City: <% = request("city") %> State: <% = request("state") %> Zip code: <% = request("zip") %> Country: <% =request("country") %> Home Phone Number: <% = request("phone") %> E-mail: <% = request("email") %> Degree: <% = request("degree") %> Graduation Year: <% = request("year") %> Pledge amount: <% = request("amount") %> <% = request("amount_other") %> Payment schedule: <% = request("schedule") %> Payment Amount <% = request("payment")%>
") if (Request.form("gift_designation") ="Other") then response.Write("Designated toward: " & request.Form("gift_other") & "
") Bodyend = Bodyend & "Designated toward: " & Request.Form("gift_other") & chr(13) end if if Request.form("comments") <> "" then response.Write("Comments: " & request.Form("comments") & "
") Bodyend = Bodyend & "Comments: " & request.form("comments") & chr(13) end if if request.form("include_name") <> "" then response.write (request.form("include_name") & " will be included in the gift acknowledgement." & "
") bodyend = bodyend & request.form("include_name") & " will be included in the gift acknowledgement. " & chr(13) end if if Request.Form("include_spouse") = "checked" then response.write (request.form("include_name") & " was a spouse." & "
") bodyend = bodyend & request.form("include_name") & " was a spouse." & chr(13) end if if Request.Form("include_family") = "checked" then response.write (request.form("include_name") & " was a family member." & "
") bodyend = bodyend & request.form("include_name") & " was a family member." & chr(13) end if if Request.Form("include_other") = "checked" then response.write (request.form("include_name") & " was a " & request.form("include_relation") & ".
") bodyend = bodyend & request.form("include_name") & " was a " & request.form("include_relation") & "." & chr(13) end if if Request.Form("include_degree") <> "" then response.Write(request.Form("include_name") & " received a " & request.Form("include_degree") & " from Purdue in " & request.Form("include_year") & ".
") bodyend = bodyend & request.form("include_name") & " received a " & request.Form("include_degree") & " from Purdue in " & request.Form("include_year") & "." & chr(13) end if if Request.Form("annual_report") = "yes" then response.write "I/We want to be included in the Krannert Annual Report.
" bodyend = bodyend & chr(13) & "I/We want to be included in the Krannert Annual Report." & chr(13) else response.write "I/We do NOT want to be included in the Krannert Annual Report.
" bodyend = bodyend & chr(13) & "I/We do NOT want to be included in the Krannert Annual Report." & chr(13) end if Body = "Pledge Donation Information " & chr(13) & chr(13) Body = Body & "Name: " & Request.Form("first") & " " & Request.Form("middle") & " " & Request.Form("last") & " (" & Request.Form("maiden") & ")" & chr(13) Body = Body & "Address: " & Request.Form("address") & " " & Request.Form("city") & " " & Request.Form("state")& " " & Request.Form("zip")& " " & Request.Form("country") & chr(13) Body = Body & "Phone: " & Request.Form("phone") & chr(13) Body = Body & "Email: " & Request.Form("email") & chr(13) Body = Body & "Degree: " & Request.Form("degree") & " " & Request.Form("year") & chr(13) Body = Body & "Gift Amount Pledged: " & Request.Form("amount") & " " & Request.Form("amount_other") & chr(13) Body = Body & "Payment Schedule: " & Request.Form("schedule") & chr(13) Body = Body & chr(13) & bodyend Set objNewMail = CreateObject("CDONTS.NewMail") objNewMail.From = "Online_Donation@krannert.purdue.edu" objNewMail.To = "hanigosk@purdue.edu" objNewMail.Subject = "On-Line Pledge to Krannert" objNewMail.Body = Body objNewMail.Send Set objNewMail = Nothing %>
<% End Sub ' Sendmail %>Thank You, Your gifts enable Krannert to continue exceptional management and economics education. We will send you a receipt as soon as we receive your check. We appreciate your commitment to Krannert.