Sacar registros aleatorios de BD?

[Shiryu_Libra]

numeros aleatorios

Código ASP:

function alea(max)
    dim rndmax
    dim rndnumber
   
    rndmax = cdbl(max)
    randomize timer
   
    rndnumber = int(rnd * rndmax)
 
alea = rndnumber
end function
 

donde max, seria la limitante de los numeros aleatorios

Código ASP:

<%
AbreBaseDatos("Datos")
SQL = "SELECT * FROM ARTICULOS"
AbreRecordSet rs,SQL,ConDatos
 
max_despliegue = 10
intTotalRecords = rs.RecordCount
 
for I=0 to max_despliegue
    rs.Move alea(intRandomNumber)%>
 
<a href="/articulo.asp?op=Ver_Articulo&RefPro=<%=rs.fields(" RefProducto")%>&RefArt=<%=rs.fields("RefArticulo") %>&cat=<%=rs.fields("categoria")%>"><img src="/imagen.asp?path=<%=Server.MapPath("/Images/Productos/")& "/" & rs.fields("RefArticulo")%>_1.jpg&height=75" height="75" border="0" align="left"></a>
<br><br>
<a href="/articulo.asp?op=Ver_Articulo&RefPro=<%=rs.fields(" RefProducto")%>&RefArt=<%=rs.fields("RefArticulo") %>&cat=<%=rs.fields("categoria")%>"><%=rs("Nombre" )&" "&rs("color")%></a><br><br><br><font size="1"><blockquote><%=(left(rs("Descripcion"),25 0)) %> ...</blockquote></font><%
 
next
'RECUERDA CERRAR TODO PERFECTAMENTE PARA QUE NO MARQUE ERROR
%>
 

esto desplegaria un total de 10 aleatorios
que opinan?