<% Set conn = Server.CreateObject("ADODB.Connection") connstring = "DRIVER={MySQL};HOST=eaglemaster.cqhost.net;UID=naq1_naqsql;PWD=ba92vt;DATABASE=naq1_naq" conn.Open connstring szImageFolder = request.querystring ("folder") page = request.querystring ("page") set deleteset=server.createobject("ADODB.recordset") deleteset.open "select * from images",conn,1,1,1 do while not deleteset.eof if cint(deleteset("id_i"))=cint(request("id"))then 'response.write "cint(deleteset(id_i)) = "&cint(deleteset("id_i"))& " , cint(request(id)) ="&cint(request("id"))&"
" set oldfileobject=server.createobject("scripting.filesystemobject") ra_del=szImageFolder&"/"& deleteset("name_i") 'ra_del="picture\" & deleteset("name_f") 'response.write "
le fichier est "& ra_del if oldfileobject.fileexists(ra_del)then 'response.write "
le fichier existe" oldfileobject.deletefile(ra_del) else response.write "
le fichier "&ra_del&" n'existe pas" end if end if deleteset.movenext loop deleteset.close set olfileobject=nothing set deleteset=nothing sql = "delete from images where id_i="&request("id") conn.execute sql response.write "
delete from images where id_i="&request("id") conn.close set conn=nothing response.redirect "../images/manageimage.asp?folder="&szImageFolder&"&page="&page %>