%@ Language=VBScript %>
<%
Response.Buffer= true
subFlag = Request.Form("subFlag")
if subFlag = "" then subFlag = 0
' Response.Write "subflag:" & subFlag
captionid = 14
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!