Hola Adler, gracias por contestar, mira, dividí la página, y borra los archivos tanto en la carpeta como en la base de datos (todo junto no me funciona), pero ahora lo que pasa es que no regresa correctamente a la página donde están los datos del proyecto
.
Te mando el código como lo tengo ahora para ver si me puedes decir como debo poner el regreso a la página f_modificarproyecto.asp, porque me parece que debe llevar el id del proyecto que no lo agarra, coloqué: el formulario:
<form name="form1" method="post" action="borrar_doc.asp">
<INPUT TYPE="Checkbox" name="Borrar" value="<%=mPdf("cod_documento")%>" />
la línea del formulario y en otro puse el código:
borrar_doc.asp
<%
idp = Request( "idp" )
Dim SQL
Dim cod_documento
dim fs,rs1,archivo
Set fs = Server.CreateObject("Scripting.FileSystemObject")
for each cod_documento IN Request.Form("Borrar")
sql="select cod_documento, cod_proyecto, txt_filename from m_anexosproyectos where cod_documento="& cod_documento
set rs1=conexion.execute(sql)
do while not rs1.eof
archivo="../../../documentos/proyectos/documentos/"& rs1.fields("txt_filename")
archivo="C:\Inetpub\vhosts\dominio.com\httpdocs\do cumentos\proyectos\documentos\"&(archivo)
if fs.FileExists(archivo) then fs.DeleteFile(archivo)
rs1.movenext
loop
sql="delete from m_anexosproyectos where cod_documento="& cod_documento
conexion.execute SQL
NEXT
Set fs = Nothing
conexion.close
set conexion=Nothing
Response.redirect "f_modificarproyecto.asp"
%>
Gracias Adler y a todo el que pueda ayudarme en esto
