Ver Mensaje Individual
  #5 (permalink)  
Antiguo 11/12/2002, 17:17
Avatar de maestro
maestro
 
Fecha de Ingreso: febrero-2002
Ubicación: España
Mensajes: 2.364
Antigüedad: 22 años, 9 meses
Puntos: 1
Bueno, si solo es ese el problema puedes solucionarlo añadiendo un campo llamado preferente (por ejemplo), y marcandolo como TRUE.
Imaginate que tienes 50 registros y solo marcas 10 como importantes, esos registros seran los que tendra en cuenta unicamente el generador aleatorio y no todos los elementos de la tabla, con lo cual existen muhcas mas posibilidades de que no se repitan.

Quedaria algo asi:

<%
set oConn=Server.CreateObject("ADODB.Connection")
set rs=Server.CreateObject("ADODB.Recordset")
oConn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source="&Server.MapPath("tubase.mdb")&";"
SQL="SELECT * FROM tutabla where preferente=true"
rs.OPEN sql, oconn, 3, 1
intTotalRecords = rs.RecordCount
Randomize()
intRandomNumber = Int((intTotalRecords * Rnd))
rs.Move intRandomNumber
' Ahora vamos a mostrar los valores de campo de ese registro aleatorio.
response.write(rs("campo1"))
response.write(rs("campo2"))
%>
__________________
Jose Maria Fernandez
[email protected]
Http://www.expansionweb.net