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"
%>