%@ Language=VBScript %>
<%
Response.Buffer= true
subFlag = Request.Form("subFlag")
if subFlag = "" then subFlag = 0
' Response.Write "subflag:" & subFlag
captionid = 15
caption = Request.Form("caption")
firstname = Request.Form("firstname")
lastinitial = Request.Form("lastinitial")
age = Request.Form("age")
state = Request.Form("state")
if len(trim(caption)) = 0 then
strtxt = "Type your caption"
end if
if len(trim(firstname)) = 0 then
strtxt = strtxt+", First Name"
end if
if len(trim(lastinitial)) = 0 then
strtxt = strtxt+", Last Initial"
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="Please edit your message to ensure that it is appropriate and try again."
else
msgs=""
end if
%>
Scholastic-Geronimo Stilton
<%
doMenu
%>
Pictures
are always fun to look at, but the captions make
them even funnier! Write your own silly caption
for Geronimo's picture the best ones will
go online in the next issue!