<%@ LANGUAGE="VBSCRIPT" %> <% Response.Buffer = True strPageTitle = "Math Hunt Game" strPageURL = "" QuizID = FormatTextHTML(request("QuizID")) If Not(IsNumeric(QuizID)) then Response.Redirect("index.asp") Else QuizID = Int(QuizID) End If response.cookies("tookQuiz")="" response.cookies("overQuiz")="" %> <% ' Setup Quiz array strSQL = "SELECT * from MH_Quiz WHERE QuizID = " & QuizID 'cmdSQL.CommandText = strSQL Set rsQuiz = Network.execute(strSQL) 'response.write strSQL 'rsQuiz.Open cmdSQL, , 3, 1 If rsQuiz.EOF then Response.Redirect("index.asp") Else QuizID = rsQuiz("QuizID") Title= rsQuiz("Title") Description = rsQuiz("Description") EndMessage = rsQuiz("EndMessage") BodyBG = rsQuiz("BodyBG") MainIcon = rsQuiz("MainIcon") MainIconHeight= rsQuiz("MainIconHeight") MainIconWidth = rsQuiz("MainIconWidth") TitleIcon = rsQuiz("TitleIcon") TitleIconHeight = rsQuiz("TitleIconHeight") TitleIconWidth= rsQuiz("TitleIconWidth") NumQuestions = 5 End If set rsQuiz=nothing strSQl="SELECT * FROM MH_Questions WHERE QuizID = " & QuizID set rsQuestion= Network.execute(strSQL) If rsQuestion.EOF then Response.Redirect("index.asp") Else DO WHILE NOT rsQuestion.EOF AllQuestion=AllQuestion & "|" & rsQuestion("QuestionID") rsQuestion.movenext loop end if %> Math Hunt <% doMenu %>

Math Hunt
<%=Title%>
Math Hunt
<%=Description%>


Hunting Skills <% Set rsSkills = Server.CreateObject("ADODB.Recordset") strSQL = "SELECT MH_Quiz.*, " &_ "MH_Skills.*, " &_ "MH_SkillToQuiz.* " &_ "FROM MH_Quiz " &_ "INNER JOIN MH_SkillToQuiz ON MH_Quiz.QuizID = MH_SkillToQuiz.QuizID " &_ "INNER JOIN MH_Skills ON MH_SkillToQuiz.SkillID = MH_Skills.SkillID " &_ "WHERE (MH_Quiz.Live = 1 AND MH_Quiz.QuizID = " & QuizID & ")" &_ "ORDER BY Title" 'response.write strSQL cmdSQL.CommandText = strSQL rsSkills.Open cmdSQL, , 3, 1 'Set rsSubSkill = Server.CreateObject("ADODE.Recordset") Do While (QuizID = rsSkills("QuizID")) AND Not(rsSkills.EOF) SubSkillID1=rsSkills("SubSkillID1") SubSkillID2=rsSkills("SubSkillID2") SubSkillID3=rsSkills("SubSkillID3") SubSkillID4=rsSkills("SubSkillID4") SubSkillID5=rsSkills("SubSkillID5") SubSkillID= SubSkillID1 & SubSkillID2 & SubSkillID3 & SubSkillID4 & SubSkillID5 IF SubSkillID <> "" THEN Skill=rsSkills("Skill") & ": " ELSE Skill=rsSkills("Skill") & "
" END IF IF SubSkillID <> "" THEN For i = 1 to 5 IF i =1 THEN SubSkillIDSQL = SubSkillID1 ELSEIF i =2 THEN SubSkillIDSQL = SubSkillID2 ELSEIF i =3 THEN SubSkillIDSQL = SubSkillID3 ELSEIF i =4 THEN SubSkillIDSQL = SubSkillID4 ELSEIF i =5 THEN SubSkillIDSQL = SubSkillID5 END IF IF SubSkillIDSQL <> "" THEN Set rsSubSkill = Server.CreateObject("ADODB.Recordset") strSubSQL = "SELECT SubSkill FROM MH_SubSkills WHERE SubSkillID = " & SubSkillIDSQL cmdSQL.CommandText = strSubSQL rsSubSkill.Open cmdSQL, , 3, 1 'response.Write strSubSQL response.Write ("" & Skill & "" & rsSubSkill("SubSkill") & "
") rsSubSkill.close END IF NexT ELSE response.Write ("" & Skill & "") END IF QuizID = rsSkills("QuizID") rsSkills.MoveNext If rsSkills.EOF then Exit Do Loop Set rsSkills= nothing Set Network = nothing %>

This game includes links outside of Scholastic.com
Every Web site we link to was visited by our team at one point in time to make sure it's appropriate for children. But we do not monitor or control these sites and these sites can change. In addition, many of these sites may have links to other sites which we have not reviewed. Be sure to get permission from your parents or teacher before leaving this site, and remember to read the Privacy Policy and Terms of Use of any site you visit.

Special Note: To play Math Hunt, you must have your browsers set to accept cookies. Scholastic uses cookies to keep track of your Math Hunt score. For more information about cookies, see our Privacy Policy Statement.

   
<% doFooter %>