Estimados amigos:
Estoy haciendo un pequeño examen test para mis estudiantes.
Tengo dos páginas:
a) Formulario -preguntas.asp-
Empleo una base en Access; el código es el siguiente:
<%
strsql = "SELECT Id, Pregunta, RespuestaA, RespuestaB, RespuestaC, RespuestaD, Valor, Comentario FROM quiz ORDER BY Id"
' Creamos la conexion a la base de datos
Set oConn = Server.CreateObject("ADODB.Connection")
oConn.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ= quiz.mdb")
' Creamos el RecordSet y definimos la cantidad de registros a mostrar
Set RS = Server.CreateObject("ADODB.Recordset")
' Abrimos la tabla...
RS.Open strSQL, oConn,3,1
%>
<html>
<head>
</head>
<body>
<form action="respuestas.asp" method="post">
Pregunta 1:<% Response.Write("" & RS("Pregunta") & "") %><br>
<%response.write("<input type='radio' name='" & RS("Pregunta") & "' value='" & RS("RespuestaA") & "'>")%>
A) <% response.write("" & RS("RespuestaA") & "") %><br>
<%response.write("<input type='radio' name='" & RS("Pregunta") & "' value='" & RS("RespuestaB") & "'>")%>
B) <% response.write("" & RS("RespuestaB") & "") %><br>
<%response.write("<input type='radio' name='" & RS("Pregunta") & "' value='" & RS("RespuestaC") & "'>")%>
C) <% response.write("" & RS("RespuestaC") & "") %><br>
<%response.write("<input type='radio' name='" & RS("Pregunta") & "' value='" & RS("RespuestaD") & "'>")%>
D) <% response.write("" & RS("RespuestaD") & "") %><p>
<% response.write("<input type='hidden' name='" & RS("Valor") & "' value='" & RS("Valor") & "'>") %>
<% response.write("<input type='hidden' name='" & RS("Comentario") & "' value='" & RS("Comentario") & "'>") %>
<input type="submit" value="Submit">
<input type="reset" value="Reset">
</form>
<%
RS.Close
Set RS = Nothing
oConn.Close
Set oConn = Nothing
%>
</body>
</html>
b) Hoja de respuestas (acertadas/erróneas) -respuestas.asp-
En la hoja de respuesta incluyo un código -es provisional y aún no está acabado-:
<%
i = request.form("question") 'question es la pregunta concreta; es decir, el name del formulario ya en HTML procesado por el Server
j = request.form("comentario")
l = request.form("valor")
if (i = "ratingA") Then 'ratingA es la respuesta correcta (valor)
response.write("<img src='OK.gif'>")
response.write("Tu respuesta: " & i)
response.write("Comentarios: " & j)
response.write("Valor: " & l)
else
response.write("<img src='MAL.gif'>")
response.write("Tu respuesta: " & i)
response.write("Comentarios: " & j)
response.write("Valor: " & l)
end if
%>
QUISIERA SABER LO SIGUIENTE:
Deseo que la variable i se defina en función de la pregunta y no tome un valor fijo (en HTML) que deba escribir en función de la pregunta que se formule.
Deseo que la variable [B]l[B] se defina en función de la respuesta correcta ("Valor") y no tome un valor fijo (en HTML) que deba escribir en función de la respuesta correcta.
Espero que se haya entendido mi consulta,
Gracias,
Emajesus
.
