%@ Language=VBScript %>
<%
Response.Buffer= true
subFlag = Request.Form("subFlag")
if subFlag = "" then subFlag = 0
'Response.Write "subflag:" & subFlag
salutation = Request.Form("salutation")
firstname = Request.Form("firstname")
lastname = Request.Form("lastname")
schname = Request.Form("schname")
grade = Request.Form("grade")
schstate = Request.Form("schstate")
other = Request.Form("other")
email1 = Request.Form("email1")
email2 = Request.Form("email2")
birthdate = Request.Form("birthdate")
if len(trim(salutation)) = 0 then
strtxt = "Salutation"
end if
if len(trim(firstname)) = 0 then
strtxt = strtxt+", First Name"
end if
if len(trim(lastname)) = 0 then
strtxt = strtxt+", Last Name"
end if
if len(trim(schname)) = 0 then
strtxt = strtxt+", School Name"
end if
if len(trim(grade)) = 0 then
strtxt = strtxt+", Grade"
end if
if len(trim(schstate)) = 0 then
strtxt = strtxt+", State"
end if
if schstate = "OTHER" and len(trim(other)) = 0 then
strtxt = strtxt+", Other"
end if
if len(trim(email1)) = 0 then
strtxt = strtxt+", E-mail"
end if
if len(trim(email2)) = 0 then
strtxt = strtxt+", E-mail Verification"
end if
if len(trim(birthdate)) = 0 then
strtxt = strtxt+", Age Verification"
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 "." Provide your full e-mail addresses, e.g.teacher@aol.com.
Please make sure you have entered the correct e-mail address below. Then, submit the form again."
elseif subflag = 4 then
'msgs="Invalid Date
Please make sure you have entered the correct date below. Then, submit the form again."
msgs="Please make sure you have entered the correct date below, using the mm/dd/yyyy format (for example, 01/01/1960). Then, submit the form again."
else
msgs=""
end if
%>
![]() |
||||||||||||||||||||
|
|
Enter for a chance to win the Grand Prize (great library of books for your classroom). One winner will be chosen this Fall (11/1) and one will be chosen in the Spring (3/1). Be sure to enter before each drawing. ENTER NOW! 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. Our Privacy Policy is available for your review.
|
|||||||||||||||||||