Eliminar registro completo, incluyendo imagenes

[Cameron_2006]

así: (lo verde es lo nuevo)

<%
Dim conn
Dim SQL
Dim id_inmueble

dim fs,rs1,archivo
Set fs = Server.CreateObject("Scripting.FileSystemObject")
for each id_inmueble IN Request.Form("Borrar")

SQL="delete from inmuebles where id_inmueble="& id_inmueble
conn.execute SQL

sql="select filename from fotos_inmuebles where id_inmueble="& id_inmueble
set rs1=conn.execute(sql)
do while not rs1.eof
archivo="../../fotos_inmuebles/"& rs1.fields("filename")
archivo="C:\Inetpub\vhosts\dominio.com\httpdocs\fo tos_inmuebles"&(archivo)

if fs.FileExists(archivo) then fs.DeleteFile(archivo)
rs1.movenext
loop
sql="delete from fotos_inmuebles where id_inmueble="& id_inmueble
for loop=1 to rs1.recordcount
conn.execute SQL

NEXT

Set fs = Nothing

conn.close
set conn=Nothing
Response.redirect "index.asp"

%>