codice:
Sub Application_OnEnd()
	Set objFile = Server.CreateObject("Scripting.FileSystemObject")
	Set objFolder = objFile.GetFolder(server.mappath("/mdb-database"))
	Set list = objFolder.Files
	For Each file in list
		if file.name<>"_do_not_delete" and file.name<>"comuni.mdb" and file.name<>"email.mdb" and file.name<>"faq.mdb" and file.name<>"foto.mdb" and file.name<>"user.mdb" and file.name<>"utenti.mdb" then objFile.DeleteFile(Server.mappath("/mdb-database")&"\"&file.name)
	Next
End Sub

funziona
il problema è stato un file in sola lettura che avevo in questa dir che mi faceva andare in errore lo script
...leggete e diffondete...