<%@ LANGUAGE="VBSCRIPT" %> <% Response.Buffer= true subFlag = Request.Form("subFlag") if subFlag = "" then subFlag = 0 'Response.Write "subflag:" & subFlag readprogram = Request.Form("readprogram") tellus = Request.Form("tellus") firstname = Request.Form("firstname") lastname = Request.Form("lastname") title = Request.Form("title") schgrade = Request.Form("schgrade") schname = Request.Form("schname") schadd1 = Request.Form("schadd1") schadd2 = Request.Form("schadd2") schcity = Request.Form("schcity") schstate = Request.Form("schstate") schzip = Request.Form("schzip") schcountry = Request.Form("schcountry") schphone = Request.Form("schphone") calltime = Request.Form("calltime") timezone = Request.Form("timezone") email1 = Request.Form("email1") email2 = Request.Form("email2") demo = Request.Form("demo") contactme = Request.Form("contactme") catalog = Request.Form("catalog") emailloc = Request.Form("emailloc") if readprogram = "" or len(trim((readprogram))) = 0 then strtxt = "Choose the reading program" end if if tellus = "" or len(trim((tellus))) = 0 then strtxt = strtxt + ", Tell us how we can help you" end if 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 title = "" or len(trim((title))) = 0 then strtxt = strtxt + ", Title" end if if schgrade = "" or len(trim((schgrade))) = 0 then strtxt = strtxt + ", Grade(s)" 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 schcountry = "" or len(trim((schcountry))) = 0 then strtxt = strtxt + ", Country" end if if schphone = "" or len(trim((schphone))) = 0 then strtxt = strtxt + ", Phone Number" end if if calltime = "" or len(trim((schphone))) = 0 then strtxt = strtxt + ", Best Time to Call" end if if timezone = "" or len(trim((timezone))) = 0 then strtxt = strtxt + ", Time Zone" 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 demo = "" or len(trim((demo))) = 0 then strtxt = strtxt + ", I would like to receive a product demonstration" end if if contactme = "" or len(trim((contactme))) = 0 then strtxt = strtxt + ", I would like my Scholastic Representative to contact me" end if if catalog = "" or len(trim((catalog))) = 0 then strtxt = strtxt + ", I would like to receive a catalog" end if if emailloc = "" or len(trim((emailloc))) = 0 then strtxt = strtxt + ", Home/School E-mail" 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 %> Reading Programs Customer Service <% doMenu %>


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

Whether you're currently using a Scholastic reading program, or just want to receive a free product demonstration, fill out the form below and we'll get back to you.

Click here if you'd like to order a Scholastic Products Catalog.

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.

   
 Oops!
" & msgs & "
  * Choose the reading program you are inquiring about:
 
  * Tell us how we can help you:

 
  * First Name:
 
  * Last Name:
 
  * Title:
 
  * Grade(s) I teach:
 
  * School Name:
 
  * School Address:
 
  School Address:
(Line 2)
 
  * City:
 
  * State:
 
  * Zip/Postal Code:
 
  * Country:
 
  * Phone Number:
(include area/city code)

 
  * Best Time to Call:
(indicate a.m. or p.m.)

 
  * Time Zone:
 
  * E-mail Address:
(e.g. name@school.com)

 
  * E-mail Address:
(again for verification)

 
  * I would like to receive a product demonstration: checked <%end if%> value="Y"> Yes "Y" then%> checked <%end if%> value="N"> No
 
  * I would like my Scholastic Representative to contact me: checked <%end if%> value="Y"> Yes "Y" then%> checked <%end if%> value="N"> No
 
  * I would like to receive a catalog: checked <%end if%> value="Y"> Yes "Y" then%> checked <%end if%> value="N"> No
 
  * This is my: checked <%end if%> value="H"> Home E-mail "H" then%> checked <%end if%> value="S"> School E-mail
 
   
  For more information, please call toll-free 1-800-SCHOLASTIC (1-800-724-6527)
(7:00 a.m. to 6:00 p.m. CT)
 
<% doFooter %>