Hola a todos, como puedo mostrar datos aleatoriamente, tengo un test online pero quisiera que me muestre las preguntas aleatoriamente, aqui le pongo el codigo:
<%if isarray(session("mytest"))=false then
idtest=request("idtest")
if idtest="" then response.redirect "default.asp"
' dim pmytest(25,1)
dim pmytest(100,1)
sqltxt="select idpregunta from preguntas where idtest="&idtest
ra.open sqltxt,cn
if ra.eof then
ra.close
set ra=nothing
cn.close
set cn=nothing
response.redirect "resettest.asp"
end if
i=0
do while not ra.eof
i=i+1
pmytest(i,0)=ra("idpregunta")
pmytest(i,1)=0
ra.movenext
loop
ra.close
sqltxt="select titulo from test where idtest="&idtest
ra.open sqltxt,cn
titulo=ra("titulo")
ra.close
session("npreguntas")=i
session("test")=idtest
session("nivel")=niv
session("titulo")=titulo
session("posicion")=1
posicion=1
session("mytest")=pmytest
Set rgq=server.createobject("adodb.recordset")
rgq.activeconnection=cn
srgq="Select *from usuarios where email='"&session("login")&"'"
rgq.open srgq
session("nick")=rgq("id")
else
pmytest=session("mytest")
posicion=session("posicion")
pmytest(posicion,1)=request.form("r1")
session("mytest")=pmytest
if posicion <= session("npreguntas") then
posicion=posicion+1
session("posicion")=posicion
end if
end if
'----------------
Gracias de antemano
...