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