<%@LANGUAGE="VBSCRIPT"%> <% Option Explicit %> The WordSeekers-- Advanced Bible Quiz Page




Advanced-level...        [click here for beginner level]
| Q1 | Q2 | Q3 | Q4 | Q5 | Q6 | Q7 | Q8 | Q9 | Q10 |
Bible Question #1 of 10:

    At which church was the term, Christian, first used?
        Ephesus         Jerusalem         Antioch

<% Response.Write(" ") Select Case Request.QueryString("q1") Case 54 Response.Write ("Incorrect answer, try again.") Case 39 Response.Write ("That's right. Try question #3.") Case 66 Response.Write ("Incorrect answer, try again.") End Select %>
Bible Question #2 of 10:

    In what year was the United Kingdom of Israel divided?
        722 B. C.         931 B. C.         605 B. C.

<% Response.Write(" ") Select Case Request.QueryString("multiple") Case 54 Response.Write ("Incorrect answer, try again.") Case 39 Response.Write ("That's right. Try question #3.") Case 66 Response.Write ("Incorrect answer, try again.") End Select %>
Bible Question #3 of 10:

    What common language was predominate when Jesus was born?
        Hebrew         Koine Greek         Latin

<% Response.Write(" ") Select Case Request.QueryString("multiple") Case 111 Response.Write ("Incorrect answer, try again.") Case 222 Response.Write ("That's right. Try question #4.") Case 333 Response.Write ("Incorrect answer, try again.") End Select %>
Bible Question #4 of 10:

    Which was the first book written after Jesus' death on the cross?
        James         Acts         John

<% Response.Write(" ") Select Case Request.QueryString("multiple") Case 555 Response.Write ("That's right. Try question #5.") Case 550 Response.Write ("Incorrect answer, try again.") Case 5533 Response.Write ("Incorrect answer, try again.") End Select %>
Bible Question #5 of 10:

True or False: The Apostle Luke was the only Gentile author of a New Testament book?
        True         False

<% Response.Write(" ") Select Case Request.QueryString("multiple") Case 08 Response.Write ("That's right. Try question #6.") Case 09 Response.Write ("Incorrect answer, try again.") End Select %>
Bible Question #6 of 10:

    True or false:  The Old Testament stressed God's "Law;" the New Testament, God's "grace."
        True         False

<% Response.Write(" ") Select Case Request.QueryString("multiple") Case 07 Response.Write ("Incorrect answer, try again.") Case 06 Response.Write ("That's right. Try question #7.") End Select %>
Bible Question #7 of 10:

    About how many people did God rescue out of Egypt?
        10,000         500,000         2.5 - 3.0 million

<% Response.Write(" ") Select Case Request.QueryString("multiple") Case 199 Response.Write ("Incorrect answer, try again.") Case 299 Response.Write ("Incorrect answer, try again.") Case 399 Response.Write ("That's right. Try question #8.") End Select %>
Bible Question #8 of 10:

    The Ten Commandments are found in which Old Testament book?
        Exodus         Numbers         Leviticus

<% Response.Write(" ") Select Case Request.QueryString("multiple") Case 16 Response.Write ("Incorrect answer, try again.") Case 36 Response.Write ("Incorrect answer, try again.") Case 26 Response.Write ("That's right. Try question #9.") End Select %>
Bible Question #9 of 10:

    Who was a contemporary of Jeremiah?
        Isaiah         Jonah         Ezekiel

<% Response.Write(" ") Select Case Request.QueryString("multiple") Case 14 Response.Write ("Incorrect answer, try again.") Case 24 Response.Write ("Incorrect answer, try again.") Case 34 Response.Write ("That's right. Try the last question.") End Select %>
Bible Question #10 of 10:

    Most Biblical scholars say one of the following is the author of the book of Hebrews?
      Luke       Paul       unknown

  <% Response.Write(" ") Select Case Request.QueryString("multiple") Case 18 Response.Write ("Incorrect answer, try again.") Case 28 Response.Write ("Incorrect answer, try again.") Case 38 Response.Write ("That's absolutely correct!

Click here for more information... ") End Select %>
| Q1 | Q2 | Q3 | Q4 | Q5 | Q6 | Q7 | Q8 | Q9 | Q10 |
<%= Request.QueryString("multiple") %>

<% ' Here's a little function that you might find handy. ' It takes the name parameter of the radio button you want ' to check and will return a boolean indicating if a ' radio button with that name was enabled on the form when ' the user submitted it even if the value of the ' radio button isn't set to anything. It works well to ' help simplify your code... especially in conditionals. Function IsChecked(strFieldName) Dim blnChecked If Request.QueryString(strFieldName).Count > 0 Then blnChecked = True Else blnChecked = False End If IsChecked = blnChecked End Function ' For example, using the state_keeper example above: 'If IsChecked("state_keeper") Then ' ' The radio button was enabled. 'End If %>