Hola tengo este codigo que me saca las preguntas y respuestas de un examen online de una base de datos.
¿Como puedo hacer para que me salgan aleatoriamente las preguntas de la base de datos y que asi no me salgan siempre las mismas preguntas?
Muchas gracias y un saludo
<!-- #include file="adovbs.inc" -->
<%
dim Conn, Rs,SQL, Rs2
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "dsn=prueba2"
set Rs=Server.CreateObject("ADODB.Recordset" )'Este recordset sera para la Tabla Preguntas
SQL="Select * From Preguntas"
Rs.Open SQL, Conn
%>
<html>
<TITLE> Formulario</TITLE>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
</head>
<body>
<form method="POST" action="ResultadosForm.asp" name="formExam">
<%Do While Not Rs.Eof
'seleccionamos la pregunta
Response.Write Rs("preguntas")%>
<%
set Rs2=Server.CreateObject("ADODB.Recordset" ;) 'Este recordset es para las respuestas
SQL="SELECT * FROM Respuestas WHERE idq=" & Rs("idq")
Rs2.Open SQL, Conn
'mostramos las diferentes respuestas por idq
Do While Not Rs2.Eof %>
<p>
<% num=Rs("idq")& Rs2("idr")%>
<input type="radio" value="<%=num%>"
name="Pregunta<%=Rs("idq")%>& quot;>
<%=Rs2("respuestas")%>
</p>
<%
Rs2.MoveNext
Loop
Rs2.Close
set rs2 = nothing
%>
<%
Rs.MoveNext
Loop
'descargamos los objetos y cerramos la bd
Rs.Close
SET rs = nothing
Conn.Close
%>
<p> Introduce tu DNI
<input type="numeric" name="DNI">
</p>
<p>
<input type="submit" value="Enviar" name="Boton Enviar">
<input type="reset" value="Restablecer" name="Boton Restablecer">
</p>
</form>
</body>
</html>
