<% dim strsql, rs, strcon, cnn, cat Set cnn = Server.CreateObject("ADODB.Connection") StrCon = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\Inetpub\wwwroot\WWW189\data\galeria.mdb" cnn.Open StrCon set rs = server.createObject("ADODB.Recordset") StrSql = "SELECT fotos.*" &_ " FROM fotos;" rs.Open StrSql, cnn if rs.recordcount>0 then rs.Movefirst Set id = rs("id") Set titulo = rs("titulo") Set autor = rs("autor") Set fecha = rs("fecha") Set archivo = rs("archivo") Set descripcion = rs("descripcion") dim contador contador = 0 %> artesculinarias.org > Revista gastronómica > Galería

Revista gastronómica > Galería



<% do while not rs.EOF %> <% contador = contador + 1 if ((contador MOD 2)=0) then %> <% else %> <% end if rs.movenext loop %>
<%Response.Write titulo%>

<%Response.Write titulo%>
por <%Response.Write autor%>
<%Response.Write fecha%>