Foros del Web » Programando para Internet » ASP Clásico »

Resultados horizontal y vertical

Estas en el tema de Resultados horizontal y vertical en el foro de ASP Clásico en Foros del Web. Hola a todos, soy novato en ASP y necesito de su ayuda. Mi problema es con una galeria de imagenes que estoy armando en ASP ...
  #1 (permalink)  
Antiguo 29/04/2007, 21:22
 
Fecha de Ingreso: abril-2007
Mensajes: 12
Antigüedad: 18 años
Puntos: 0
Exclamación Resultados horizontal y vertical

Hola a todos, soy novato en ASP y necesito de su ayuda. Mi problema es con una galeria de imagenes que estoy armando en ASP - Javascript. Los resultados me los trae en una sola columna y necesito que me los traiga en varias columnas (o sea de forma horizontal y vertical), para que aparezcan todas las imagenes seguidas. Les envio el codigo.

Agradezco me puedan ayudar.

--------------------------

<%@LANGUAGE="JAVASCRIPT" CODEPAGE="1252"%>
<!--#include file="Connections/conex.asp" -->
<%
var rsModulos = Server.CreateObject("ADODB.Recordset");
rsModulos.ActiveConnection = MM_conex_STRING;
rsModulos.Source = "SELECT cod_empre, img_modulo, url_modulo FROM dbo.tblModulos ORDER BY img_modulo ASC";
rsModulos.CursorType = 0;
rsModulos.CursorLocation = 2;
rsModulos.LockType = 1;
rsModulos.Open();
var rsModulos_numRows = 0;
%>
<%
var Repeat1__numRows = -1;
var Repeat1__index = 0;
rsModulos_numRows += Repeat1__numRows;
%>
<html>
<head>
<title>Clasificados ABC</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" />
</head>

<body>
<table width="100%" border="0" cellspacing="2" cellpadding="2">
<tr>
<td align="center" valign="top">
<% while ((Repeat1__numRows-- != 0) && (!rsModulos.EOF)) { %>
<table border="2" cellpadding="0" cellspacing="0" bordercolor="#00CCCC">
<tr>
<td> <a href="<%=(rsModulos.Fields.Item("url_modulo").Valu e)%>"><img src="modulos/<%=(rsModulos.Fields.Item("img_modulo").Value)%> " width="200" height="245" border="0"></a>
</td>
</tr>
</table>
<%
Repeat1__index++;
rsModulos.MoveNext();
}
%> </td>
</tr>
</table>
</body>
</html>
<%
rsModulos.Close();
%>
-----------------------------------
  #2 (permalink)  
Antiguo 30/04/2007, 11:55
Avatar de JuanRAPerez
Colaborador
 
Fecha de Ingreso: octubre-2003
Mensajes: 2.393
Antigüedad: 21 años, 6 meses
Puntos: 27
Re: Resultados horizontal y vertical

dos columnas
prueba

<body>
<table width="100%" border="0" cellspacing="2" cellpadding="2">
<tr>
<td align="center" valign="top">

<table border="2" cellpadding="0" cellspacing="0" bordercolor="#00CCCC">
<% while ((Repeat1__numRows-- != 0) && (!rsModulos.EOF)) { %>
<tr>
<td> <a href="<%=(rsModulos.Fields.Item("url_modulo").Valu e)%>">
<img src="modulos/<%=(rsModulos.Fields.Item("img_modulo").Value)%> " width="200" height="245" border="0"></a>
</td>
<%
' te mueves al siguiente registro e imprimer un nuevo td (celda)
rsModulos.MoveNext()
%>
<td> <a href="<%=(rsModulos.Fields.Item("url_modulo").Valu e)%>">
<img src="modulos/<%=(rsModulos.Fields.Item("img_modulo").Value)%> " width="200" height="245" border="0"></a>
</td>
</tr>
<%
Repeat1__index++;
rsModulos.MoveNext();
}
%>
</table>
</td>
</tr>
</table>
</body>
__________________
JuanRa Pérez
San Salvador, El Salvador
  #3 (permalink)  
Antiguo 01/05/2007, 16:50
 
Fecha de Ingreso: abril-2007
Mensajes: 12
Antigüedad: 18 años
Puntos: 0
Re: Resultados horizontal y vertical

Gracias por la ayuda JuanRAPerez, me funciono bien, solo que cuando la cantidad de registros no es par (para el caso de 2 columnas), saca el error:

Tipo de error:
ADODB.Field (0x800A0BCD)
El valor de BOF o EOF es True, o el actual registro se eliminó; la operación solicitada requiere un registro actual.

Gracias si me puedes colaborar de nuevo....
Atención: Estás leyendo un tema que no tiene actividad desde hace más de 6 MESES, te recomendamos abrir un Nuevo tema en lugar de responder al actual.
Respuesta




La zona horaria es GMT -6. Ahora son las 16:14.