<%
dim rsNotas
set rsnotas = server.CreateObject("ADODB.recordset")
rsNotas.ActiveConnection = application("conexion")
rsNotas.source = "select id, volanta, titulo, bajada from fap_proyectos order by id desc"
rsNotas.Open
%>
<%
while not rsnotas.eof
%>
<%
dim fso
Set fso = CreateObject("Scripting.FileSystemObject")
if fso.fileexists(application("dir_notas") & "\" & trim(rsnotas.fields("foto"))) then
%>