ordem aleatória

[faivic 0]

Olá pessoal

 

pesquisando aqui mesmo no forum, consegui fazer com que fossem exibidos os registros em ordem aleatória, o problema é que vez por outra quando atualizo alguns registros repetem, qual será o erro?

 

<% RandomizeR=clng(1E8*rnd)Set DB = Server.CreateObject("ADODB.Connection")DB.Open "DBQ=C:\inetpub\wwwroot\bdasp\db_folder\db_file1.mdb;Driver={Microsoft Access Driver (*.mdb)};"Executar= "SELECT TOP 5 * FROM db_table ORDER BY rnd(-(10*cod)* " & R & ")"Executar1= "SELECT TOP 5 * FROM db_table ORDER BY rnd(-(50*cod)* " & R & ")"Executar2= "SELECT TOP 5 * FROM db_table ORDER BY rnd(-(90*cod)* " & R & ")"Executar3= "SELECT TOP 5 * FROM db_table ORDER BY rnd(-(100*cod)* " & R & ")"Set RecSet = DB.Execute(Executar)Set RecSet1 = DB.Execute(Executar1)Set RecSet2 = DB.Execute(Executar2)Set RecSet3 = DB.Execute(Executar3)%>

Grato

[alfaleo 0]

cara,se você estiver usando o sql server 2000faz assim:select top 3 * from tabela order by newid()espero ter ajudado