'Declaration de la base de donnee
BASE_DONNEE = "DBQ=" & Server.Mappath("../../../database/finemploi.mdb") & ";Driver={Microsoft Access Driver (*.mdb)};Driverld=25"
'ouverture de la connexion bsae de données
Set SiteDB = Server.CreateObject("ADODB.Connection")
SiteDB.Open BASE_DONNEE
'---remplacement de tous les caractères qui peuvent poser problème
Message=Replace(Message,"'","''")
Message=Replace(Message,"<","<")
Message=Replace(Message,">",">")
Message=Replace(Message,vbCrLf,"
")