Borrar registros de base datos y archivos de carpeta

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

%>