estrazione foto "che non c'è"

[hugheshi]

grazie a baol carico delle foto su server e db ma dato che l'upload del file è facoltativo può verificarsi che quando richiamo il dato la foto giustamente non ci sia e quindi venga stampata un riquadro foto con X.

<%

CNN=Application("CNN")

set conn=Server.CreateObject("ADODB.Connection")
conn.open CNN

set rs=Server.CreateObject("ADODB.RecordSet")

qry="SELECT * FROM prima ;"

rs.Open qry,conn
if rs.eof then
%>
Nessun dato disponibile. 
<%
else
%>
 <%while not rs.eof%>
<%if (rs.fields("filename")) = "" then
									Response.Write("No Foto")
									 else %> [img]<%=[/img]/<%=rs.fields("filename")%>><% end if %>