Ver Mensaje Individual
  #9 (permalink)  
Antiguo 26/10/2009, 04:43
alpe2000
 
Fecha de Ingreso: enero-2008
Ubicación: Málaga - España
Mensajes: 346
Antigüedad: 17 años, 2 meses
Puntos: 13
Respuesta: Mostrar resultados de una tabla con un for

nene16803 te contesto en público, porque así podemos ayudar a más personas que tengan la misma duda.

Verás, veo que tienes una especie de "follón" con el código.

Vamos a tu código original, el del primer post.

primera línea:
Abres una tabla,
abres una fila,
abres una celda

despues creas la conexión y en el do--loop pues abres otra celda, para abrir luego una tabla que a su vez tiene un div...... no sé.. lo veo todo muy liado.

Creo que primero tendrías que aclarar el código, para luego si quieres darle formato.
Esto es un consejo de como yo lo hago.
1º hago el código y compruebo que funciona
2º lo pongo "bonito"

Te voy a simplificar tu código con el primero que pusiste, comprueba que te funciona y luego lo pones "bonito".

<table>
<tr>

<%

Dim oConn, RS, leyenda, foto
set oConn=server.createobject("ADODB.connection")
set rs=server.createobject("ADODB.Recordset")
oConn.open("DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.Mappath("bd1.mdb"))

rs.Open "tabla",oConn

cantidad_de_tds = 1
do until rs.EOF

foto=rs.Fields("foto")
leyenda=rs.Fields("leyenda")

if cantidad_de_tds = 3 then
response.write "</tr><tr>"
cantidad_de_tds = 1
else
Response.Write "<td><a href='imagenes/" & foto & "'> <img src='imagenes/" & foto & "' width='106' height='121' border='0' id='img-mwsf-14' class='photo'></a> <br>" & leyenda & "</td>"
cantidad_de_tds = cantidad_de_tds + 1
end if


rs.MoveNext
loop

rs.close
Set rs = Nothing
oConn.close
Set oConn = Nothing

%>

</tr>

</table>

he supuesto que "leyenda" es un título de la imagen y te lo he puesto justo debajo de cada imagen.

Suerte !!