non ho mai provato ma prova così

codice:
<%
CNN=Application("CNN")
set conn=Server.CreateObject("ADODB.Connection")
conn.open CNN
set rs=Server.CreateObject("ADODB.RecordSet")

sql = "select top 2 * from volantino order by id desc "
rs.open sql, conn, 1, 3
rs.movelast
if not rs.eof 
%>
<%
response.write ""&rs.fields("id")&"
"
%>
<%
set fso = Server.CreateObject("Scripting.FileSystemObject")
strImmagine = "./area_protetta/fotov/" & rs.fields("filename")
if fso.FileExists(Server.MapPath(strImmagine)) then
%>
<%
response.write""& rs.fields("filename") &"
"
%>
<%
else
 %>
<%=rs.fields("filename")%> 
<%
			end if

end if
rs.close

response.End()
%>