<%
dim c
c = 0
set rs = server.CreateObject("ADODB.Recordset")
set DB = server.CreateObject("ADODB.connection")
DB.Open ("PROVIDER=Microsoft.Jet.OLEDB.4.0;DATA SOURCE=C:\Inetpub\vhosts\sportstime.com.mx\httpdocs\db\_galeria.mdb")
SQL = "SELECT * FROM fotos"
rs.open SQL, DB, 3, 3
while not rs.eof
c = c + 1
%>