Es lo que te comentaba del bucle... el inicio del bucle no me lo has puesto y cuando imprimes la valoración.. ahí me equivoqué yo
(donde está el smile de vergüenza?) .. debí habértela puesto después del bucle...
Te reescribo el código de nuevo:
Cita: <%
nCorrect = 0
i = request.form(RS("Question"))
if i = "" then
response.write "No contesto a la pregunta"
else
response.write("<p class='Ques'>" & RS("Question") & "</p>")
response.write("<p class='Ans'>La respuesta correcta:" & RS("Valor") & "")
if (i= RS("Valor")) Then
response.write(" <p class='CorExpl'>¡CORRECTO! Tu respuesta ha sido: " & i & "</p><br><br>")
nCorrect = nCorrect + 1
else
response.write(" <p class='IncExpl'>¡INCORRECTO! Tu respuesta ha sido: " & i & "</p><br><br>")
end if
end if
RS.MoveNext
Loop
nPercent = nCorrect / 10 * 100
%>
VALORACIÓN:<%= nCorrect %> DE 10 PREGUNTAS.
(<%= nPercent %> )
<%
RS.Close
Set RS = Nothing
oConn.Close
Set oConn = Nothing
%>