Registros Aleatorios

[marcoscoms 0]

Olá Pessoal,Estou com problemas eu tenho um db com produtos, e na visualização estes produtos aparecem de 3 em 3 porem não consigo fazer que eles fiquem aleatorios.Espero queme ajudemMarcos

[rOcKLoCo 0]

<!--#include file="cn.asp"--><%Sub Rnd_Banco()set rs = Server.CreateObject("ADODB.Recordset")rs.Open "select * from busca order by id", cnIf not rs.EOF Then strBanners = rs.getrows() rs.movefirst Do While Not rs.EOF  intCounter = intCounter + 1  rs.movenext Loopend ifRandomize  intID = Int(Rnd * intCounter)    IF  IntID = 0 Then                strDisplay = strBanners(1,0)  Else  strDisplay = strBanners(1,intID)  End IFResponse.Write(strDisplay)rs.closeset rs = nothingcn.closeset cn = nothingEnd SubRnd_Banco()%>