<%@ language=vbScript %>
<%Response.Buffer=true%>
<%Response.Expires=0 %>
UdaipurPlus Quiz - How much you know about your Udaipur - Round 1
<%if Request.QueryString("Check")="Y" then
dim Score
Score=0
Session("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)="B" then
Score=Score+10
end if
case "Q4": if Request.Form(item)="B" then
Score=Score+10
end if
case "Q5": if Request.Form(item)="C" then
Score=Score+10
end if
case "Q6": if Request.Form(item)="B" 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)="A" then
Score=Score+10
end if
case "Q9": if Request.Form(item)="A" then
Score=Score+10
end if
case "Q10": if Request.Form(item)="D" 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)="A" 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)="D" then
Score=Score+10
end if
case "Q15": if Request.Form(item)="B" then
Score=Score+10
end if
case "Q16": if Request.Form(item)="B" then
Score=Score+10
end if
case "Q17": if Request.Form(item)="A" then
Score=Score+10
end if
case "Q18": if Request.Form(item)="D" then
Score=Score+10
end if
end select
next
Session("score")=Score
%>