<%@ LANGUAGE="VBSCRIPT" %> <% if CStr(Request("isSubmitted")) = "yes" then Dim cn, count, chapter, email, address, phone, name, region, idate, comments, ErrorMsg Dim iname(), iaddress(), iphone(), icity(), istate(), issn(), imajor(), igraddate(), izipcode(), iemail() count = Request("count") cn = Request("cn") for i = 1 to count ReDim Preserve iname(i), iaddress(i), iphone(i), icity(i), istate(i), issn(i), imajor(i), iemail(i), igraddate(i), izipcode(i) iname(i) = CStr(Request("I_Fullname" & i)) iaddress(i) = CStr(Request("I_Address" & i)) icity(i) = CStr(Request("I_City" & i)) istate(i) = CStr(Request("I_State" & i)) izipcode(i) = CStr(Request("I_ZipCode" & i)) igraddate(i) = CStr(Request("I_GradDate" & i)) issn(i) = CStr(Request("I_SSN" & i)) iphone(i) = CStr(Request("I_Phone" & i)) imajor(i) = CStr(Request("I_Major" & i)) iemail(i) = CStr(Request("iemail" & i)) next Dim objCDO ' Data Validation 'If Request.Form.Count > 0 Then chapter = CStr(Request("chapter")) region = CStr(Request("region")) idate = CStr(Request("idate")) email = CStr(Request("email")) address = CStr(Request("address")) address = replace(address,vbcrlf,"
") comments = CStr(Request("Comments")) comments = replace(comments,vbcrlf,"
") name = CStr(Request("name")) phone = CStr(Request("phone")) cn = CStr(Request("cn")) '*** data validation ErrorMsg= "" For i = 1 to count If iname(i) = "" Then ErrorMsg = ErrorMsg & "Please enter your pledge number " & i & "'s name
" End If If iaddress(i) = "" Then ErrorMsg = ErrorMsg & "Please enter your pledge number: " & i & "'s street address
" End If If icity(i) = "" Then ErrorMsg = ErrorMsg & "Please enter your pledge number: " & i & "'s city
" End If If istate(i) = "" Then ErrorMsg = ErrorMsg & "Please enter your pledge number: " & i & "'s state
" End If If izipcode(i) = "" Then ErrorMsg = ErrorMsg & "Please enter your pledge number: " & i & "'s zipcode
" End If If igraddate(i) = "" Then ErrorMsg = ErrorMsg & "Please enter your pledge number: " & i & "'s graduation date
" End If If issn(i) = "" Then ErrorMsg = ErrorMsg & "Please enter your pledge number: " & i & "'s social security number
" End If If iphone(i) = "" Then ErrorMsg = ErrorMsg & "Please enter your pledge number: " & i & "'s phone
" End If If imajor(i) = "" Then ErrorMsg = ErrorMsg & "Please enter your pledge number: " & i & "'s major

" End If If iemail(i) = "" Then ErrorMsg = ErrorMsg & "Please enter your email address: " & i & "'s email

" End If Next If chapter = "" Then ErrorMsg = ErrorMsg & "Please enter your chapter name
" End If If region = "" Then ErrorMsg = ErrorMsg & "Please enter your chapters region
" End If If idate = "" Then ErrorMsg = ErrorMsg & "Please enter the exact Initiation Date
" End If If email = "" Then ErrorMsg = ErrorMsg & "Please enter your email address
" End If If address = "" Then ErrorMsg = ErrorMsg & "Please enter your mailing address
" End If If name = "" Then ErrorMsg = ErrorMsg & "Please enter your name
" End If If phone = "" Then ErrorMsg = ErrorMsg & "Please enter your phone number
" End If if email <> "" then blnValidEmail = RegExpTest(email) if blnValidEmail then else ErrorMsg = "Not a valid email address - eg. someone@somewhere.com" end if end if Function RegExpTest(sEmail) RegExpTest = false Dim regEx, retVal Set regEx = New RegExp ' Create regular expression: regEx.Pattern ="^[\w-\.]{1,}\@([\da-zA-Z-]{1,}\.){1,}[\da-zA-Z-]{2,3}$" ' Set pattern: regEx.IgnoreCase = true ' Set case sensitivity. retVal = regEx.Test(sEmail) ' Execute the search test. If not retVal Then exit function End If RegExpTest = true End Function end if sub CopyFieldsToSession session("Email") = email session("Chapter") = chapter session("Region") = region session("Idate") = idate session("Subject") = subject session("Address") = address session("Comments") = comments session("Name") = name session("Phone") = phone session("Date") = date session("cn") = cn for i = 1 to count session("iname" & i) = iname(i) session("iaddress" & i) = iaddress(i) session("icity" & i) = icity(i) session("istate" & i) = istate(i) session("izipcode" & i) = izipcode(i) session("iphone" & i) = iphone(i) session("imajor" & i) = imajor(i) session("issn" & i) = issn(i) session("igraddate" & i) = igraddate(i) session("iemail" & i) = iemail(i) next session("count") = count end sub %> Online Initiation List Form <%if ErrorMsg = "" then CopyFieldsToSession %>


Online Pledge List Form
Form & Pledge Fees of $10 Each Due: 7 Days AFTER to the Pledge Ceremony
($50.00 LATE FEE IF PAID LATE)
  1. Complete in ALPHABETICAL Order.
  2. Use LEGAL Name, nickname in parentheses.
  3. Send this list with Pledge Fees ($10) per each pledge.
    ($50 LATE FEE)
Pledge Manuals & Bylaws Will Be Sent To The Chapter's Permanent School Address

Verify that the information below is correct. Once you have verified if the information is correct or incorrect scroll down to the bottom of the page and select the appropriate submittal button
Chapter Contact Information
 
Today's Date:
 <%=session("Date")%>  
Name:
 <%=session("Name")%> 
 
Region:
 <%=session("Region")%>   
Phone:
 <%=session("Phone")%> 
 
Chapter
 <%=session("Chapter")%>   
Email:
 <%=session("Email")%> 
 
Exact Initiation Date:
 <%=session("Idate")%>   
Mailing Address:
 <%=session("Address")%> 
Full Name
Permanent (Home) Info
SSN
Major
(no abbreviation's)
Expected
Graduation Date
<%=session("Comments")%>
<% for i = 1 to count %> <% next %>
<%=session("iname" & i)%> 
<%=session("issn" & i)%> 
<%=session("imajor" & i)%> 
<%=session("igraddate" & i)%> 
<%=session("iaddress" & i)%>
<%=session("icity" & i)%>,  <%=session("istate" & i)%>  <%=session("izipcode" & i)%>
<%=session("iphone" & i)%>
<%=session("iemail" & i)%>

Check or Money Order Number: <%=session("cn")%>
If the information above is correct press the Submit Information Now button to continue
or press the Correct This Information button to correct any information.
<% else CopyFieldsToSession %>
Form Error:
You must fill out all form items in order to submit an online form to the national chapter.
Press the Correct Information button at the bottom of the page to correct the Pledge List Form

WARNING: If you press the back button on your browser you may loose all your data!
<% Response.Write(ErrorMsg) %>

<%end if%>