04/12/2002, 06:15
|
 | | | Fecha de Ingreso: junio-2002
Mensajes: 72
Antigüedad: 22 años, 11 meses Puntos: 0 | |
 Muestra de forma aleatoria un nº de registros
tengo el siguiente codigo...
kiero ver en forma aleatoria el contenido de mi base de datos..... <%
Set con = Server.CreateObject("ADODB.Connection")
Con.Open("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & _
Server.MapPath("../Data/noticias.mdb"))
Option Explicit
randomize
Dim elementos, con, rs, sql, matrizseleccionados, maximo, salto, valor, titulo, subtitulo, foto, i elementos
Set con=Server.CreateObject("ADODB.connection")
Set rs=Server.CreateObject("ADODB.RecordSet")
sql= "SELECT titulo, subtitulo, foto FROM actualidad;" ' filtramos la tabla seleccionando
' los productos a mostrar
con.Open "catalogo" ' abre la conexion usando DSN
rs.Open sql, con
IF NOT rs.EOF THEN
matrizseleccionados = rs.GetRows()
rs.Close
con.Close
Set rs=Nothing
Set con=Nothing
' Aqui empezamos el codigo para mostrar de forma aleatoria de 4 en 4
maximo = UBOUND (matrizseleccionados, 2)+1 ' el nº maximo de registros + 1 porque el primer registro es el 0
salto = maximo / elementos ' dividimos el total de elementos entre los elementos a mostrar cada vez
IF maximo <= elementos THEN salto = 1 ' si el numero resultante es menor o igual del numero de elementos a mostrar
' establecemos este valor a 1
%>
<html>
<head>
<title>Muestra de forma aleatoria </title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>
<body bgcolor="#FFFFFF" text="#000000">
<%
FOR i=0 TO maximo-1 STEP salto
valor = RND * (salto-1) ' establece un valor aleatorio
titulo= matrizseleccionados (0,i+valor) ' asigna la primera columna (titulo) y el nº registro aleatorio a la variable
subtitulo=matrizseleccionados (1,i+valor)
foto=matrizseleccionados (3,i+valor)
%>
<table>
<tr>
<td><%
IF TRIM(foto)<> "" THEN
%>
<img src="../panel/Foto/<%= foto %>">
<%
END IF
%>
</td>
<td> <%= titulo %> </td>
<td> <%= subtitulo %> </td>
</tr>
</table>
<%
NEXT
END IF
%>
</body>
</html>
pero al cargarlo en el servidor me da un problema 
Error de compilación de Microsoft VBScript error '800a0400'
Se esperaba una instrucción
/noticias/aleatorio.asp, line 26
Option Explicit
 |