Borrar registros de base datos y archivos de carpeta

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

%>