Clicking here will take you to the EEK! Home Page Clicking here will take you to the Critter Corner Section Clicking here will take you to the Nature Notes Section Clicking here will take you to the Our Earth Section Clicking here will take you to the Cool Stuff Section Clicking here will take you to the Get a Job Section
Clicking here will take you to the EEK! Home Page
.
<% ' *** BEGIN NO EDIT if isEmpty(Request.Form("ProcessThis")) Then ' Write out HTML form inputs to screen Dim nNextStep nNextStep = "1" select case request.form("current") ' *** END NO EDIT ' *** YOU'LL NEED TO MODIFY THE FOLLOWING AREA. ' 1) To begin, determine your number of questions. ' 2) Look at the pattern of code below - case 1 shows a nNextStep of 2, case 2 shows nNextStep of 3, etc. ' 3) Copy the code from one of the cases or copy this blank code and paste - be sure to change case number. ' BEGIN CODE SNIPPET ' case "X" ' Question X ' nNextStep = "Y" ' END CODE SNIPPET ' (Note: be sure to remove the single quote in front of the code above.) case "1": ' Question numbers go here. Question 1 nNextStep = "1a" case "1a": ' Question 2 nNextStep = "2" case "2": ' Question 3 nNextStep = "2a" case "2a": ' Question 4 nNextStep = "3" case "3": ' Question 3 nNextStep = "3a" case "3a": ' Question 4 nNextStep = "4" case "4": ' Question 3 nNextStep = "4a" case "4a": ' Question 4 nNextStep = "5" case "5": ' Question 3 nNextStep = "5a" case "5a": ' Question 4 nNextStep = "6" case "6": ' Question 3 nNextStep = "6a" case "6a": ' Question 4 nNextStep = "7" case "7": ' Question 3 nNextStep = "7a" case "7a": ' Question 4; don't include anything - completed. ' *** BEGIN NO EDIT case default ' Gotta start somewhere nNextStep = "Intro" end select for each i in Request.Form if left(i,1)="n" then Response.write("") end if next Response.write("") ' *** END NO EDIT ' *** YOU'LL NEED TO MODIFY THE FOLLOWING AREA ' 1) As you can see, the cases - introduced above allow you to have separate "screens" ' 2) Copy the code from one of the cases below and insert every time you want a new screen. ' (Note: The number of screens (or cases) needs to correspond with the number of cases above.) ' (Note: If you have more than one question on a screen, it may not be good to call it Q1, since you'd have ' more than one Q (Question) on that screen.) ' 3) Once you paste the case code for each screen, you can use any standard HTML form elements within the screen. ' (Note: Be sure that the opening and closing tags are in place before designing your screen.) ' (Note: You can also include any other HTML, images, etc. in each screen.) ' 4) Your form elements can have any values associated with them, but it may be easier to simply use ' numbers, such as 1, 2, 3, 4 where False - the correct answer - would have a value="2" or the letter "c" in a ' multiple choice question would have a value="3". This will come into play later in the quiz set up. ' 5) Your question form elements should have IDs or names beginning with an "n", such as "nQ1". ' (Note: You don't need to know why.) ' 6) For you LAST QUESTION/SCREEN, do not include the submit button with the value "NEXT STEP". %> <% select case nNextStep case "Intro": ' Intro %>
How much do you know about the Great Lakes?
<% case "1": ' Q1 %>
Do you know which Great Lake is highlighted? This lake is the smallest by volume.




<% case "1a": ' Answer to Q1 dim nQ1 nQ1 = request.form("nQ1") if nQ1 = "2" then ' Show the correct answer text. %>
That's Correct!

Lake Erie is 210 feet deep and 240 miles long. It is the fourth largest of the Great Lakes in surface area and the smallest by volume.

<% else ' Show the incorrect answer text. %>
Sorry, that's not correct.    
<% end if %> <% case "2": ' Q2 %>
What about this one? The water from all of the Great Lakes could fit inside this one and have room to spare!




<% case "2a": ' A2 dim nQ2 nQ2 = request.form("nQ2") if nQ2 = "3" then ' Show the correct answer text. %>
That's Correct!

Lake Superior is 1,335 feet deep and 350 miles long. It is the largest of the Great Lakes in both surface area and volume. Lake Superior could contain all the other Great Lakes plus three more lakes the size of Lake Erie. Learn more fun facts about Lake Superior.

<% else ' Show the incorrect answer text. %>
Sorry, that's not correct.    
<% end if %> <% case "3": ' Q3 %>
You should know this one! It's the sixth largest freshwater lake in the world.




<% case "3a": ' A3 dim nQ3 nQ3 = request.form("nQ3") if nQ3 = "2" then ' Show the correct answer text. %>
That's Correct!

Lake Michigan is 925 feet deep and 307 miles long. It is the third largest Great Lake and the sixth largest freshwater lake in the world.

<% else ' Show the incorrect answer text. %>
Sorry, that's not correct.    
<% end if %> <% case "4": ' Q4 %>
So, you've made it this far. Can you name the state that seems to touch the most Great Lakes?




<% case "4a": ' A3 dim nQ4 nQ4 = request.form("nQ4") if nQ4 = "2" then ' Show the correct answer text. %>
That's Correct!

Michigan, the state not the lake, touches Lake Superior, Lake Huron, Lake Erie and, of course, Lake Michigan.

<% else ' Show the incorrect answer text. %>
Sorry, that's not correct.    
<% end if %> <% case "5": ' Q5 %>
A common word can be spelled using the first letter of the name of each of the Great Lakes. Some people use this word to remember the names of the Great Lakes. Can you unscramble the letters? The letters are:

S  H  E  O  M
<% case "5a": ' A3 dim nQ5 nQ5 = lcase(request.form("nQ5")) if nQ5 = "homes" then ' Show the correct answer text. %>
That's Correct!

H uron
O ntario
M ichigan
E rie
S uperior

<% else ' Show the incorrect answer text. %>
Sorry, that's not correct.    
<% end if %> <% case "6": ' Q6 %>
OK, let's get back to the lakes. Which Great Lake is this?




<% case "6a": ' A3 dim nQ6 nQ6 = request.form("nQ6") if nQ6 = "4" then ' Show the correct answer text. %>
That's Correct!

Lake Huron is 748 feet deep and 206 miles long. It is the second largest Great Lake and the fifth largest freshwater lake in the world. It has the longest shoreline of the Great Lakes if you count the shorelines of its 30,000 islands.

<% else ' Show the incorrect answer text. %>
Sorry, that's not correct.    
<% end if %> <% case "7": ' Q7 %>
Last Question. Don't give up yet. Which Great Lake is highlighted?




<% case "7a": ' A3 dim nQ7 nQ7 = request.form("nQ7") if nQ7 = "1" then ' Show the correct answer text. %>
That's Correct!

Lake Ontario is 804 feet deep and 193 miles long. It is the smallest of the Great Lakes in surface area. It lies 325 feet below Lake Erie, at the base of Niagara Falls.

<% else ' Show the incorrect answer text. %>
Sorry, that's not correct.    
<% end if %> <% end select else dim x x = 0 %>
<% ' DECLARE YOUR VARIABLES dim q1, q2, q3, q4, q5, q6, q7 ' DEFINE YOUR VARIABLES q1 = request.form("nQ1") q2 = request.form("nQ2") q3 = request.form("nQ3") q4 = request.form("nQ4") q5 = lcase(request.form("nQ5")) q6 = request.form("nQ6") q7 = request.form("nQ7") ' DESIGNATE YOUR CORRECT ANSWERS ' If you have multiple choice, then use something like q1 = "1". ' If you have a form field, then use either the correct word answer, e.g. q1 = "invasive" or ' If it's an optional question, then use the greater than symbol, e.g. q1 > "" which means ' if anything is entered into the form field, that the answer is correct. if q1 = "2" then x = x + 1 end if if q2 = "3" then x = x + 1 end if if q3 = "2" then x = x + 1 end if if q4 = "2" then x = x + 1 end if if q5 = "homes" then x = x + 1 end if if q6 = "4" then x = x + 1 end if if q7 = "1" then x = x + 1 end if ' WHAT WOULD YOU LIKE THE FORM RESULTS TO SAY? ' "x" is the total number correct, you cannot change that. response.write ("You answered " & x & " of 7 correctly.

") response.write ("That's " & round(x/7 * 100) & "% correct!
") response.write ("

You're all done. We hope you enjoyed learning a bit about the Great Lakes.

") ' *** BEGIN NO EDIT end if ' *** END NO EDIT %>


. Click here to go to the top of the page
Clicking here will take you to the EEK! Home PageClicking here will take you to the Wisconsin DNR Home Page
Clicking here will take you to the EEK! Home PageClicking here will take you to the Critter Corner SectionClicking here will take you to the Nature Notes SectionClicking here will take you to the Our Earth SectionClicking here will take you to the Cool Stuff SectionClicking here will take you to the Get a Job Section