lo tengo asi
Código HTML:
<%
Function NoAleatorio(inicio, fin)
Randomize()
NoAleatorio = Int((fin - inicio + 1) * Rnd + inicio)
End Function
Response.Write "SACAR REGISTROS ALEATORIAMENTE<br /><br /><br />"
'Numero de registros que devolveremos del recordset
recNo = 2
set oConn=Server.CreateObject("ADODB.Connection")
oConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath("datos/hotel_en_baqueira.mdb")&";"
SQL = "SELECT TOP " & recNo &" id, nombre, localidad FROM restaurantes where destacado = 1 ORDER BY " & NoAleatorio(1,3) &""
'---Debug-----
'Response.Write(SQL)
'Response.End()
'-------------
set rs = oConn.Execute(SQL)
registros = rs.GetRows
rs.Close
Set rs = Nothing
oConn.Close
Set oConn = Nothing
For i = 0 To UBound(registros,2)
Response.Write registros(0,i) &" - " & registros(1,i) &" - " & registros(2,i) &" - <br />"
Next
%>
donde resgistros destacados tengo 4 y solo me muestra los dos primeros