
26/10/2009, 04:43
|
| | 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 !! |