$contact_prenom   = $DB_ROW['structure_contact_prenom'];
 $contact_courriel = $DB_ROW['structure_contact_courriel'];
 // Informations sur l'admin : nom / prénom / login.
 $DB_ROW = DB_STRUCTURE_WEBMESTRE::DB_recuperer_admin_identite($admin_id);
 if(empty($DB_ROW))
 {
   exit('Erreur : administrateur introuvable !');
 }
 $admin_nom    = $DB_ROW['user_nom'];
 $admin_prenom = $DB_ROW['user_prenom'];
 $admin_login  = $DB_ROW['user_login'];
 // Générer un nouveau mdp de l'admin
 $admin_password = fabriquer_mdp();
 DB_STRUCTURE_WEBMESTRE::DB_modifier_admin_mdp($admin_id,crypter_mdp($admin_password));
 // Envoyer un courriel au contact et éventuellement une copie du courriel au webmestre
 $courriel_contenu = Webmestre::contenu_courriel_nouveau_mdp( $base_id , $denomination , $contact_nom , $contact_prenom , $admin_nom , $admin_prenom , $admin_login , $admin_password , URL_DIR_SACOCHE );
 $courriel_titre   = 'Modification mdp administrateur - Inscription n°'.$base_id;
 $courriel_bilan = Sesamail::mail( $contact_courriel , $courriel_titre , $courriel_contenu );
 if(!$courriel_bilan)
 {
   exit('Erreur lors de l\'envoi du courriel !');
 }
 if($courriel_copie)
 {
   $introduction = '================================================================================'."\r\n".'Copie pour information du courriel adressé à '.$contact_courriel."\r\n".'================================================================================'."\r\n\r\n";
   $courriel_bilan = Sesamail::mail( WEBMESTRE_COURRIEL , $courriel_titre , $introduction.$courriel_contenu );
   if(!$courriel_bilan)
   {
     exit('Erreur lors de l\'envoi du courriel !');
   }
 }