Dim MiaMail,body,buckup
  
   
   Set MiaMail = Server.CreateObject("CDO.Message")
    MiaMail.From = UrlEcom
    buckup = MailBackup
    MiaMail.To = buckup
    MiaMail.Subject = "Copia db contratti"
    MiaMail.AddAttachment(Server.MapPath("\mdb-database\dbdati.mdb")) 
    MiaMail.HTMLBody = "<b>Questa email</b> è stata inviata dal tuo programma di gestione contratti, ha in allegato il tuo db dei contratti compresso e ottimizato pronto per essere rimpiazzato in caso di anomalie."
    MiaMail.Fields.Update()
    MiaMail.Send()
    Set MiaMail = Nothing
===========================
Function CompactDB(dbname, password)
  Dim dbpath
  dbpath = Server.MapPath(dbname)
  Dim cnfrom, cnto
  cnfrom = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&dbpath
  cnto = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&dbpath&".temp"
  If password<>"" Then
  cnfrom = cnfrom&";Jet OLEDB:Database Password="&password
  cnto = cnto&";Jet OLEDB:Database Password="&password
  End If
  Dim engine
  Set engine = Server.CreateObject("JRO.JetEngine")
  engine.CompactDatabase cnfrom, cnto
  Dim fso
  Set fso = Server.CreateObject("Scripting.FileSystemObject")
  fso.DeleteFile dbpath
  fso.MoveFile dbpath&".temp", dbpath
  Set fso = nothing
  Set engine = nothing
  End Function
  Call CompactDB("/mdb-database/dbdati.mdb", "")
  Response.Write("Il db dei contratti è stato compresso e inviato all'amministratore!")

CDO.Message.1 error '80070020'

The process cannot access the file because it is being used by another process.

/contratti/copia.asp, line 14 

MiaMail.AddAttachment(Server.MapPath("\mdb-database\dbdati.mdb"))