<%@ LANGUAGE="VBSCRIPT" %> <% Response.Buffer= true subFlag = Request.Form("subFlag") if len(trim(subFlag)) = 0 then subFlag = 0 'Response.Write "subflag:" & subFlag firstname = Request.Form("firstname") lastname = Request.Form("lastname") 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") ' emailloc = Request.Form("emailloc") os = Request.Form("os") if firstname = "" or len(trim((firstname))) = 0 then strtxt = strtxt + ", First Name" end if if lastname = "" or len(trim((lastname))) = 0 then strtxt = strtxt + ", Last Name" end if if schname = "" or len(trim((schname))) = 0 then strtxt = strtxt + ", School Name" end if if schadd1 = "" or len(trim((schadd1))) = 0 then strtxt = strtxt + ", School Address" end if if schcity = "" or len(trim((schcity))) = 0 then strtxt = strtxt + ", City" end if if schstate = "" or len(trim((schstate))) = 0 then strtxt = strtxt + ", State" end if if schzip = "" or len(trim((schzip))) = 0 then strtxt = strtxt + ", Zip/Postal Code" end if 'if schphone = "" or len(trim((schphone))) = 0 then 'strtxt = strtxt + ", Phone Number" 'end if if email1 = "" or len(trim((email1))) = 0 then strtxt = strtxt + ", E-mail Address" end if if email2 = "" or len(trim((email2))) = 0 then strtxt = strtxt + ", E-mail Address Verification" end if 'if emailloc = "" or len(trim((emailloc))) = 0 then 'strtxt = strtxt + ", Home/School E-mail" 'end if if os = "" or len(trim((os))) = 0 then strtxt = strtxt + ", Operating Platform" 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." else msgs="" end if %> Scholastic.com | GenerationLink
" 'Response.Write "" Response.Write "Oops!
" & msgs & "
" Response.Write "

" end if%>

Request Complimentary EarthLink Software

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.

Before you write to us, you might want to read our online privacy policy statement.

<% if subFlag >= 1 then 'Response.Write "

 Oops!
" & msgs & "
* First Name:
* Last Name:
* School Name:
* School Address:
* City:
* State:
* Zip:
School phone:
* Your e-mail address
(e.g., teacher@school.state.us )
* Your e-mail address
(again as confirmation)
I am using checked <%end if%> value="MAC"> a Mac or "MAC" then%> checked <%end if%> value="PC"> a PC
  Send

 

Close This Window