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