<%@ language=vbScript %>
<%Response.Buffer=true%>
<%Response.Expires=0 %>
UdaipurPlus Quiz - How much you know about your Udaipur- Round 3
<%
if Session("referer")<>Request.ServerVariables("HTTP_REFERER") then
if Request.QueryString("Check")="Y" then
dim Score,last_score
last_score=Session("score")
score=0
for each item in Request.Form
select case item
case "Q1": if Request.Form(item)="A" then
Score=Score+10
end if
case "Q2": if Request.Form(item)="B" then
Score=Score+10
end if
case "Q3": if Request.Form(item)="A" then
Score=Score+10
end if
case "Q4": if Request.Form(item)="A" then
Score=Score+10
end if
case "Q5": if Request.Form(item)="A" then
Score=Score+10
end if
case "Q6": if Request.Form(item)="D" then
Score=Score+10
end if
case "Q7": if Request.Form(item)="B" then
Score=Score+10
end if
case "Q8": if Request.Form(item)="B" then
Score=Score+10
end if
case "Q9": if Request.Form(item)="B" then
Score=Score+10
end if
case "Q10": if Request.Form(item)="C" then
Score=Score+10
end if
case "Q11": if Request.Form(item)="A" then
Score=Score+10
end if
case "Q12": if Request.Form(item)="C" then
Score=Score+10
end if
case "Q13": if Request.Form(item)="A" then
Score=Score+10
end if
case "Q14": if Request.Form(item)="A" then
Score=Score+10
end if
case "Q15": if Request.Form(item)="A" then
Score=Score+10
end if
case "Q16": if Request.Form(item)="A" then
Score=Score+10
end if
case "Q17": if Request.Form(item)="C" then
Score=Score+10
end if
case "Q18": if Request.Form(item)="C" then
Score=Score+10
end if
end select
next
score=score+last_score
session("score")=score
Session("Referer")=Request.ServerVariables("HTTP_REFERER")
%>