%@ LANGUAGE="VBSCRIPT" %>
<%
Response.Buffer= true
if InStr(Request("strURL"),"scholastic.com") =0 then
response.end
end if
subFlag = Request.Form("subFlag")
if subFlag = "" then subFlag = 0
'Response.Write "subflag:" & subFlag
strURL = Request("strURL")
sendTo = Request("sendTo")
title = sendTo
if title = "teacher" then title = "Teacher"
if title = "teacher1" then title = "Teacher"
if title = "friend" then title = "Friend"
if title = "colleague" then title = "Colleague"
if sendTo = "teacher1" then note = "Please note: You must be a teacher to shop at The Teacher Store at Scholastic.com."
if sendTo = "teacher" then sendImage = "offer.txt.mail_teacher.gif"
if sendTo = "teacher1" then sendImage = "offer.txt.mail_teacher.gif"
if sendTo = "friend" then sendImage = "offer.txt.mail_friend.gif"
if sendTo = "colleague" then sendImage = "offer.txt.mail_colleague.gif"
username = Request.Form("username")
email1 = Request.Form("email1")
email2 = Request.Form("email2")
receiveemail = Request.Form("receiveemail")
message = Request.Form("message")
if len(trim(message)) = 0 then message = "I saw this on Scholastic.com and thought it would interest you."
if username = "" or len(trim((username))) = 0 then
strtxt = "Your name"
end if
if email1 = "" or len(trim((email1))) = 0 then
strtxt = strtxt + ", Your e-mail address"
end if
if email2 = "" or len(trim((email2))) = 0 then
strtxt = strtxt + ", Recipient's e-mail address"
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="The format of the e-mail address(es) you supplied is not correct. You may be missing an "@" or a "." or you may have accidentally included a space. Please provide your full e-mail address and be sure there are no spaces, e.g., recipient@aol.com.
Please fix the e-mail address(es) below. Then, submit the form again."
else
msgs=""
end if
%>
Want to tell someone about this page? Fill in the information below and we'll e-mail the link along with your personal message.
Required information is shown in boldfaced type and preceded by an asterisk (*). Our Privacy Policy is available for your review. |
||||