Online Initiation List Form

<%@ LANGUAGE="VBSCRIPT" %> <% if CStr(Request("isSubmitted")) = "yes" then Dim cn, count, chapter, email, address, phone, name, region, idate, comments, ErrorMsg, ipintype() 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), ipintype(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)) ipintype(i) = CStr(Request("I_PinType" & 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 initiate number " & i & "'s name
" End If If iaddress(i) = "" Then ErrorMsg = ErrorMsg & "Please enter your initiate number: " & i & "'s street address
" End If If icity(i) = "" Then ErrorMsg = ErrorMsg & "Please enter your initiate number: " & i & "'s city
" End If If istate(i) = "" Then ErrorMsg = ErrorMsg & "Please enter your initiate number: " & i & "'s state
" End If If izipcode(i) = "" Then ErrorMsg = ErrorMsg & "Please enter your initiate number: " & i & "'s zipcode
" End If If igraddate(i) = "" Then ErrorMsg = ErrorMsg & "Please enter your initiate number: " & i & "'s graduation date
" End If If issn(i) = "" Then ErrorMsg = ErrorMsg & "Please enter your initiate number: " & i & "'s social security number
" End If If iphone(i) = "" Then ErrorMsg = ErrorMsg & "Please enter your initiate number: " & i & "'s phone
" End If If imajor(i) = "" Then ErrorMsg = ErrorMsg & "Please enter your initiate 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 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 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("ipintype" & i) = ipintype(i) session("iemail" & i) = iemail(i) next session("count") = count end sub %> Online Initiation List Form <%if ErrorMsg = "" then CopyFieldsToSession %>

Online Initiation List Form Verification
Form Due: 14 Days PRIOR to the Initiation Ceremony ($50.00 LATE FEE IF PAID LATE)

Complete in ALPHABETICAL Order.
Use LEGAL Name, nickname in parentheses.
Send this list with National Dues ($60) & Initiation Fees ($40), for a total of ($100) each.
($50 LATE FEE)

Initiation Cards & Membership Pins 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)%> Pin Type: <%=session("ipintype" & 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 Initiation List Form

WARNING: If you press the back button on your browser you may loose all your data!

<% Response.Write(ErrorMsg) %>

<%end if%>