10 registros aleatorios

[engonga]

hola estoy intentando implementar esto

http://www.forosdelweb.com/f15/mostr...licado-481557/

pero me da un error

ADODB.Recordset (0x800A0E79)
La operación no está permitida si el objeto está abierto.
/hotelenbaqueira/restaurantes.asp, línea 166

alguien sabe?

[engonga]

ya casi lo tengo

Código PHP:

  <%  Dim conn, rst

Set rst= Server.CreateObject("ADODB.Recordset")
rst.ActiveConnection = MM_hotel_STRING
rst.Source = "SELECT * FROM restaurantes where destacado ='1'"
rst.CursorType = 2
rst.CursorLocation = 2
rst.LockType = 2
rst.Open()



if not rst.EOF then
    rst.moveFirst()
    for i=0 to 9
    a = Int((rst.recordCount) * Rnd)
    
     Te posiciones en el registro aleatorio
    rst.move(a)%>
                <li><a href="#primero"><%=rst("nombre")%> - <%=rst("localidad")%></a></li>
<% 
next 
end if
rst.close()
set rst = nothing 
%> 
   

pero me sale el error

Código HTML:

ADODB.Field (0x80020009)
El valor de BOF o EOF es True, o el actual registro se eliminó; la operación solicitada requiere un registro actual.

[AlZuwaga]

Probá colocando rst.moveFirst() justo en la línea anterior a rst.move(a)

[engonga]

me sale el mismo error

y si canvio

esto

Código PHP:

   for i=0 to 9
    a = Int((rst.recordCount) * Rnd) 
   

por esto

Código PHP:

   for i=0 to rst.recordCount
    a = Int((rst.recordCount) * Rnd) 
   

no me escupe ningun error
pero no me pinta nada es como si no hiciera el for

[engonga]

he econtrado esto que me devuelve un solo registro

Código PHP:

  <%
dim rs_restaurantes_dest
dim rs_restaurantes_dest_numRows

Set rs_restaurantes_dest = Server.CreateObject("ADODB.Recordset")
rs_restaurantes_dest.ActiveConnection = MM_hotel_STRING
rs_restaurantes_dest.Source = "SELECT * FROM restaurantes WHERE destacado= 1"
rs_restaurantes_dest.CursorType = 3
rs_restaurantes_dest.CursorLocation = 2
rs_restaurantes_dest.LockType = 1
rs_restaurantes_dest.Open()

'rs_restaurantes_dest_numRows = 0
if Not rs_restaurantes_dest.EOF then
'rs_restaurantes_dest_mostra = "si"
dim rndmax_promo
rndmax_promo = cint(rs_restaurantes_dest.recordcount)


rs_restaurantes_dest.movefirst

dim rndnumber_promo

randomize timer

rndnumber_promo = int(rnd * rndmax_promo)

rs_restaurantes_dest.move rndnumber_promo
%>

<%=rs_restaurantes_dest("nombre")%><br />
<%' carry out your action here, with the appropriate recordset index
' for example response.redirect(objrs("url")) (requires response.buffer = true
 or response.write("<img src=" & objrs("img") & ">")

else
end if%> 
   

no se si poniendo un for o un while me mostrara 10 o mas registros

[sjam7]

bueno, no se que base de datos usas pero si usas MySQL (aconsejable) puedes poner ORDER BY RAND() LIMIT 10 al Select y listo, quedando algo asi:

Select * From TABLA ORDER BY RAND() LIMIT 10

[Myakire]

Si a esas vamos si usa Sql server 2005 puede usar esto:

select top 10 * from Tabla order by newid()


PD.
Creo recordar que en access también existe la función rand(), igual con esa se puede hacer algo si esa fuera la "BD" que usa.

[engonga]

uso access

[Adler]

Hola

En este post tienes la solución

Suerte

[Myakire]

Para otros usuarios ... continua aquí