2 replies to this topic

[anakin007]

pessoal, to usando o codigo abaixo pra ele sortear 3 registros, sorteando atraves do ID, certo? porem, sempre que atualizo ele pega sempre os 3 registros iguais..

alguem teria uma outra solucao??

<%
abreconexao
sql= "SELECT top 3 * FROM tabela ORDER by RND(id)"
set recad = conexao.execute(sql)
while not recad.EOF
%>

[KAKO-]

olhe esse topico:
talvez te ajude
http://forum.wmonlin...showtopic=54924

falow!

[otavio]

Olá amigo, tente assim:

Dim IDs(), iCont

For i = 1 to 3

Set RS = conexao.Execute("SELECT * FROM tabela;")
If Not RS.EOF Then
ReDim IDs(0)
iCont = 0
Do While Not RS.EOF
iCont = iCont + 1
ReDim Preserve IDs(iCont)
IDs(iCont) = RS("id")
RS.movenext
Loop
RS.close
set RS = nothing
Randomize
idrnd = IDs(iCont * Rnd)

Set RSrnd = conexao.execute("SELECT * FROM tabela WHERE id = '" & idrnd & "';")
response.write RSrnd("id")
RSrnd.close
Set RSrnd = nothing

next

Fiz agora, vê ai se ele mostra na tela tres registros diferentes.
Um abraço,
t+