Ver Mensaje Individual
  #7 (permalink)  
Antiguo 01/12/2008, 10:20
Avatar de Cameron_2006
Cameron_2006
 
Fecha de Ingreso: diciembre-2006
Mensajes: 248
Antigüedad: 18 años, 4 meses
Puntos: 0
Respuesta: Eliminar registro completo, incluyendo imagenes

'ok, aqui selecciono el registro de imagen que correspondede al registro del inmueble:

sql="select filename from fotos_inmuebles where id_inmueble="& id_inmueble
set rs1=conn.execute(sql)

do while not rs1.eof
'busco los archivos que corresponden y existen a ese registro en la carpeta y los eliminio:
archivo="../../fotos_inmuebles/"& rs1.fields("filename")
archivo="C:\Inetpub\vhosts\dominio.es\httpdocs\fot os_inmuebles"&(archivo)
if fs.FileExists(archivo) then fs.DeleteFile(archivo)
rs1.movenext
loop
luego eliminio los registros de esos archivos correspondiente al registro en la base de datos:
sql="delete from fotos_inmuebles where id_inmueble="& id_inmueble
conn.execute SQL

NEXT

Y no funciona