|
|
<%
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 * from fotos WHERE ano='&ano&' ORDER BY ID"
'response.write(sql)'
tabla.open sql,objconn,1,3
do while tabla.eof=False
%>
&tit=<%=tabla.fields("titulo")%>"> p.jpg" border="0" alt="<%=tabla.fields("titulo")%>">
<%
tabla.movenext
loop
tabla.close
objconn.close
set tabla=nothing
set objconn=nothing
%>
|
