como muestro registros aleatoriamente???

[zangano]

Pues eso, quiero mostrar unos enlaces que estan en una db de forma aleatoria.


...alguien me pasa el codigo, por favor¡¡¡???



saludos ; )

[vgaray]

Saludos.

Favor de visitar.. http://www.4guysfromrolla.com/webtech/072799-1.shtml



---------------------
Espero que esto ayude...

[zangano]

Pues si, ese me sirve, gracias¡¡¡, pero soy medio wey y no puedo, que falla¡¡¡¡..el codigo que ya puse es así...

<%
set oConn=Server.CreateObject("ADODB.Connection&q uot;)
set rs=Server.CreateObject("ADODB.Recordset" )

' Conexión por OLEDB
oConn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source="&Server.MapPath("db/enlaces/cdm.mdb")&";"
SQL="SELECT * FROM Links WHERE LinkID IS NULL"
rs.open SQL, oConn, adOpenStatic, adLockReadOnly

Dim rndMax
rndMax = CInt(rs.RecordCount)
línea 12>>>rs.MoveFirst


Do While Not rs.EOF
%>
<a href="db/enlaces/redirect.asp?linkid=<% = rs("LinkID") %>" class="liga"><font class=letras>  <% = rs("LinkName") %> </a> |</font>
<%rs.MoveNext
Loop%>



<%
rs.MoveFirst

Dim rndNumber
Randomize Timer
rndNumber = Int(RND * rndMax)

rs.Move rndNumber
%>
<a href="db/enlaces/redirect.asp?linkid=<% = rs("LinkID") %>" class="liga"><font class=letras>  <% = rs("LinkName") %> </a> |</font>


<%
rs.Close
oConn.Close
Set rs = Nothing
Set oConn = Nothing
%>
<a href="db/enlaces/ligas.asp" title="todas las ligas incluidas"><font color=black class=mini>:: + </font></a></td>


y me da el sig. error...

ADODB.Recordset error '800a0bcd'

Either BOF or EOF is True, or the current record has been deleted. Requested operation requires a current record.

/inmundo/h_sitios.inc, line 12



weno, voy a seguir intentando, haber que pex con esto, pero la ayuda se agradece xDDD


saludos

[zangano]

Grazie(bah, como se escriba¡¡), pero nop, me salio el mismo error¡¡¡¡¡ :(....estoy usando una db en access, eso puede ser???, porque el codigo general es para una SQL.


saludos

[vgaray]

Saludos.

Intenta cambiar la linea...

SQL="SELECT * FROM Links WHERE LinkID IS NULL"

por..

SQL="SELECT * FROM Links WHERE len(LinkID)<1"

O de plano, quita la restricción 'Where..' para asegurarte que estas obteniendo algo de la base de datos y más tarde la intentas poner.


---------------------
Espero que esto ayude...

[zangano]

borraste la respuesta wey¡¡, weno la alcance a mirar, por eso mi mensaje anterior xDDD



saludos

[vgaray]

Saludos.

Wey? Gueno, al menos vi que ya jala tu página.


---------------------
Espero que esto ayude...

[zangano]

pues si, gracias, pero quedo solo con una liga??, checa como deje el codigo...

<%
set oConn=Server.CreateObject("ADODB.Connection&q uot;)
set rs=Server.CreateObject("ADODB.Recordset" )

' Conexión por OLEDB
oConn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source="&Server.MapPath("db/enlaces/dm.mdb")&";"
SQL="SELECT * FROM Links"
rs.open SQL, oConn, adOpenStatic, adLockReadOnly

Dim rndMax
rndMax = CInt(rs.RecordCount)
rs.MoveFirst

Do While Not rs.EOF
%>
<%'AQUI NO PONGO NADA PA QUE NO DESPLEGUE NADA%>
<%rs.MoveNext
Loop%>

<%
rs.MoveFirst

Dim rndNumber
Randomize Timer
rndNumber = Int(RND * rndMax)

rs.Move rndNumber
%>
<a href="db/enlaces/redirect.asp?linkid=<% = rs("LinkID") %>" class="liga"><font class=letras>  <% = rs("LinkName") %> </a> |</font>


<%
rs.Close
oConn.Close
Set rs = Nothing
Set oConn = Nothing
%>
<a href="db/enlaces/ligas.asp" title="todas las ligas incluidas"><font color=black class=mini>:: + </font></a></td>


Como hago pa sacar 5 registros, intente con TOP, pero nop, una ayuda mas vale xDDDD






saludos

[zangano]

Ya puse, pa los que algún día les sirva la info, solo puse otros mas de estos..


<%
rs.Move rndNumber
%>
<a href="db/enlaces/redirect.asp?linkid=<% = rs("LinkID") %>" class="liga"><font class=letras>  <% = rs("LinkName") %> </a> |</font>






saludos xDD

[vgaray]

Saludos.

<%
set oConn=Server.CreateObject("ADODB.Connection&q uot;)
set rs=Server.CreateObject("ADODB.Recordset" )

oConn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source="&Server.MapPath("db/enlaces/dm.mdb")&";"
SQL="SELECT * FROM Links"
rs.open SQL, oConn, adOpenStatic, adLockReadOnly

Dim rndMax
Dim rndNumber

rndMax = CInt(rs.RecordCount)
Randomize Timer

For x=1 to 5
rndNumber = Int(RND * rndMax)
rs.Move rndNumber
%>
<a href="db/enlaces/redirect.asp?linkid=<% = rs("LinkID") %>" class="liga"><font class=letras>  <% = rs("LinkName") %> </a> |</font>
<%
Next
rs.Close
oConn.Close
Set rs = Nothing
Set oConn = Nothing
%>
<a href="db/enlaces/ligas.asp" title="todas las ligas incluidas"><font color=black class=mini>:: + </font></a></td>

---------------------
Espero que esto ayude...

[zangano]

sabes, creo que el error esta, en que al elegir los registros, en ocasiones se sale del 'x' número de registros que existen que hay en la db, no se si se pasa, o puede generar números negartivos, pero no logro sacar este error...

ADODB.Field error '80020009'

Either BOF or EOF is True, or the current record has been deleted. Requested operation requires a current record.

/inmundo/index.asp, line 0




.....gracias por tu codigo, es el que estoy usando xDDD


saludos