Buenas tardes, yo de nuevo, estoy que casi no veo, no se que está mal de verdad, estoy a punto de hecharle la culpa a la base de datos, pero resulta que cuando ingreso un nuevo archivo a la carpeta lo hace perfectamente, cosa que me hace dar un paso atrás en mi acusación :-| , pero he copiado y recopiado el código, hasta cambié los nombres y sigue sin borrar el archivo de la carpeta donde está alojado.
Si borra el registro de la base de datos, pero no lo elimina de la carpeta.
El código que estoy usando es este y gracias de antemano por la ayuda
:
<%
idf = Request( "idf" )
Dim SQL
Dim cod_anexo
dim fs,rs1,archivo
Set fs = Server.CreateObject("Scripting.FileSystemObject")
for each cod_anexo 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 txt_filename from m_anexosformacion where cod_anexo="& cod_anexo
set rs1=conexion.execute(sql)
do while not rs1.eof
archivo="../../../documentos/formacion/"& rs1.fields("txt_filename")
archivo="C:\Inetpub\vhosts\dominio.com\httpdocs\do cumentos\formacion\"&(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 m_anexosformacion where cod_anexo="&cod_anexo
conexion.execute SQL
NEXT
Set fs = Nothing
conexion.close
set conexion=Nothing
Response.Redirect(Request.ServerVariables("HTTP_RE FERER"))
%>