Borrar un archivo de carpeta y de BD

[Cameron_2006]

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

[David]

¿Te da algún error? ¿Has probado con imprimir la variable Archivo para ver si está apuntando a la ruta correcta?

[Cameron_2006]

Si me da el 80040e14,
You_have_an_error_in_your_SQL_syntax;_check_the_ma nual_that_corresponds_to_your_MySQL_server_version _for_the_right_syntax_to_use_near_''

Pero he revisado y todo, nombres de tablas, campos y está bien

[David]

¿Qué tipo de campo es cod_documento?

[Cameron_2006]

en númerico

[Adler]

Hola

A simple vista parece todo correcto

Podrías probar, por decir algo
+ Seleccionar también cod_documento
+ No cerrar el recordset hasta después del último end if

Suerte

[Cameron_2006]

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

[Adler]

Hola

Perdona, pero no entiendo a que te refieres con

Iniciado por Cameron_2006

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

Suerte

[Cameron_2006]

Bueno, otra vez yo... Adler ya funciona en la misma página, lo que pasaba era que estaba cerrando la conexión de la base de datos antes de cerrar el formulario, así que eliminé ese cierre y listo, funciona, ya borra los documentos, pero ahora no lo actualiza a menos que pulse la tecla F5.

Coloqué esto en la cabecera de la página, pero tampoco funciona:
<%
response.Expires=0
response.ExpiresAbsolute=Now - 1
response.AddHeader "PRAGMA","NO-CACHE"
%>

Gracias por tu ayuda

[Adler]

Hola

Vamos a probar así

<%
Response.AddHeader "Pragma", "no-cache"
Response.AddHeader "cache-control","private"
Response.CacheControl = "no-cache"
%>
<html dir="ltr" lang="es">
<head>
<META HTTP-EQUIV="Cache-Control" CONTENT="no-cache">
<META HTTP-EQUIV="Pragma" CONTENT="no-cache">
<META HTTP-EQUIV="Expires" CONTENT="0">

Suerte

[Cameron_2006]

Gracias Adler, pero nada, no funciona

[Adler]

Hola

Por probar ...

Y si en vez de usar

Response.Redirect "f_modificarproyecto.asp"

usas

Response.Redirect(Request.ServerVariables("HTTP_RE FERER"))

Suerte

[Cameron_2006]

siiiiiii!! gracias, funcionó!!