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 %>

[willybit]

Ciao hugheshi,

verifica col FileSystemObject l'esistenza del file.

set fso = Server.CreateObject("Scripting.FileSystemObject")
strImmagine = "../area_protetta/foto/" & rs.fields("filename")
if fso.FileExists(Server.MapPath(strImmagine)) then
  %>[img]<%=strImmagine%>[/img]<%
end if%>

[hugheshi]

ciao e come faccio per far scrivere qualcosa se non c'è?
es controllo che il file esista , ma se non c'è vorrei far scrivere qualcosa avideo

set fso = Server.CreateObject("Scripting.FileSystemObject")
strImmagine = "../area_protetta/foto/" & rs.fields("filename")
if fso.FileExists(Server.MapPath(strImmagine)) then
  %>[img]<%=strImmagine%>[/img]<%end if%>

[willybit]

con un else

set fso = Server.CreateObject("Scripting.FileSystemObject")
strImmagine = "../area_protetta/foto/" & rs.fields("filename")
if fso.FileExists(Server.MapPath(strImmagine)) then
  %>[img]<%=strImmagine%>[/img]<%
else
  %>Immagine <%=rs.fields("filename")%> non presente<%
end if%>

[hugheshi]

grazie 1000