Suponiendo que la variable id se rescata de un formulario anterior y hay que rescatar la iamgen de la base de datos, seria algo asi:
Código:
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("base de datos.mdb"))
sql="Select * From productos Where id = " & id & ""
Set rs = Conn.Execute(sql)
imagen = rs("imagen")
sql="Delete * From productos Where id = " & id & ""
Set rs = Conn.Execute(sql)
Set fso = CreateObject("Scripting.FileSystemObject")
if (fso.FileExists(server.mappath("../imagenes/" & imagen))) then
'Borramos la imagen
FSO.deletefile(Server.MapPath("../imagenes/" & imagen))
end if
Espero te sirva saludos y suerte