<% Dim correctanswer Dim correctcount Dim question Dim answer Dim formerror formerror = 0 correctanswer = 0 correctcount = FormatTextHTML(request.Form("correctcount")) If correctcount = "" Then correctcount = 0 End If Question = FormatTextHTML(request.Form("Question")) If Question = "" Then Question = 1 End If answer = FormatTextHTML(request.Form("answer")) If answer = "" Then answer = 0 End If If FormatTextHTML(request.Form("submit")) <> "" Then ' check to see if they made a selection If FormatTextHTML(request.Form("answer")) = "" Then formerror = 1 Else ' process answers Select Case Question Case "1" If answer=3 Then correctanswer=1 end if Case "2" If answer=2 Then correctanswer=1 end if Case "3" If answer=1 Then correctanswer=1 end if Case "4" If answer=4 Then correctanswer=1 end if Case "5" If answer=3 Then correctanswer=1 end if Case "6" If answer=4 Then correctanswer=1 end if Case "7" If answer=2 Then correctanswer=1 end if Case "8" If answer=3 Then correctanswer=1 end if Case "9" If answer=1 Then correctanswer=1 end if Case "10" If answer=4 Then correctanswer=1 end if Case Else End Select If correctanswer=1 Then correctcount = (correctcount) + 1 end if End If End If %> Scholastic.com: Jack Russell’s Terrier-tory <% doMenu %>
Welcome to Jack's Terrier-tory
Meet Jack's Friends!
Talk Like Jack!
Jack Facts
Be a Detective
Fun Trivia
Join the Jack-Pack
About the Books!
Jack's Trivia Game!
<% If FormatTextHTML(request.Form("final")) <> "" Then %> <% else %> <% If FormatTextHTML(request.Form("submit")) = "submit" AND formerror = 0 Then Question = (Request.Form("question")) + 1 %> <% If question = 11 Then %> <% Else %> <% End If %> <% Else %> <% End If %> <% end if %>
You got <%= correctcount %> out of 10 correct!
<% Select Case Question Case "1"%> 1. What did Auntie Tidge knit for Jack? <% Case "2"%> 2. What kind of dog is Foxy? <% Case "3"%> 3. Why does Caterina Smith think Lord Red will be dognapped? <% Case "4"%> 4. Where did Jack and Sarge live before they moved to Doggeroo? <% Case "5"%> 5. What smell makes it hard for Jack's super-sniffer to detect anything? <% Case "6"%> 6. What are squekes? <% Case "7"%> 7. What is the first clue Jack finds in his first mystery? <% Case "8"%> 8. Whose aunt is Auntie Tidge? <% Case "9"%> 9. What does Lord Red call Jack the first time he meets him? <% Case "10"%> 10. What is Sarge's last name? <% Case Else End Select %>   <% If formerror=1 Then %>
Please make a selection
<% End If %>
"" Then %> checked<% End If %>> <% ' Answer 1 Select Case Question Case "1"%> a sweater <% Case "2"%> Jack Russell terrier <% Case "3"%> He's worth a fistful of dollars. <% Case "4"%> Catsville <% Case "5"%> cat <% Case "6"%> little mice who get in the way <% Case "7"%> a paw print <% Case "8"%> No one's; that's just her nickname <% Case "9"%> "small dog" <% Case "10"%> Jack <% Case Else End Select %>
"" Then %> checked<% End If %>> <% ' Answer 2 Select Case Question Case "1"%> a hat <% Case "2"%> fox terrier <% Case "3"%> He's the most beautiful dog in the world. <% Case "4"%> way out in the country <% Case "5"%> biscuit <% Case "6"%> very special dog toys <% Case "7"%> an old boot <% Case "8"%> Jack's <% Case "9"%> "little pup" <% Case "10"%> Tidge <% Case Else End Select %>
"" Then %> checked<% End If %>> <% ' Answer 3 Select Case Question Case "1"%> a blanket <% Case "2"%> Golden Labrador <% Case "3"%> His collar was very expensive. <% Case "4"%> Russellvania <% Case "5"%> soap <% Case "6"%> cat toys that dogs like to play with <% Case "7"%> the smell of a strange human <% Case "8"%> Sarge's <% Case "9"%> "strange terrier" <% Case "10"%> Dogger <% Case Else End Select %>
"" Then %> checked<% End If %>> <% ' Answer 4 Select Case Question Case "1"%> Don't be silly...Auntie Tidge doesn't knit! <% Case "2"%> cocker spaniel <% Case "3"%> He is a prize-winning show dog. <% Case "4"%> the big city <% Case "5"%> Pooch Polish <% Case "6"%> small hairy, yappy dogs with bulging eyes <% Case "7"%> his squeaker bone-gone! <% Case "8"%> Caterina Smith's <% Case "9"%> "new dog" <% Case "10"%> Russell <% Case Else End Select %>
<% If FormatTextHTML(request.Form("submit")) = "submit" AND formerror=0 Then %> <% If correctanswer = 0 Then %> <% Else %> <% end if %> <% End If %>
 
   
<% doFooter %>