%@ LANGUAGE="VBSCRIPT" %>
<%
Response.Buffer= true
subFlag = Request.Form("subFlag")
if subFlag = "" then subFlag = 0
'Response.Write "subflag:" & subFlag
firstname = Request.Form("firstname")
lastname = Request.Form("lastname")
discipline = Request.Form("discipline")
grdcb1 = Request.Form("grdcb1")
grdcb2 = Request.Form("grdcb2")
grdcb3 = Request.Form("grdcb3")
grdcb4 = Request.Form("grdcb4")
grdcb5 = Request.Form("grdcb5")
grdcb6 = Request.Form("grdcb6")
grdcb7 = Request.Form("grdcb7")
grdcb8 = Request.Form("grdcb8")
grdcb9 = Request.Form("grdcb9")
grdcb10 = Request.Form("grdcb10")
grdcb11 = Request.Form("grdcb11")
grdcb12 = Request.Form("grdcb12")
grdcb13 = Request.Form("grdcb13")
grdcb14 = Request.Form("grdcb14")
grdcb15 = Request.Form("grdcb15")
grdcball = grdcb1&grdcb2&grdcb3&grdcb4&grdcb5&grdcb6&grdcb7&grdcb8&grdcb9&grdcb10&grdcb11&grdcb12&grdcb13&grdcb14&grdcb15
schname = Request.Form("schname")
schadd1 = Request.Form("schadd1")
schadd2 = Request.Form("schadd2")
schcity = Request.Form("schcity")
schstate = Request.Form("schstate")
schzip = Request.Form("schzip")
schphone = Request.Form("schphone")
email1 = Request.Form("email1")
email2 = Request.Form("email2")
if len(trim(firstname)) = 0 then
strtxt = strtxt + ", Your First Name"
end if
if len(trim(lastname)) = 0 then
strtxt = strtxt + ", Your Last Name"
end if
if len(trim(grdcball)) = 0 then
strtxt = strtxt + ", Grade(s)"
end if
if len(trim(schadd1)) = 0 then
strtxt = strtxt + ", School Address"
end if
if len(trim(schcity)) = 0 then
strtxt = strtxt + ", City"
end if
if len(trim(schstate)) = 0 then
strtxt = strtxt + ", State"
end if
if len(trim(schzip)) = 0 then
strtxt = strtxt + ", Zip"
end if
if len(trim(email1)) = 0 then
strtxt = strtxt + ", E-mail address"
end if
if len(trim(email2)) = 0 then
strtxt = strtxt + ", E-mail address Confirmation"
end if
if left(strtxt,1) = "," then
strtxt = right(strtxt,(len(strtxt)-1))
end if
strtxt = "" & strtxt & "
"
if subflag = 1 then
msgs="Some required information is missing:
" & strtxt & "
" & "Please make sure you have provided all required information below. Then, submit the form again."
elseif subflag = 2 then
msgs="You typed two different e-mail addresses.
Please make sure you have typed the same e-mail address in both spaces below. Then, submit the form again."
elseif subflag = 3 then
msgs="The format of the e-mail address you supplied is not correct. You may be missing an "@" or a "." or you may have accidently included a space. Please provide your full e-mail address and be sure there are no spaces, e.g. volunteer@aol.com.
Please fix the e-mail address below. Then, submit the form again."
else
msgs=""
end if
%>
|
Thank you for your interest in Justice by the People. We have updated the program as we did in September 2006 to bring you new and exciting educational content about the Sixth and Seventh Amendments and the right to trial by jury. To receive news and updates about this program as they become available, please provide your contact information below. The information you provide here will only be used to contact you about the Foundation of ABOTA's Justice by the People program. Before submitting this form, please read our privacy policy. Please complete the following and then click "Submit." Required information is shown in boldfaced type and is preceded by an asterisk (*). All other information is optional.
|
||