Borrar registros de base datos y archivos de carpeta

[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