Ver Mensaje Individual
  #8 (permalink)  
Antiguo 08/01/2002, 18:23
zangano
 
Fecha de Ingreso: enero-2001
Mensajes: 222
Antigüedad: 24 años, 3 meses
Puntos: 0
Re: como muestro registros aleatoriamente???

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