
08/01/2002, 18:36
|
| | 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>&nbsp;&nbsp;<% = rs("LinkName") %>&nbsp;</a>&nbsp;|</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... |