Photo

<% Dim seleccion Dim seleccion_numRows ene = 1 Set seleccion = Server.CreateObject("ADODB.Recordset") seleccion.ActiveConnection = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & "D:\XVRT\tahonagarden.com\Html\panel_de_control\tahona.mdb" & ";" seleccion.Source = "SELECT * FROM galerias order by id" seleccion.Open() while not seleccion.EOF foto = seleccion("foto") %> <% If ene = 2 then ene = 0 %> <% End If %> <% ene = ene +1 seleccion.MoveNext wend seleccion.Close() Set seleccion = Nothing %>
Reserved Rights © Tahona Garden :: Contacto :: Aviso Legal :: Inicio :: Webmail / Sucursalweb