%@ 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
%>
<%
doFooter
%>