<%@ 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(), iemployer(), ijobtitle(), 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), iemployer(i), ijobtitle(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)) iemployer(i) = CStr(Request("I_Employer" & i)) iphone(i) = CStr(Request("I_Phone" & i)) ijobtitle(i) = CStr(Request("I_JobTitle" & 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 graduate number " & i & "'s name
" End If If iaddress(i) = "" Then ErrorMsg = ErrorMsg & "Please enter your graduate number: " & i & "'s street address
" End If If icity(i) = "" Then ErrorMsg = ErrorMsg & "Please enter your graduate number: " & i & "'s city
" End If If istate(i) = "" Then ErrorMsg = ErrorMsg & "Please enter your graduate number: " & i & "'s state
" End If If izipcode(i) = "" Then ErrorMsg = ErrorMsg & "Please enter your graduate number: " & i & "'s zipcode
" End If If igraddate(i) = "" Then ErrorMsg = ErrorMsg & "Please enter your graduate number: " & i & "'s graduation date
" End if 'If iemployer(i) = "" Then ' ErrorMsg = ErrorMsg & "Please enter your graduate number: " & i & "'s employer
" 'End If If iphone(i) = "" Then ErrorMsg = ErrorMsg & "Please enter your graduate number: " & i & "'s phone
" End If 'If ijobtitle(i) = "" Then ' ErrorMsg = ErrorMsg & "Please enter your graduate number: " & i & "'s job title

" '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 chapter contact email address
" End If If address = "" Then ErrorMsg = ErrorMsg & "Please enter your chapter contact mailing address
" End If If name = "" Then ErrorMsg = ErrorMsg & "Please enter your chapter contact name
" End If If phone = "" Then ErrorMsg = ErrorMsg & "Please enter your chapter contact phone number
" End If 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 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("ijobtitle" & i) = ijobtitle(i) session("iemployer" & i) = iemployer(i) session("igraddate" & i) = igraddate(i) session("iemail" & i) = iemail(i) next session("count") = count end sub %> Online Graduation List Form <%if ErrorMsg = "" then CopyFieldsToSession %>


Online Graduates List Form
Form Due: December 15th for Fall/Winter Graduates / April 15th for Spring/Summer Graduates
  1. Complete in ALPHABETICAL Order.
  2. Use LEGAL Name, nickname in parentheses.

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")%> 
 
Grad Date:
 <%=session("Idate")%>   
Mailing Address:
 <%=session("Address")%> 
Full Name
Permanent (Home) Info
Job Tile
Employer

Graduation Date
<%=session("Comments")%>
<% for i = 1 to count %> <% next %>
<%=session("iname" & i)%> 
<%=session("iemployer" & i)%> 
<%=session("ijobtitle" & i)%> 
<%=session("igraddate" & i)%> 
<%=session("iaddress" & i)%>
<%=session("icity" & i)%>,  <%=session("istate" & i)%>  <%=session("izipcode" & i)%>
<%=session("iphone" & i)%>
<%=session("iemail" & i)%>

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 Graduation List Form

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

<%end if%>