Ver Mensaje Individual
  #10 (permalink)  
Antiguo 08/01/2002, 18:36
vgaray
 
Fecha de Ingreso: octubre-2000
Ubicación: Juarez, Chih.
Mensajes: 161
Antigüedad: 24 años, 7 meses
Puntos: 0
Re: como muestro registros aleatoriamente???

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...