Ver Mensaje Individual
  #1 (permalink)  
Antiguo 25/10/2009, 11:10
nene16803
 
Fecha de Ingreso: junio-2004
Mensajes: 47
Antigüedad: 20 años, 10 meses
Puntos: 0
Mostrar resultados de una tabla con un for

Hola, quiero mostrar resultados de una tabla, y quiero mostrar 3 resultados en la misma linea, para que me entendais, quiero meterlos en 3 td en la misma linea y una vez llege a los 3 salte el el /tr.

este es el codigo que tengo que me muestra de 1 en 1

Cita:
<table><tr><td>

<%


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
do until rs.EOF


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


Response.Write("<td><table width='23%' height='99' border='1' align='center' cellpadding='1' cellspacing='1'><tr><td><div class='eltexto1'>")
Response.Write("<div align='center'><a href='imagenes/" & foto & "'> <img src='imagenes/" & foto & "' width='106' height='121' border='0' id='img-mwsf-14' class='photo'></a></div></div></td>")
Response.Write("</tr><tr><td bgcolor='#9D785B'><div class='eltexto2'><div align='center'>" & leyenda & "</div></div></td></tr></table> ")

rs.MoveNext
loop
rs.close
Set rs = Nothing
oConn.close
Set oConn = Nothing

%>

</td></tr>

</table>
Gracias y espero que me ayudeis, pues soy un poco torpe para los for.

Última edición por nene16803; 25/10/2009 a las 11:49 Razón: confusion del titulo