|
|
|
<%
Set ObjConn=Server.CreateObject("ADODB.Connection")
ObjConn.Open "Driver={Microsoft Access Driver (*.mdb)};dbq=C:\Inetpub\vhosts\unistats.net\private\adesalambrar.mdb;PWD=20399;UID=admin"
Set tabla=server.createobject("adodb.recordset")
sql="SELECT distinct ano from fotos ORDER BY ano"
tabla.open sql,objconn,1,3
do while tabla.eof=False
%>
">
<%=tabla.fields("ano")%>
|
<%
tabla.movenext
loop
tabla.close
objconn.close
set tabla=nothing
set objconn=nothing
%>
|
