bak ben anlatayım sen koda dökmeye çalış, yapamazsan ben yazarım sonra, amaç sen öğrenmeye çalış ,

şimdi resim silerken id'yi queryden çek.
sonra sorgula bunu var mı yok mu diye, ulaşınca resmin yolunu bi değişkene ata,
örneğin ResimYolu diye bi değişkene koyduk.

şu aşağıda verdiğim kod ile ilk önce resmi bulup silsin.
ResimYolu = rs("resim")
set fso = CreateObject("Scripting.FileSystemObject")
fso.deleteFile(server.MapPath(ResimYolu))
set fso = nothing

sonra da delete sogusu ile de veritabanından o id ye ait resmi sil.

hadi bakalım