Aynı anda hem veritabanından hem ide fiziksel alanınızdan verileri silmek için örnek kod hazırladım:



sor = "Select * from resimleri where id="&id&" "
cnet1.Open sor,Sur,1,3
resim=cnet1("resim")
Set FSO = CreateObject("Scripting.FileSystemObject" )
FSO.DeleteFile (Server.MapPath("galeriresimleri/"&resim))
cnet1.close

sor = "DELETE from resimleri WHERE id="&id&""
cnet.open sor,Sur,1,3
cnet.close
End if