<%@ LANGUAGE="VBSCRIPT" %> <% Response.Buffer= true stateregion = Request.Form("stateregion") if len(trim(stateregion)) = 0 then region = request("region") state = request("state") stateregion = "" if len(trim(region)) = 0 then stateregion = state elseif len(trim(state)) = 0 then stateregion = region end if end if 'len(trin(stateregion..... Select Case stateregion case "IL","IN","IA","MI","OH","WI","MIDWEST" h_image1 = "sh_midwest_region_2.gif" h_width = 160 l_image1 = "nav_mw_home_off.gif" l_image2 = "nav_mw_events_off.gif" l_url1 = "midwest.htm" l_url2 = "midwest/events.htm" emailto = "midwest@scholastic.com" upeventFlag = "N" case "CT","DE","DC","ME","MD","MA","NH","NJ","NY","PA","RI","VT","NORTHEAST" h_image1 = "sh_northeast_region_2.gif" h_width = 169 l_image1 = "nav_ne_home_off.gif" l_image2 = "nav_ne_events_off.gif" l_url1 = "northeast.htm" l_url2 = "northeast/events.htm" emailto = "northeast@scholastic.com" upeventFlag = "Y" case "AL","FL","GA","KY","NC","SC","TN","VA","WV","SOUTHEAST" h_image1 = "sh_southeast_region_2.gif" h_width = 170 l_image1 = "nav_se_home_off.gif" l_image2 = "nav_se_events_off.gif" l_url1 = "southeast.htm" l_url2 = "southeast/events.htm" emailto = "southeast@scholastic.com" upeventFlag = "N" case "LA","MS","NM","OK","TX","SOUTHWEST" h_image1 = "sh_southwest_region_2.gif" h_width = 177 l_image1 = "nav_sw_home_off.gif" l_image2 = "nav_sw_events_off.gif" l_url1 = "southwest.htm" l_url2 = "southwest/events.htm" emailto = "southwest@scholastic.com" upeventFlag = "Y" case "AK","AZ","CO","HI","ID","KS","MN","MO","MT","NE","NV","ND","OR","SD","UT","WA","WY","WEST" h_image1 = "sh_west_region_2.gif" h_width = 125 l_image1 = "nav_w_home_off.gif" l_image2 = "nav_w_events_off.gif" l_url1 = "west.htm" l_url2 = "west/events.htm" emailto = "west@scholastic.com" upeventFlag = "N" case "CA","CALIFORNIA" h_image1 = "" h_width = 0 l_image1 = "nav_california_off.gif" l_image2 = "" l_url1 = "caregion.htm" l_url2 = "" emailto = "california@scholastic.com" upeventFlag = "N" case Else h_image1 = "" l_image1 = "" l_image2 = "" l_url1 = "" l_url2 = "" emailto = "" upeventFlag = "N" End Select subFlag = Request.Form("subFlag") if subFlag = "" then subFlag = 0 'Response.Write "subflag:" & subFlag readprogram = Request.Form("readprogram") firstname = Request.Form("firstname") lastname = Request.Form("lastname") title = Request.Form("title") titleother = Request.Form("titleother") gradecb1 = Request.Form("gradecb1") gradecb2 = Request.Form("gradecb2") gradecb3 = Request.Form("gradecb3") gradecb4 = Request.Form("gradecb4") gradecb5 = Request.Form("gradecb5") gradecb6 = Request.Form("gradecb6") gradecb7 = Request.Form("gradecb7") gradecb8 = Request.Form("gradecb8") gradecb9 = Request.Form("gradecb9") gradecb10 = Request.Form("gradecb10") gradecb11 = Request.Form("gradecb11") gradeother = Request.Form("gradeother") schname = Request.Form("schname") schcity = Request.Form("schcity") schstate = Request.Form("schstate") schstateother = Request.Form("schstateother") email1 = Request.Form("email1") email2 = Request.Form("email2") emailloc = Request.Form("emailloc") story = Request.Form("story") q1radio = Request.Form("q1radio") q2radio = Request.Form("q2radio") if readprogram = "" or len(trim((readprogram))) = 0 then strtxt = "Tell us the reading program" 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 gradeAll = gradecb1&gradecb2&gradecb3&gradecb4&gradecb5&gradecb6&gradecb7&gradecb8&gradecb9&gradecb10&gradecb11 if len(trim(gradeAll)) = 0 then strtxt = strtxt+", Grade(s) I teach" end if if schname = "" or len(trim((schname))) = 0 then strtxt = strtxt + ", School Name" 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 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 story = "" or len(trim((story))) = 0 then strtxt = strtxt + ", Please describe your success story" end if if len(trim(q1radio)) = 0 then strtxt = strtxt+", Can we contact you?" end if if len(trim(q2radio)) = 0 then strtxt = strtxt+", Can we share your story on our web site?" 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 USA <% doMenu %>

<% if upeventFlag = "Y" then%> <% End If %>
<% if subFlag >= 1 then Response.Write "" Response.Write "" Response.Write "" end if%>
 

We'd like to hear from you. What successes have your students experienced with Scholastic products?

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 & "
 
*Tell us the reading program you are sharing your success about:
  
   
 
*First Name:
  
   
 
*Last Name:
  
   
 
*Title:
  
   
 
If you answered "Other" for your title, please specify:
  
   
 
*Grade(s) I teach:
  
 
checked <%end if%>> PreK
checked <%end if%>> K
checked <%end if%>> 1
checked <%end if%>> 2
checked <%end if%>> 3
checked <%end if%>> 4
checked <%end if%>> 5
checked <%end if%>> 6
checked <%end if%>> 7
checked <%end if%>> 8
checked <%end if%>> Other
 
 
If you answered "Other" for grades you teach, please specify:
  
   
 
*School Name:
  
   
 
*City:
  
   
 
*State:
  
   
 
If you answered "Other" for state, please specify:
  
   
 
*E-mail:
  
   
 
*E-mail Verification:
  
   
 
*Please describe your success story:
  
   
 
*Can we contact you?
checked <%end if%> value="Y" style="background-color:#CCFFFF"> Yes checked <%end if%> value="N" style="background-color:#CCFFFF"> No
  
 
*Can we share your story on our
web site?
checked <%end if%> value="Y" style="background-color:#CCFFFF"> Yes checked <%end if%> value="N" style="background-color:#CCFFFF"> No
  
 
 
     
<% doFooter %>