Borrar registros de base datos y archivos de carpeta

[Cameron_2006]

Buenas tardes, ahora el problema que tengo es que buedo borrar con el código que está a continuación un registro determinado de la base de datos, pero el archivo físico que está en la carpeta ni se inmuta, alguien me podría decir que estoy haciendo mal? no se genera ningún error. gracias de antemano por la ayuda.

<%

Dim Base
Dim SQL
Dim id


Set Base = Server.CreateObject("ADODB.Connection")
Base.Open = "miservidor.mdb"

dim fs, rsl, archivo
Set fs = Server.CreateObject("Scripting.FileSystemObject")

for each id IN Request.Form("Borrar")


sql="select filename from noticias where id_noticia="& id
set rs1=base.execute(sql)

do while not rs1.eof

archivo="../../../documentos/noticias/"& rs1.fields("filename")
archivo="d:\xvrt\miservidor\html\carpeta\documento s\noticias\"&(archivo)

if fs.FileExists(archivo) then fs.DeleteFile(archivo)

rs1.movenext

loop


sql="delete * from noticias where id_noticia="& id
Base.execute SQL

NEXT

Set fs = Nothing

base.close
set base=Nothing

Response.redirect "index.asp"

%>

[rene_bustos]

que onda mira la verdad solo me quedo duda con la ruta de los archivos y estoy casi 100% seguro que es eso ya que comentas que no te marca error y en la condicion, pero aqui te paso el codigo modificado ojala y te ayude
saludos

si no llega a funcionar des-comentariza el response.write sRuta y el response.end() y chekate la ruta que te imprime, es decir te va a imprimir la ruta en donde cree el sistema que esta el archivo.

Código:

 while NOT rs1.eof
			set fs=Server.CreateObject("Scripting.FileSystemObject")
				sRuta = Server.MapPath("..\..\..\documentos\noticias\"& rs1.fields("filename"))
                                                                'response.write sRuta
                                                                'response.end()
				If fs.FileExists(sRuta) Then
					Set f=fs.GetFile(sRuta)
					f.Delete
				end if
				Set f=nothing
				Set fs=nothing
		rs1.MoveNext
		wend

[Cameron_2006]

Gracias por lo que me enviaste, pero igual sigue el problema...

[rene_bustos]

solo un consejo.... imprime la variable sRuta y la direccionq ue te imprima es donde el sistema cree que esta la foto
saludos.

[Cameron_2006]

Efectivamente me señala la ruta correcta donde está el archivo pero no lo borra

[rene_bustos]

una pregunta podrias pasarme la ruta que te imprime y la pagina completa,,, esta muy raro

la verdad no le veo ningun problema

[rene_bustos]

otra cosa, si te trae el nombre del archivo????????? correctamente y sin acentos???

[Cameron_2006]

Mil gracias Rene por la ayuda, la dirección que muestra la página es esta tal cual:

d:\xvrt\midomidio\html\its\documentos\noticias\cua dro_reglamento1.pdf

el código completo es este:

<%

Dim Base
Dim SQL
Dim id


Set Base = Server.CreateObject("ADODB.Connection")
Base.Open = "midominio.mdb"

dim fs, rsl, archivo, f
Set fs = Server.CreateObject("Scripting.FileSystemObject")

for each id IN Request.Form("Borrar")


sql="select filename from noticias where id_noticia="& id
set rs1=base.execute(sql)

while not rs1.eof
archivo="d:\xvrt\midominio\html\its\documentos\not icias\"& rs1.fields("filename")

response.write archivo
response.end()

if fs.FileExists(archivo) then
Set f=fs.GetFile(archivo)

f.delete

end if
sql="delete * from noticias where id_noticia="& id
Base.execute SQL

Set f=nothing
Set fs=nothing
rs1.MoveNext
wend


next

base.close
set base=Nothing

Response.redirect "index.asp"

%>

[Cameron_2006]

sin acentos, tal como te lo envié en mensaje anterior

[rene_bustos]

jajaja ya lo rebice completo y la verdad no encuentro error alguno..solamente el que la noticia no tenga foto relacionada y en la variable archivo no te traiga el nombre del archivo

Código:

ahhh prueba poniendo esto
if fs.FileExists(archivo) then 
   Set f=fs.GetFile(archivo)

   f.delete
else
  response.write "No esta encontrando el archivo, revisar que el ARCHIVO traiga nombre"
response.end()
end if

[Cameron_2006]

es un archivo pdf

[Cameron_2006]

Rene... GRACIASSSSSSSSSSSSSSSSSSSSSSSSSSSSS!!! solucionado

[rene_bustos]

orale que bien oye y que fue lo que hiciste para solucionarlo?????
digo para tambien saber yo
saludos y que gusto que ya se soluciono.
saludos desde monterrey, nl, mexico

[Cameron_2006]

Mira simplemente agregue eso que me digiste, o sea, el codigo quedó así:

<%

Dim Base
Dim SQL
Dim id


Set Base = Server.CreateObject("ADODB.Connection")
Base.Open = "midominio.mdb"

dim fs, rsl, archivo, f
Set fs = Server.CreateObject("Scripting.FileSystemObject")

for each id IN Request.Form("Borrar")


sql="select filename from noticias where id_noticia="& id
set rs1=base.execute(sql)

while not rs1.eof
archivo="d:\xvrt\midominio\html\its\documentos\not icias\"& rs1.fields("filename")

response.write archivo
response.end()

if fs.FileExists(archivo) then
Set f=fs.GetFile(archivo)

f.delete

else
response.write "No esta encontrando el archivo, revisar que el ARCHIVO traiga nombre"
response.end()
end if

sql="delete * from noticias where id_noticia="& id
Base.execute SQL

Set f=nothing
Set fs=nothing
rs1.MoveNext
wend


next

base.close
set base=Nothing

Response.redirect "index.asp"

%>

[rene_bustos]

que bueno que ya te funciono saludos desde mexico para spain

[Cameron_2006]

Nuevamente saludos y mil gracias!