El codigo que os mando saca las preguntas y sus respuestas de una base de datos.Lo que me gustaria saber es donde tengo que poner las lineas de codigo que tienen un numero a la izqda(esto es para identificarlas mejor) para que me salgan las preguntas aleatoriamente y no simpre en el mismo orden.Esto lo voy a usar para por ejemplo una base de datos con 50 preguntas, que cada vez que te conectes te salgan 10 diferentes.
Espero haberme explicado mejor.
Un saludo y muchas gracias.
<!-- #include file="adovbs.inc" -->
<%
dim Conn, Rs,SQL, Rs2
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "dsn=prueba"
set Rs=Server.CreateObject("ADODB.Recordset" )'Este recordset sera para la Tabla Preguntas
SQL="Select * From Preguntas"
Rs.Open SQL, Conn
1)Dim rndMax 'Creo la variable que contendra el limite superior
2)rndMax=CInt(Rs.RecordCount) 'Al limite superior le asigno el valor del total de los registros que hay en Preguntas
3)Rs.MoveFirst 'Nos colocamos en el primer registro
4)Dim rndNumber 'Creo una variable para el numero aleatorio que estará entre el liminf y el limsup
5)rndNumber=Int((rndMax - 1) * rnd + 1) 'Al numero aleatorio le asigno el valor: (limsup-liminferior +1)* rnd +liminferior
6)Rs.Move rndNumber ‘Nos movemos al registro que indica el numero aleatorio
%>
<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")'Escribo la pregunta 1%>
<%
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 'del segundo while
Rs2.Close
set rs2 = nothing
%>
<%
Rs.MoveNext
Loop 'del primer while
'descargamos los objetos y cerramos la bd
Rs.Close
SET rs = nothing
Conn.Close
%>
