<%@ Language=VBScript %>
<%'1=Debugging On'0=Debugging OffDebugging=0%>
<%q1=Request.Form("q1")
  q2=Request.Form("q2")
  q3=Request.Form("q3")
  q4=Request.Form("q4")
  q5=Request.Form("q5")
  q6=Request.Form("q6")
  q7=Request.Form("q7")
  q8=Request.Form("q8")
  q9=Request.Form("q9")
  q10=Request.Form("q10")%>
<%correctanswers=0
   if q1="q1-c" then	
    correctanswers=correctanswers+1
   end if 

   if q2="q2-c" then	
    correctanswers=correctanswers+1
   end if

   if q3="q3-b" then	
    correctanswers=correctanswers+1
   end if

   if q4="q4-b" then	
    correctanswers=correctanswers+1
   end if

   if q5="q5-c" then	
    correctanswers=correctanswers+1
   end if

   if q6="q6-d" then	
    correctanswers=correctanswers+1
   end if

   if q7="q7-d" then	
    correctanswers=correctanswers+1
   end if

   if q8="q8-a" then	
    correctanswers=correctanswers+1
   end if

   if q9="q9-c" then	
    correctanswers=correctanswers+1
   end if

   if q10="q10-c" then	
    correctanswers=correctanswers+1
   end if%>

  <%if (correctanswers=>0) and (correctanswers<1) then	
     Response.Redirect "result-0.htm"
    end if
    if (correctanswers=>1) and (correctanswers<2) then	
     Response.Redirect "result-1.htm"
    end if
    if (correctanswers=>2) and (correctanswers<3) then	
     Response.Redirect "result-2.htm"
    end if
    if (correctanswers=>3) and (correctanswers<4) then	
     Response.Redirect "result-3.htm"
    end if
    if (correctanswers=>4) and (correctanswers<5) then	
     Response.Redirect "result-4.htm"
    end if
    if (correctanswers=>5) and (correctanswers<6) then	
     Response.Redirect "result-5.htm"
    end if
    if (correctanswers=>6) and (correctanswers<7) then	
     Response.Redirect "result-6.htm"
    end if
    if (correctanswers=>7) and (correctanswers<8) then	
     Response.Redirect "result-7.htm"
    end if
    if (correctanswers=>8) and (correctanswers<9) then	
     Response.Redirect "result-8.htm"
    end if
    if (correctanswers=>9) and (correctanswers<10) then	
     Response.Redirect "result-9.htm"
    end if
    if (correctanswers=>10) and (correctanswers<11) then	
     Response.Redirect "result-10.htm"
    end if%>