<%@ LANGUAGE="VBSCRIPT" %> <% Response.Buffer= true subFlag = FormatTextHTML(request.Form("subFlag")) if subFlag = "" then subFlag = 0 'Response.Write "subflag:" & subFlag sendTo = FormatTextHTML(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 = FormatTextHTML(request.Form("username")) username2 = FormatTextHTML(request.Form("username2")) email2 = FormatTextHTML(request.Form("email2")) strURL = FormatTextHTML(request.Form("http://blog.scholastic.com/ink_splot_26/2013/01/pajama-program.html")) if len(trim(message)) = 0 then message = "Check out this e-Card on the Dear Dumb Diary website!" if username = "" or len(trim((username))) = 0 then strtxt = "Your name" end if if email2 = "" or len(trim((email2))) = 0 then strtxt = strtxt + ", Your Friend'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 & "
" 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 %> Send an eCard
<%if subFlag >= 1 then Response.Write "" Response.Write "" Response.Write "" end if%>
" & msgs & "
Pajama Program. Delivering Warm Sleepwear & Nurturing Books to Children In Need
Your First Name:
Your Friend's First Name:
Your Friend's E-mail address:

Scholastic does not keep this information. View our Privacy Policy.<%=note%>