<%@ 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 %> E-mail a <%= title %>
 
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.

<%if subFlag >= 1 then Response.Write "" Response.Write "" Response.Write "" end if%>
" & msgs & "
* Your Name:
* Your E-mail Address:
* Recipient's E-mail address:
Check this box to send yourself a copy of the e-mail. checked <%end if%>>
Personal Message:
  Scholastic does not collect or retain this information. <%=note%>