/***********    Vérification d'une adresse d'E-mail  *************
* Vérifie la vraisemblance d'une adresse E-mail au moyen d'une   *
* expression régulière et retourne true|false selon le résultat. *     
* © Daniel Brucker 2002 -                                        *
*****************************************************************/

function checkEmail(theString) {
  var val = new Array;
  re = /[\w_\-\.]{3,}@[\w_\-\.]{3,}\.\w{2,}/i ;
  val = re.exec(theString) ;
  return(val == theString ? true : false ) ;
}

/***********    Constitution de la liste des pays   *************
* Utilisée par les formulaires de prise de contact              *
* © Daniel Brucker 2009 -                                       *
*****************************************************************/

function displayCountries() {
  var country = new Array(
  "FR","France",
  "ZA","Afrique du Sud",
  "AL","Albanie",
  "DZ","Algérie",
  "DE","Allemagne",
  "AD","Andorre",
  "AO","Angola",
  "AI","Anguilla",
  "AG","Antigua et Barbuda",
  "AN","Antilles néerlandaises",
  "SA","Arabie Saoudite",
  "AR","Argentine",
  "AM","Arménie",
  "AW","Aruba",

  "AU","Australie",
  "AT","Autriche",
  "BS","Bahamas",
  "BH","Bahreïn",
  "BB","Barbades",
  "BE","Belgique",
  "BZ","Belize",
  "BJ","Bénin",
  "BM","Bermudes",

  "BT","Bhoutan",
  "BO","Bolivie",
  "BA","Bosnie-Herzégovine",
  "BW","Botswana",
  "BR","Brésil",
  "BN","Brunei",
  "BG","Bulgarie",
  "BF","Burkina Faso",
  "BI","Burundi",

  "KY","Caïmanes, Iles",
  "KH","Cambodge",
  "CM","Cameroun",
  "CA","Canada",
  "CV","Cap-Vert",
  "CL","Chili",
  "C2","Chine",
  "CY","Chypre",
  "VA","Cité du Vatican",
  "CO","Colombie",

  "KM","Comores",
  "KR","Corée du Sud",
  "CR","Costa Rica",
  "CI","Côte d'Ivoire",
  "HR","Croatie",
  "DK","Danemark",
  "DJ","Djibouti",
  "DM","Dominique",
  "AE","Emirats Arabes Unis",
  "EC","Equateur",

  "ER","Erythrée",
  "ES","Espagne",
  "EE","Estonie",
  "FM","Etats fédérés de Micronésie",
  "US","Etats-Unis d'Amérique",
  "ET","Ethiopie",
  "FK","Falkland (Malvinas), Iles",
  "FJ","Fidji",
  "FI","Finlande",

  "GM","Gambie",
  "GI","Gibraltar",
  "GR","Grèce",
  "GD","Grenade",
  "GL","Groenland",
  "GP","Guadeloupe",
  "GT","Guatemala",
  "GN","Guinée",
  "GW","Guinée-Bissau",

  "GY","Guyane",
  "GF","Guyane française",
  "HT","Haïti",
  "HN","Honduras",
  "HK","Hong-Kong",
  "HU","Hongrie",
  "MU","Ile Maurice",
  "NF","Ile Norfolk",
  "CK","Iles Cook",
  "SJ","Iles de Svalbard et Jan Mayen",

  "FO","Iles Féroé",
  "MH","Iles Marshall",
  "PN","Iles Pitcairn",
  "SB","Iles Salomon",
  "VG","Iles Vierges britanniques",
  "WF","Iles Wallis-et-Futuna",
  "IN","Inde",
  "ID","Indonésie",
  "IE","Irlande",

  "IS","Islande",
  "IL","Israël",
  "IT","Italie",
  "JM","Jamaïque",
  "JP","Japon",
  "JO","Jordanie",
  "KZ","Kazakhstan",
  "KE","Kenya",
  "KG","Kirghizistan",

  "KI","Kiribati",
  "KW","Koweït",
  "LA","Laos",
  "LS","Lesotho",
  "LV","Lettonie",
  "LI","Liechtenstein",
  "LT","Lituanie",
  "LU","Luxembourg",
  "MG","Madagascar",

  "MY","Malaisie",
  "MW","Malawi",
  "MV","Maldives",
  "ML","Mali",
  "MT","Malte",
  "MA","Maroc",
  "MQ","Martinique",
  "MR","Mauritanie",
  "YT","Mayotte",

  "MX","Mexique",
  "MN","Mongolie",
  "MS","Montserrat",
  "MZ","Mozambique",
  "NA","Namibie",
  "NR","Nauru",
  "NP","Népal",
  "NI","Nicaragua",
  "NE","Niger",

  "NU","Niue",
  "NO","Norvège",
  "NC","Nouvelle-Calédonie",
  "NZ","Nouvelle-Zélande",
  "OM","Oman",
  "UG","Ouganda",
  "PW","Palaos",
  "PA","Panama",
  "PG","Papouasie-Nouvelle-Guinée",

  "NL","Pays-Bas",
  "PE","Pérou",
  "PH","Philippines",
  "PL","Pologne",
  "PF","Polynésie française",
  "PT","Portugal",
  "QA","Qatar",
  "AZ","République d'Azerbaïdjan",
  "CD","République Démocratique du Congo",

  "DO","République dominicaine",
  "CG","République du Congo",
  "GA","République du Gabon",
  "CZ","République tchèque",
  "RE","Réunion",
  "RO","Roumanie",
  "GB","Royaume-Uni",
  "RU","Russie",
  "RW","Rwanda",

  "KN","Saint-Christophe-et-Niévès",
  "SM","Saint-Marin",
  "PM","Saint-Pierre et Miquelon",
  "VC","Saint-Vincent-et-les Grenadines",
  "SH","Sainte-Hélène",
  "LC","Sainte-Lucie",
  "SV","Salvador",
  "WS","Samoa",
  "ST","Sao Tomé-et-Principe",

  "SN","Sénégal",
  "SC","Seychelles",
  "SL","Sierra Leone",
  "SG","Singapour",
  "SK","Slovaquie",
  "SI","Slovénie",
  "SO","Somalie",
  "LK","Sri Lanka",
  "SE","Suède",

  "CH","Suisse",
  "TW","Taiwan",
  "TZ","Tanzanie",
  "TD","Tchad",
  "TH","Thaïlande",
  "TG","Togo",

  "TO","Tonga",
  "TT","Trinité-et-Tobago",
  "TN","Tunisie",
  "TM","Turkménistan",
  "TC","Turks-et-Caïques, Iles",
  "TR","Turquie",
  "TV","Tuvalu",
  "UA","Ukraine",
  "UY","Uruguay",

  "VU","Vanuatu",
  "VE","Venezuela",
  "VN","Vietnam",
  "YE","Yémen",
  "ZM","Zambie") ;
  for(var i=0;i<country.length;i+=2)
    document.write('<option value="'+country[i]+'">'+country[i+1]+'</option>');
//  return false ;
}