Mostrar datos aleatoriamente

[pepelucho]

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 ...

[CHuLoSoY]

creo que con la función rnd() funcionaría.

[pepelucho]

Gracias por repondere, pero disculpa mi ignorancia donde iria esa función????????????????????????? :prohibido

[g_susdaniel]

La verdad es que dá flojera leer el codigo de momento, pero te recomiendo que busques el codigo para registro aleatorio en http://www.faqsdelweb.com dentro de la seccion de ASP y luego en Base de datos por allí hay un codigo para registros aleatorios, y si conoces tú codigo, verás donde aplicarlo y adaptarlo a tus necesidades

Salu2

[Avelar]

Lo que seguramente encontrarás es esta fórmula:

Código:

Int((límitesuperior - límiteinferior + 1) * Rnd + límiteinferior)

Con ella logras mostrar aleatoriamente los números... si las preguntas inician en 1 y terminan en la 200, limitesuperior = 200 y limiteinferior = 1

Saludos

[maestro]

Bufff, casi me da un infarto con tantas lineas de codigo, esta es la funcion que estas buscando

<%
set oConn=Server.CreateObject("ADODB.Connection")
set rs=Server.CreateObject("ADODB.Recordset")
oConn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source="&Server.MapPath("tubase.mdb")&";"
SQL="SELECT * FROM tutabla"
rs.OPEN sql, oconn, 3, 1
intTotalRecords = rs.RecordCount
Randomize()
intRandomNumber = Int((intTotalRecords * Rnd))
rs.Move intRandomNumber
' Ahora vamos a mostrar los valores de campo de ese registro aleatorio.
response.write(rs("campo1"))
response.write(rs("campo2"))
%>

[Avelar]

Buena manera maestro... ¿por qué no lo había pensado?