<% Set rs = cnnSimple.Execute("SELECT * FROM whois") Do While Not rs.EOF Set fs = Server.CreateObject ( "Scripting.FileSystemObject" ) fichier = rs("id") & "_" & rs("prenom") & "_" & rs("nom") & ".jpg" repertoire = "photos/" chemin = Server.MapPath(repertoire & fichier) If fs.FileExists (chemin) then Response.Write "Photo existe" Else Response.Write "Photo existe pas" Set rs = cnnSimple.Execute("UPDATE whois set photo = 4") End if rs.MoveNext Loop %>