<% 'pour afficher l image dim Repertoire dim item dim rstImg set rstImg = conn.execute("SELECT Image FROM TableMesure where Nom_Wafer ='" & RS("Nom_Wafer") & "' ") img = rstImg("Image") Set FSO = CreateObject("Scripting.FileSystemObject") Set Repertoire = FSO.GetFolder(server.MapPath("/intranet/upload/") & "\") if FSO.FileExists(Server.MapPath("/intranet/upload/" & img)) then%> zoom

<%else%> Pas d image pour ce projet <% end if Set Repertoire = nothing Set FSO = nothing rstImg.close set rstImg = nothing %>