Eliminar registro completo, incluyendo imagenes

[Cameron_2006]

bueno unas vez más, gracias a todos, ahora me toca enviar la respuesta para el que tenga el mismo problema en el futuro:

Primero respondo a JuanRAPerez, solo en esta caso existe esa relación, e hice lo que indicaste:

Y la solución fue que primero tuve que borrar los archivos fisicos de la carpeta, es decir los jpg, luego borrar los registro de la tabla de imágenes, y por último el registro padre, que es el registro al que pertenecen las imagenes. El código quedó como sigue:


<%
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")

'En este caso como están relacionadas, primero se borran los archivos de la tabla hija
'y luego las de la tabla padre
'Como existen archivos fisicos, primero se eliminan los archivos de la carpeta
'y luego se elimina el registro de la tabla
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

'ahora se se elimina el registro de la imagen de la tabla hija
sql="delete from fotos_inmuebles where id_inmueble="& id_inmueble
conn.execute SQL
'ahora se se elimina el registro del inmueble de la tabla padre
SQL="delete from inmuebles where id_inmueble="& id_inmueble
conn.execute SQL

NEXT

Set fs = Nothing

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