<% ServerName = Request.Servervariables("Server_name") If InStr(1, ServerName, "teacherdev") then ServerTo = "comdev2.scholastic.com"%> <%ElseIf InStr(1, ServerName, "teacherqual") then ServerTo = "comqual2.scholastic.com"%> <%Else ServerTo = "www.scholastic.com"%> <%End If%> Scholastic.com | Online Activities: Weather Watch <% doMenu %>
Weather Watch
Severe Weather and Natural Disaster
Hurricanes

The Basics In-Depth Experiments Witnesses' Account
Words to Know Experts Say Be Ready! Quiz Challenge

<%= QuizTitle %>

<%= quiz_blurb %>

<% dim inner inner = 0 for i = 0 to 9 Response.Write " " & vbCrLf Response.Write " " & vbCrLf Response.Write " " & vbCrLf Response.Write " " & vbCrLf Response.Write " " & vbCrLf Response.Write " " & vbCrLf Response.Write " " & vbCrLf Response.Write " " & vbCrLf NEXT %>
" & i+1 & "." & QArray(i) & "
" & vbCrLf Response.Write " " & vbCrLf for x = 1 to 4 Response.Write " " & vbCrLf Response.Write " " & vbCrLf Response.Write " " & vbCrLf Response.Write " " & vbCrLf inner = inner + 1 NEXT Response.Write "

" & AArray(inner) & "
" & vbCrLf Response.Write "
 
<% doFooter %>