Rellenar todas las columnas

05/10/2004 - 20:06 por chelo | Informe spam
Hola grupo, tengo una tabla con 3 columnas y quiero que se rellenen con
imagenes que se almacenan en un recordset.(que contiene las rutas a los
ficheros) hasta que se termine, pero lo unico que se rellena es la primera
columna y no se como hacer para que introduzcan las imagenes en las
restantes 2 columnas.

lo que no se es como hacer para que se posicione en la celda que esta al
lado y establezca la imagen, y en caso de no haber mas celdas a la derecha
que pase a la primer celda de la fila de abajo.


Este es el codigo

<%
do until rs.EOF %>

td width="33%" valign="middle" align="center"><font face="Arial, Helvetica,
sans-serif" size="2"><img src="<%=RS("rutafichero")%>" width="100"
height="100"></font></td>

<%
rs.MoveNext
loop %>


saludos

chelo
 

Leer las respuestas

#1 Miguel Gonzalez
05/10/2004 - 22:00 | Informe spam
Hola Chelo.

Una forma, quizás sería estableciendo un contador de celdas que compare la celda que sirves con una
variable que almacene el número de columnas de la tabla:

<table>
<%
Dim contador, columnas
contador = 1
columnas = 3
Do Until rs.EOF
If contador = 1 Then
Response.Write("<tr>")
End If
%>
<td><img src="<%=RS("rutafichero")%>"></td>
<%
contador = contador + 1
If contador > columnas Then
contador = 1
Response.Write("</tr>")
End If
rs.MoveNext
Loop
' Esto es para rellenar las celdas vacías de la última fila
If contador > 1 Then
For i = contador To columnas
Response.Write("<td>&nbsp;</td>")
Next
Response.Write("</tr>")
End If
%>
</table>

Saludos!
Miguel


chelo wrote:
Hola grupo, tengo una tabla con 3 columnas y quiero que se rellenen con
imagenes que se almacenan en un recordset.(que contiene las rutas a los
ficheros) hasta que se termine, pero lo unico que se rellena es la primera
columna y no se como hacer para que introduzcan las imagenes en las
restantes 2 columnas.

lo que no se es como hacer para que se posicione en la celda que esta al
lado y establezca la imagen, y en caso de no haber mas celdas a la derecha
que pase a la primer celda de la fila de abajo.


Este es el codigo

<%
do until rs.EOF %>

td width="33%" valign="middle" align="center"><font face="Arial, Helvetica,
sans-serif" size="2"><img src="<%=RS("rutafichero")%>" width="100"
height="100"></font></td>

<%
rs.MoveNext
loop %>


saludos

chelo



Preguntas similares