How many books in the canonized version of the Old Testament Bible?
54
39
66
<% 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:
How old was Jesus when he started His ministry?
33
30
47
<% 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:
Jesus was born in what year?
5/4 B. C.
0 B. C.
33 A. D.
<% 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: In the Old Testament God used prophets to speak to His people?
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: There are four Gospel books in the New Testatment.
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:
Who was the author of the book of Acts?
Peter
John
Luke
<% 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:
How many people were in the ark during the Great Flood?
9
4
8
<% 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 known in the Bible as the "weeping prophet?"
Isaiah
Abraham
Jeremiah
<% 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:
What is required for you to be saved?
go to church regularly
a good attitude
a repentant heart
<% 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!
<%= 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
%>
