Bueno, aquí yo de nuevo, me estoy rompiendo la cabeza con este código, la verdad no se que hacer, por eso acudo a ustedes.
Se trata de lo siguiente:
Tengo un código que selecciona todos los archivos adjuntos que tiene un registro, y al mismo tiempo, tengo un formulario al lado del resultado donde el usuario puede seleccionar uno o todos los archivos adjuntos y borrarlos. (bueno es la idea, pero no funciona)
Funciona lo primero, selecciona todos los archivos adjunto, pero no funciona lo segundo, que es borrar los archivos.
Este es el formulario (parte):
<input type="Checkbox" name="Borrar" id="cod_documento" value="<%=mPdf("cod_documento")%>" />
y este es el código que debería borrar uno o todos los archivos seleccionados:
<%
dim cod_documento
cod_documento = request.form("cod_documento")
dim Fs, Archivo
dim Rsd
Set Fs = Server.CreateObject("Scripting.FileSystemObject")
SQL="select txt_filename from m_anexosproyectos where cod_documento="& cod_documento &";"
set Rsd=conexion.execute(sql)
IF NOT Rsd.EOF THEN
Archivo="../../../documentos/proyectos/documentos/"& rsd.fields("txt_filename")
Archivo="C:\Inetpub\vhosts\dominio.es\httpdocs\doc umentos\proyectos\documentos\"&(Archivo)
if fs.FileExists(Archivo) then
fs.DeleteFile(Archivo)
SQL="DELETE FROM m_anexosproyectos WHERE cod_documento="& cod_documento &";"
conexion.execute SQL
Rsd.CLOSE
end if
END IF
Set fs = Nothing
Set Rsd = Nothing
%>
Gracias de antemano por la ayuda
