'. '

'. ' '. ' '. ' '. ' '. ' '. ' '. ' '. ' '. ' '. ' '. ' '. ' '. ' '. ' '. ' '. ' '. ' '. ' '. ' '. ' '; $requete = "select * from ".CAR_ANNUAIRE. " where ".CAR_CHAMPS_CE_PAYS."='$argument'". " order by ".CAR_CHAMPS_NOM.", ".CAR_CHAMPS_PRENOM; $resultat= $GLOBALS['car_db']->query($requete); if (DB::isError($resultat)) { die ($resultat->getMessage().'
'.$resultat->getDebugInfo()) ; } $indic=0; $i=1; while ($ligne = $resultat->fetchRow(DB_FETCHMODE_ASSOC)) { if ($indic==0) { $res.="\n"; $indic=1; } else { $res.="\n"; $indic=0; } $res.="\n \n \n"; $res .= "\n"; } $res .= "

	'.CAR_NOM.'	'.CAR_PRENOM.'	'.CAR_DATE_INS.'	'.CAR_REGION.'	'.CAR_VILLE.'
	".strtoupper($ligne[CAR_CHAMPS_NOM])."	".str_replace(' - ', '-', ucwords(strtolower(str_replace('-', ' - ', $ligne[CAR_CHAMPS_PRENOM]))))."	".date("d m Y", strtotime($ligne[CAR_CHAMPS_DATE_INS]))."	".str_replace(' - ', '-', ucwords(strtolower(str_replace('-', ' - ', $ligne[CAR_CHAMPS_REGION]))))."	".strtoupper($ligne[CAR_CHAMPS_VILLE])."

\n"; if ($mailer==1) { if (!is_array($select)) { $res .= '

'.CAR_NO_DESTINATAIRE.'

'; } else { $res .= envoie_mail_modere($GLOBALS['car_db']) ; } } else { $res .= carto_texte_cocher() ; } $res .= carto_formulaire($titre_mail, stripslashes($corps)) ; } // 2 ème cas, on vient de cliquer sur un département français } else if (count($tabmonde) == 4) { $argument = $tabmonde[3]; $requete = "select * from gen_FRENCH_DPT where GFD_ID='$argument'"; $resultat = $GLOBALS['car_db']->query($requete); if (DB::isError($resultat)) { die ($resultat->getMessage() .'
'.$resultat->getDebugInfo()); } $ligne = $resultat->fetchRow(DB_FETCHMODE_OBJECT); $nom = $ligne->GFD_NAME; $tabonglet=explode ('*', $monde->historique); $tabnom=explode ('*', $monde->nom); $res.="

\n"; foreach ($tabonglet as $key=>$value) { if ($key==0) { $chemin=$value; $value='monde'; $res.= "url."&historique_cartes=$chemin\"> > ".$tabnom[$key].""; } else if ($key==(count($tabonglet)-1)) { $res.=" > $nom"; } else { $chemin.='*'.$value; $res.= "url."&historique_cartes=$chemin\"> > ".$tabnom[$key].""; } } $res .= "

\n"; $requete_2 = " SELECT count(".CAR_CHAMPS_ID.") as nbr". " FROM ".CAR_ANNUAIRE. " WHERE ".CAR_CHAMPS_DPT." = '$argument'". " AND ".CAR_CHAMPS_CE_PAYS."='fr'"; $resultat_2 = $GLOBALS['car_db']->query($requete_2); if (DB::isError($resultat_2)) { die ($resultat_2->getMessage().'
'.$resultat_2->getDebugInfo()) ; } $ligne_2 = $resultat_2->fetchRow(DB_FETCHMODE_OBJECT); $res .= '

'.$nom.' : ' ; if ($ligne_2->nbr == 0) { $res .= 'aucun inscrit '.CAR_LABEL_PROJET."

\n"; if (!$GLOBALS['car_auth']->getAuth()) { $res .= AUTH_formulaire_login(); } else { $res .= '

'.CAR_PAS_D_INSCRIT.'

'; } return $res ; } else if ($ligne_2->nbr == 1) { $res .= $ligne_2->nbr." inscrit " ; } else { $res .= $ligne_2->nbr." inscrits " ; } $res .= CAR_LABEL_PROJET."\n"; if (!$GLOBALS['car_auth']->getAuth()) { $res .= AUTH_formulaire_login(); } else { $res.= "

\n"; $requete = "SELECT * FROM ".CAR_ANNUAIRE. " WHERE ".CAR_CHAMPS_DPT." = '$argument'". " AND ".CAR_CHAMPS_CE_PAYS."='fr'". " ORDER BY ".CAR_CHAMPS_NOM.", ".CAR_CHAMPS_PRENOM; $resultat = $GLOBALS['car_db']->query($requete); if (DB::isError($resultat)) { die ($resultat->getMessage().'
'.$resultat->getDebugInfo()) ; } $indic=0; $i=1; while ($ligne = $resultat->fetchRow(DB_FETCHMODE_ASSOC)) { if ($indic==0) { $res.="\n"; $indic=1; } else { $res.="\n"; $indic=0; } $res.="\n"; } $res.="

	".CAR_NOM."	".CAR_PRENOM."	".CAR_DATE_INS."	".CAR_CP."	".CAR_VILLE."
	".strtoupper($ligne[CAR_CHAMPS_NOM])."	".str_replace(' - ', '-', ucwords(strtolower(str_replace('-', ' - ', $ligne[CAR_CHAMPS_PRENOM]))))."	".date("d m Y", strtotime($ligne[CAR_CHAMPS_DATE_INS]))."	".$ligne[CAR_CHAMPS_CODE_POSTAL]."	".strtoupper($ligne[CAR_CHAMPS_VILLE])."

\n"; if ($mailer==1) { if (!is_array($select)) { $res.= '

'.CAR_NO_DESTINATAIRE.'

'; } else { $res .= envoie_mail_modere($GLOBALS['car_db']) ; } } else { $res .=carto_texte_cocher() ; } $res .= carto_formulaire($titre_mail,stripslashes($corps)) ; } } ?>

'.$pays.' ('.$capitale.') : ' ; if ($ligne_2->nbr == 0) { $res .= 'aucun inscrit '.CAR_LABEL_PROJET."

'.$nom.' : ' ; if ($ligne_2->nbr == 0) { $res .= 'aucun inscrit '.CAR_LABEL_PROJET."