%@ Language=VBScript %>
<% Response.CacheControl = "no-cache" %>
<% Response.AddHeader "Pragma", "no-cache" %>
<% Response.Expires = -1 %>
<%
If Request.ServerVariables("SERVER_PORT")=80 and InStr(1, Request.ServerVariables("SERVER_NAME"), "comdev")= 0 Then
Dim strSecureURL
strSecureURL = "https://"
strSecureURL = strSecureURL & Request.ServerVariables("SERVER_NAME")
strSecureURL = strSecureURL & Request.ServerVariables("URL")
Response.Redirect strSecureURL
End If
%>
<%
Response.Buffer= true
workshop = "1" 'Writing Traits Primamry - Culham
subFlag = Request.Form("subFlag")
if subFlag = "" then subFlag = 0
' Response.Write "subflag:" & subFlag
firstname = Request.Form("firstname")
lastname = Request.Form("lastname")
homeadd1 = Request.Form("homeadd1")
homeadd2 = Request.Form("homeadd2")
homecity = Request.Form("homecity")
homestate = Request.Form("homestate")
homezip = Request.Form("homezip")
homephone1 = Request.Form("homephone1")
homephone2 = Request.Form("homephone2")
homephone3 = Request.Form("homephone3")
homephone = homephone1+homephone2+homephone3
'---------------------------------------
schname = Request.Form("schname")
schadd1 = Request.Form("schadd1")
schadd2 = Request.Form("schadd2")
schcity = Request.Form("schcity")
schstate = Request.Form("schstate")
schzip = Request.Form("schzip")
schphone1 = Request.Form("schphone1")
schphone2 = Request.Form("schphone2")
schphone3 = Request.Form("schphone3")
schext = Request.Form("schext")
schphone = schphone1+schphone2+schphone3
'---------------------------------------
jobtitle = Request.Form("jobtitle")
grades = Request.Form("grades")
email = Request.Form("email")
regconfirm = Request.Form("regconfirm")
registrants = Request.Form("registrants")
if len(trim(registrants)) = 0 then registrants = 0
payamount = Request.Form("payamount")
addlregn = Request.Form("addlregn")
paymethod = Request.Form("paymethod")
ponumber = Request.Form("ponumber")
authby = Request.Form("authby")
cctype = Request.Form("cctype")
'ccnumber = Request.Form("ccnumber")
'ccexpmonth = Request.Form("ccexpmonth")
'ccexpyear = Request.Form("ccexpyear")
ccholder = Request.Form("ccholder")
billto = Request.Form("billto")
if len(trim(firstname)) = 0 then
strtxt = "First Name"
end if
if len(trim(lastname)) = 0 then
strtxt = strtxt+", Last Name"
end if
if len(trim(homeadd1)) = 0 then
strtxt = strtxt+", Home Address"
end if
if len(trim(homecity)) = 0 then
strtxt = strtxt+", Home City"
end if
if len(trim(homestate)) = 0 then
strtxt = strtxt+", Home State"
end if
if len(trim(homezip)) = 0 then
strtxt = strtxt+", Home Zip"
end if
if len(trim(schname)) = 0 then
strtxt = strtxt+", School Name"
end if
if len(trim(schadd1)) = 0 then
strtxt = strtxt+", School Address"
end if
if len(trim(schcity)) = 0 then
strtxt = strtxt+", School City"
end if
if len(trim(schstate)) = 0 then
strtxt = strtxt+", School State"
end if
if len(trim(schzip)) = 0 then
strtxt = strtxt+", School Zip"
end if
if len(trim(schphone)) < 10 or len(trim(homephone)) < 10 then
strtxt = strtxt+", School/Home Phone"
end if
if len(trim(regconfirm)) = 0 then
strtxt = strtxt+", Where would you like your registration confirmation sent?"
end if
if len(trim(registrants)) = 0 or cInt(registrants) < 1 then
strtxt = strtxt+", Number of Registrants"
end if
if cInt(registrants) >= 3 and len(trim(addlregn)) = 0 then
strtxt = strtxt+", Additional Registrants"
end if
if len(trim(paymethod)) = 0 then
strtxt = strtxt+", Payment Method"
end if
if paymethod = "PO" and len(trim(ponumber)) = 0 then
strtxt = strtxt+", Purchase Order Number"
end if
if paymethod = "PO" and len(trim(authby)) = 0 then
strtxt = strtxt+", Authorized by"
end if
if paymethod = "CC" and len(trim(cctype)) = 0 then
strtxt = strtxt+", Credit Card Type"
end if
if paymethod = "CC" and len(trim(ccholder)) = 0 then
strtxt = strtxt+", Cardholder Name"
end if
if len(trim(billto)) = 0 then
strtxt = strtxt+", Billing Address"
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.teacher@aol.com.
Please fix the e-mail address below. Then, submit the form again."
elseif subflag = 4 then
msgs="Invalid Home Zip Code."
elseif subflag = 5 then
msgs="Invalid School Zip Code."
elseif subflag = 6 then
msgs="Invalid Home Phone Number."
elseif subflag = 7 then
msgs="Invalid School Phone Number."
elseif subflag = 8 then
msgs="credit card number you entered is not valid"
elseif subflag = 9 then
msgs="credit card expiration date you entered has passed."
else
msgs=""
end if
%>
|
||||||