<%@ Language=VBScript %> <% subFlag = FormatTextHTML(request.Form("subFlag")) if subFlag = "" then subFlag = 0 'Response.Write "subflag:" & subFlag firsttime = FormatTextHTML(request.Form("firsttime")) firstname = FormatTextHTML(request.Form("firstname")) lastname = FormatTextHTML(request.Form("lastname")) jobtitle = FormatTextHTML(request.Form("jobtitle")) othtitle = FormatTextHTML(request.Form("othtitle")) schdistrict = FormatTextHTML(request.Form("schdistrict")) schname = FormatTextHTML(request.Form("schname")) schadd1 = FormatTextHTML(request.Form("schadd1")) schadd2 = FormatTextHTML(request.Form("schadd2")) schcity = FormatTextHTML(request.Form("schcity")) schstate = FormatTextHTML(request.Form("schstate")) schzip = FormatTextHTML(request.Form("schzip")) schcountry = FormatTextHTML(request.Form("schcountry")) aboutsite = FormatTextHTML(request.Form("aboutsite")) email1 = FormatTextHTML(request.Form("email1")) email2 = FormatTextHTML(request.Form("email2")) message = FormatTextHTML(request.Form("message")) phone1 = FormatTextHTML(request.Form("phone1")) phone2 = FormatTextHTML(request.Form("phone2")) phone3 = FormatTextHTML(request.Form("phone3")) '-------------------------------------------- cbbrochure1 = FormatTextHTML(request.Form("cbbrochure1")) cbbrochure2 = FormatTextHTML(request.Form("cbbrochure2")) cbbrochure3 = FormatTextHTML(request.Form("cbbrochure3")) cbbrochure4 = FormatTextHTML(request.Form("cbbrochure4")) cbbrochure5 = FormatTextHTML(request.Form("cbbrochure5")) cbbrochure6 = FormatTextHTML(request.Form("cbbrochure6")) cbbrochure7 = FormatTextHTML(request.Form("cbbrochure7")) cbbrochure8 = FormatTextHTML(request.Form("cbbrochure8")) 'cbbrochure9 = FormatTextHTML(request.Form("cbbrochure9")) cbbrochure10 = FormatTextHTML(request.Form("cbbrochure10")) '-------------------------------------------- cbcatalog1 = FormatTextHTML(request.Form("cbcatalog1")) cbcatalog2 = FormatTextHTML(request.Form("cbcatalog2")) cbcatalog3 = FormatTextHTML(request.Form("cbcatalog3")) cbcatalog4 = FormatTextHTML(request.Form("cbcatalog4")) cbcatalog5 = FormatTextHTML(request.Form("cbcatalog5")) cbcatalog6 = FormatTextHTML(request.Form("cbcatalog6")) cbcatalog7 = FormatTextHTML(request.Form("cbcatalog7")) cbcatalog8 = FormatTextHTML(request.Form("cbcatalog8")) cbcatalog9 = FormatTextHTML(request.Form("cbcatalog9")) cbcatalog10 = FormatTextHTML(request.Form("cbcatalog10")) cbcatalog11 = FormatTextHTML(request.Form("cbcatalog11")) cbcatalog12 = FormatTextHTML(request.Form("cbcatalog12")) cbcatalog13 = FormatTextHTML(request.Form("cbcatalog13")) cbcatalog14 = FormatTextHTML(request.Form("cbcatalog14")) cbcatalog15 = FormatTextHTML(request.Form("cbcatalog15")) cbcatalog16 = FormatTextHTML(request.Form("cbcatalog16")) '-------------------------------------------- 'cbdemo1 = FormatTextHTML(request.Form("cbdemo1")) cbdemo2 = FormatTextHTML(request.Form("cbdemo2")) cbdemo3 = FormatTextHTML(request.Form("cbdemo3")) 'cbdemo4 = FormatTextHTML(request.Form("cbdemo4")) cbdemo5 = FormatTextHTML(request.Form("cbdemo5")) '-------------------------------------------- cbcontactme = FormatTextHTML(request.Form("cbcontactme")) cbsubscribe = FormatTextHTML(request.Form("cbsubscribe")) '-------------------------------------------- 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(jobtitle)) = 0 then strtxt = strtxt+", Job Title" end if if len(trim(schdistrict)) = 0 then strtxt = strtxt+", School District" end if if len(trim(schname)) = 0 then strtxt = strtxt+", School Name" end if if len(trim(schadd1)) = 0 then strtxt = strtxt+", School Address 1" end if if len(trim(schcity)) = 0 then strtxt = strtxt+", City" end if if len(trim(schstate)) = 0 then strtxt = strtxt+", State" end if if len(trim(schzip)) = 0 then strtxt = strtxt+", Zip/Postal Code" end if if len(trim(schcountry)) = 0 then strtxt = strtxt+", Country" end if if len(trim(phone1)) = 0 or len(trim(phone2)) = 0 or len(trim(phone3)) = 0 then strtxt = strtxt+", Phone Number" end if if len(trim(email1)) = 0 then strtxt = strtxt+", Email address" end if if len(trim(email2)) = 0 then strtxt = strtxt+", Email address - 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 "." or you may have accidently included a space. Please provide your full e-mail address and be sure there are no spaces, e.g.parent@aol.com.

Please fix the e-mail address below. Then, submit the form again." else msgs="" end if %> Scholastic Education Product Information | Browse Products A–Z <% doMenu %>
Scholastic Education Product Information
<% if subFlag >= 1 then Response.Write "" Response.Write "" Response.Write "" end if%>
Our Privacy Policy is available for your review
   
" & msgs & "
*First Name:
*Last Name:
*Job Title:
Job title (Other):
*School District:
*School Name:
*School Address line 1:
School Address line 2:
*City:
*State:
*Zip/Postal Code:
*Country:
*Phone: --
How did you find this site?
*E-mail address:
*E-mail address confirmation:
Send me a Brochure: checked <%end if%> value="After the Bell"> After the Bell Brochure
checked <%end if%> value="Building Language for Literacy Program Guide"> Building Language for Literacy Program Guide
checked <%end if%> value="Lectorum"> Lectorum Brochure
checked <%end if%> value="Literacy Place Price List"> Literacy Place Price List
checked <%end if%> value="READ 180"> READ 180 Brochure
checked <%end if%> value="READ 180 Price List"> READ 180 Price List
checked <%end if%> value="READ XL"> READ XL Brochure
checked <%end if%> value="Reading Counts"> Reading Counts Brochure
checked <%end if%> value="Wiggleworks"> Wiggleworks Brochure
Send Me a Catalog: checked <%end if%> value="After School Catalog"> After School Catalog
checked <%end if%> value="Classroom Magazines Catalog"> Classroom Magazines Catalog
checked <%end if%> value="Classroom & Community Resources Catalog"> Classroom & Community Resources Catalog
checked <%end if%> value="Early Childhood Catalog"> Early Childhood Catalog
checked <%end if%> value="Educational Materials Catalog"> Educational Materials Catalog
checked <%end if%> value="Education Services Catalog"> Education Services Catalog
checked <%end if%> value="International ELT Catalog"> International ELT Catalog
checked <%end if%> value="Intervention Catalog"> Intervention Catalog
checked <%end if%> value="Leveled & Guided Reading Catalog"> Leveled & Guided Reading Catalog
checked <%end if%> value="Phonics Catalog"> Phonics Catalog
checked <%end if%> value="Primary Reading Catalog"> Primary Reading Catalog
checked <%end if%> value="Teaching Resources Catalog"> Teaching Resources Catalog
checked <%end if%> value="School Software Catalog"> School Software Catalog
checked <%end if%> value="Skill Books Catalog"> Skill Books Catalog
checked <%end if%> value="Tom Snyder Catalog"> Tom Snyder Catalog
checked <%end if%> value="Teacher's Friend Catalog"> Teacher's Friend Catalog
checked <%end if%> value="Weston Woods Catalog"> Weston Woods Catalog
Send me a Demo: checked <%end if%> value="READ 180"> READ 180 Demo
checked <%end if%> value="Reading Counts"> Reading Counts Demo
checked <%end if%> value="WiggleWorks"> WiggleWorks Demo
It Is Okay for a Sales Rep to Contact Me: checked <%end if%>>
Subscribe Me to the Newsletter: checked <%end if%>>
   
 
<% doFooter %>