Buenos días... otra vez
Siguiendo con mi pequeña aplicación de alquiler y venta de inmuebles, ahora un código que funcionaba perfectamente ya no me funciona, anteriormente no había relacionado las tablas, ahora si, y el error que me da es que:
Microsoft JET Database Engine error '80004005'
El registro no se puede eliminar o cambiar porque la tabla 'fotos_inmuebles' incluye registros relacionados.
/administrador/inmuebles_locales/borrar_inmueble.asp, línea 24
La línea 24 es esta:
conn.execute SQL
y el código completo para borrar estos registros es este:
<%
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
conn.execute SQL
NEXT
Set fs = Nothing
conn.close
set conn=Nothing
Response.redirect "index.asp"
%>
GRACIAS, GRACIAS Y MIL GRACIAS POR LA AYUDA!
