Busca randomica

[Maycon 0]

Vejam o script abaixo, sempre quando chega no último registro, dá pau !

 

<%ComandoSQL = "SELECT COUNT(*) AS total_registro FROM table Where Ativo=true"Set bd = Conn.Execute(ComandoSQL)total_registros = bd("total_registro")Set bd = Nothingrandomize() registro_sorteado = Int(total_registros *Rnd) + 1ComandoSQL = "SELECT * FROM table Where Ativo=true"Set bd = Conn.Execute(ComandoSQL)If registro_sorteado > 1 Then  bd.Move registro_sorteadoEnd IfResponse.Write bd("NomeFantasia")%>

Alguém poderia ajudar ?

[gastao 0]

de novvo mesma pergunta?????postei um codigo dessa ha um tempo atras....

[Maycon 0]

Então fala onde, pois procurei e não achei ...

[Maycon 0]

Este código que postei é do SuperASP ...