Si borra el registro de la base de datos, pero no lo elimina de la carpeta.
El código que estoy usando es este y gracias de antemano por la ayuda

<%
idf = Request( "idf" )
Dim SQL
Dim cod_anexo
dim fs,rs1,archivo
Set fs = Server.CreateObject("Scripting.FileSystemObject")
for each cod_anexo IN Request.Form("Borrar")
'En este caso como están relacionadas, primero se borran los archivos de la tabla hija
'y luego las de la tabla padre
'Como existen archivos fisicos, primero se eliminan los archivos de la carpeta
'y luego se elimina el registro de la tabla
sql="select txt_filename from m_anexosformacion where cod_anexo="& cod_anexo
set rs1=conexion.execute(sql)
do while not rs1.eof
archivo="../../../documentos/formacion/"& rs1.fields("txt_filename")
archivo="C:\Inetpub\vhosts\dominio.com\httpdocs\do cumentos\formacion\"&(archivo)
if fs.FileExists(archivo) then fs.DeleteFile(archivo)
rs1.movenext
loop
'ahora se se elimina el registro de la imagen de la tabla hija
sql="delete from m_anexosformacion where cod_anexo="&cod_anexo
conexion.execute SQL
NEXT
Set fs = Nothing
conexion.close
set conexion=Nothing
Response.Redirect(Request.ServerVariables("HTTP_RE FERER"))
%>