<%@ LANGUAGE="VBSCRIPT" %>
<%
if CStr(Request("isCorrect")) = "Yes" then
Dim RegionalDirector, ExecutiveDirector, CurrentDate, count, pledges, brk, misc
CurrentDate=date
count = request("count")
brk ="
"
brk2 ="
"
space1 =" "
space5 =" "
space15 =" "
ExecutiveDirector="ExecutiveDirector@phichitheta.org"
'VP_Collegiate_Affairs="VP_Collegiate_Affairs@phichitheta.org"
'ExecutiveDirector="sgore@swbell.net"
Select Case session("Region")
Case "Western"
RegionalDirector = "WesternDirector@phichitheta.org"
'RegionalDirector = "sgore@swbell.net"
Case "Central"
RegionalDirector = "CentralDirector@phichitheta.org"
'RegionalDirector = "sgore@swbell.net"
Case "Eastern"
RegionalDirector = "EasternDirector@phichitheta.org"
'RegionalDirector = "sgore@swbell.net"
Case "Southern"
RegionalDirector = "SouthernDirector@phichitheta.org"
'RegionalDirector = "sgore@swbell.net"
End Select
for i = 1 to count
pledges = pledges & "Name: " & session("iname" & i) & space15 & "ID: " & session("issn" & i) & space5 & "Major: " & session("imajor" & i) & brk & "Address: " & space1 & session("iaddress" & i) & brk & space15 & space1 & space1 & session("icity" & i) & space1 & session("istate" & i) & "," & space1 & session("izipcode" & i) & brk & "Phone: " & session("iphone" & i) & "
Expected Graduation Date: " & session("igraddate" & i) & brk & "Email: " & session("iemail" & i) & brk2
next
ConfirmMsg = "
" & session("Chapter") & "'s Pledge List has been submitted
You will receive a confirmation email for this transaction
"
misc = "Date Submitted: " & CurrentDate & "
Chapter: " & session("Chapter") & space5 & "Region: " & session("Region") & space5 & "Pledge Date: " & session("Idate") & "
Chapter Contact: " & session("Name") & "
Chapter Address: " & session("Address") & "
Contact Phone: " & session("Phone") & "
Contact Email: " & session("Email") & "
Check/Money Order Number: " & session("cn") & "" & brk2
PCTMsg = "***--- This Message was sent via the PCT Website - Online Pledge List ---***"
'
' This section will send the form information to the Regional Director and Executive Director
'
Set objCDO = Server.CreateObject("CDONTS.NewMail")
objCDO.From = session("Email")
objCDO.To = ExecutiveDirector
objCDO.Cc = RegionalDirector
'objCDO.Bcc = VP_Collegiate_Affairs
objCDO.Subject = "Online Pledge List Submittal - " & session("Chapter")
objCDO.Body = misc & pledges
objCDO.BodyFormat = 0
objCDO.MailFormat = 0
objCDO.Send
Set objCDO = Nothing
'
' This section will email a confirmation for submittal of Online Pledge List
'
PCTMsg = "***--- This Message was sent via the PCT Website - Online Pledge List Form ---***"
PCTMsg2 = "Please print or save this email for your chapters records"
Set objCDO = Server.CreateObject("CDONTS.NewMail")
objCDO.From = "webmaster@phichitheta.org"
objCDO.To = session("Email")
'objCDO.Cc = "someone@whoknows.net"
'objCDO.Bcc = "someone@whoknows.net"
objCDO.Subject = "Online Pledge List Submittal Confirmation"
objCDO.Body = misc & pledges
objCDO.BodyFormat = 0
objCDO.MailFormat = 0
objCDO.Send
Set objCDO = Nothing
end if
%>
Online Pledge Submittal
<% if ConfirmMsg <> "" then %>
<%=ConfirmMsg%>
<% else %>
<%response.write(ErrorMsg)%>
A problem has been encountered please try again later
<%end if%>
<%=misc%>
<%=pledges%>
<% session.abandon %>