<%
Dim total_registros_encontrados, j, temp, x, arreglo, i, oConn, RS
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")
total_registros_encontrados = 3
For j = 0 to CInt(total_registros_encontrados) Step 3
temp = temp & " " & j
Next 'j
arreglo = Split(Replace(Trim(temp), " ", ","),",")
For x = 0 to UBound(arreglo)
arreglo(x) = arreglo(x)
Next
%>
<table border="1"><tr>
<%
For i = 1 to CInt(total_registros_encontrados)
'Response.Write "<td>" & i & "</td>"
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> ")
If i Mod 3 = 0 Then
Response.Write "</tr><tr>"
End If
Next 'i
%>
</tr> </table>
<%
rs.MoveNext
loop
rs.close
Set rs = Nothing
oConn.close
Set oConn = Nothing
%>
</td></tr></table>