<%@ Language=VBScript %> <% Session("quiz_group") = "Plantwatch" If Request.QueryString("language") <> "" Then Session("language") = Request.QueryString("language") Else If Session("language") <> "francais" Then Session("language") = "english" End If End If Set EmanQuizConn = Server.CreateObject("ADODB.Connection") EmanQuizConn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("/databases/amphibian_quiz.mdb") %> The Great Canadian Plant Quiz <%If Session("language") = "francais" Then%>

Le jeu est différent chaque fois!

<%Else%>

The Quiz is different every time!

<%End If%>
" name=language> <% 'Get all quizzes from sSQL= "SELECT quiz.* " & _ "FROM (quiz INNER JOIN quiz_group_quiz_lookup ON quiz.pk_quiz = quiz_group_quiz_lookup.fk_quiz) INNER JOIN quiz_group ON quiz_group_quiz_lookup.fk_quiz_group = quiz_group.pk_quiz_group " & _ "WHERE (((quiz_group.group_name)='" & Session("quiz_group") & "'));" Set rsQuiz = EmanQuizConn.Execute(sSQL) If Session("language") = "francais" Then %>

Voudriez-vous que les questions sur les espèces soient posées en fonction D'une province, d'un territoire en particuliers ou qu'elles portent sur le Canada dans son ensemble?
(le jeu-questionnaire portant sur l'ensemble du Canada est plus long et avec un niveau de difficulté supérieur)

" set rsOrder = EmanQuizConn.Execute(sSQL) rsOrder.movefirst strOrdList = "" do while not rsOrder.EOF strOrdList = strOrdList & trim(rsOrder("c_name_f_str")) & ", " rsOrder.movenext loop 'response.write left(strOrdList, len(strOrdList)-2) & ")" & vbcrlf rsQuiz.movenext loop %> -->

<%Else%>

Would you like to be quizzed on species by Province and Territory or from Canada as a whole?
(The Canadian Quiz is longer and a little harder)

" set rsOrder = EmanQuizConn.Execute(sSQL) rsOrder.movefirst strOrdList = "" do while not rsOrder.EOF strOrdList = strOrdList & trim(rsOrder("c_name_e_str")) & ", " rsOrder.movenext loop 'response.write left(strOrdList, len(strOrdList)-2) & ")" & vbcrlf rsQuiz.movenext loop %> -->

<%End If%>
<%If Session("language") = "francais" Then%> <%Else%> <%End If%>