// FRANCE - Affichage de la liste des communes rattachées à un choix de la préliste
function charge_com(formulaire_com) { 
	//alert(formulaire_com)
	var eclate_don  = formulaire_com.split(",") ;
	var fich = eclate_don[0] ;
	var insee = eclate_don[1] ;
		
	//var num_com = formulaire_com.prelist_com.options[formulaire_com.prelist_com.selectedIndex].value ;
	if (fich != 99) {      
		var fich_com = "loc_listcomf"+fich+".htm?code_insee="+insee ;
		location = fich_com ;
		}
	}

// FRANCE - Affiche la croix d'une commune sur la carte de France
function com_france(source_com, formulaire, code_insee) { 
	// NS4+
	if (document.layers) {
    		var navig = "NS4+" ;
    		var ref_doc = document.combo.document ;
    		var div1 = document.ptlum ;
    		var cor_t = 1
    		}
  	//IE4+
  	else if (document.all) {
    		var navig = "IE4+" ;
    		var ref_doc = document ;
    		var div1 = document.all.ptlum.style ;
    		var cor_t = 0
    		}
  	//NS6
  	else if (document.getElementById) {
  		var navig = "NS6+" ;
  		var ref_doc = document ;
  		var div1 = document.getElementById("ptlum") ;
  		var cor_t = 2
  		}
	if (source_com == 0) {
		///////////
		selection = 0;
		if (code_insee != "") {
			nb_elem = ref_doc.list.list_com.length;
			for (i = 0; i < nb_elem ; i++) {
				var com_en_cours = ref_doc.list.list_com.options[i].value ;
				var eclate_com = com_en_cours.split(";") ;
				var insee      = eclate_com[1] ;
				if (insee == code_insee) {
					selection = i
					break ;
					}
				}
			}
		///////////
		//ref_doc.list.list_com.options.selectedIndex = 0 ;
		ref_doc.list.list_com.options.selectedIndex = selection ;
		var donnee = ref_doc.list.list_com.options[ref_doc.list.list_com.selectedIndex].value ;
		ref_doc.list.list_com.focus() ;
		var nom_com = ref_doc.list.list_com.options[ref_doc.list.list_com.selectedIndex].text ;
		}
	if (source_com == 1) {
		var donnee = formulaire.list_com.options[formulaire.list_com.selectedIndex].value ;
		var nom_com = formulaire.list_com.options[formulaire.list_com.selectedIndex].text;
		}	
	var eclate_com  = donnee.split(";") ;
	var num_dep_insee = eclate_com[0] ;
	var insee         = eclate_com[1] ;
	
	//recherche dépt dans tableau
	declare_dep();
	for (i = 0; i < depart.length ; i++) {
		var dep_en_cours = new String(depart[i]) ;
		var eclate_depart = dep_en_cours.split(";") ;
		var num_dep       = eclate_depart[1] ;
		if (num_dep == num_dep_insee) {
			var nom_dep       = eclate_depart[0] ;
			var largeur       = parseFloat(eclate_depart[2]) ;
			var hauteur       = parseFloat(eclate_depart[3]) ;
			var carte	  = eclate_depart[4] ;
			break ;
			}
		
		}
	
	// mémorise si carte du département existe
//	if (carte == 'O') {
		//var text_bout = '<A HREF="JavaScript: cherche_dep(\''+num_dep_insee+'\');"><IMG SRC="vign_fr_o.gif" ALT="Accès à la carte du département" width="50" height="47" border="0"><\/A>'
		var text_bout = '<A HREF="JavaScript: cherche_dep(\''+num_dep_insee+'\',\''+insee+'\');"><IMG SRC="vign_fr_o.gif" ALT="Accès à la carte du département" width="50" height="47" border="0"><\/A>'
/*		}
	else {	
		var text_bout = '<IMG SRC="vign_fr_n.gif" ALT="Carte du département non disponible à ce jour" width="50" height="47" border="0">'
		}*/
	var pt_lum = "<IMG SRC='loc_ptlum.gif' width='9' height='9' border='0'>"
	// affiche image <> si domtom	 
	if (num_dep > 100) {
		var pt_lum = "<IMG SRC='dom_tom.gif' width='38' height='32' border='0'>"
		}
	// coordonnées croix
	var objet;
	objet = new Array(div1)
	if (navig == "NS6+") {
		objet[0].style.left = largeur - 4 ;
		objet[0].style.top  = hauteur - 6 + cor_t ;
		}
	else {
		objet[0].left = largeur - 4 ;
		objet[0].top  = hauteur - 6 + cor_t ;
		}
	
	// Affiche Infos de la commune
	affiche_retour_france(num_dep_insee, insee, nom_com, text_bout) ;
	}

// FRANCE - charge dept de la commune
function cherche_dep(num_dep_insee, insee) {
	//if (num_dep_insee <10 ) {
	//	var fich_dep = "loc_listcomd0"+num_dep_insee+".htm" ;
	//	}
	//else	{
		var fich_dep = "loc_listcomd"+num_dep_insee+".htm?code_insee="+insee ;
	//	}
	location = fich_dep ;
	}


// DEPT - Affiche la liste des communes d'un département
function charge_dep(formulaire_dep) { 
	var retour_dep = formulaire_dep.list_dep.options[formulaire_dep.list_dep.selectedIndex].value ;
	var eclate_retour_dep = retour_dep.split(";") ;
	var num_dep_insee = eclate_retour_dep[0] ;
	var nom_dep       = eclate_retour_dep[1] ;
	var carte         = eclate_retour_dep[2] ;
	if (num_dep_insee != 99) {
//		 if (carte == 'O') { 
			var fich_dep = "loc_listcomd"+num_dep_insee+".htm";
			location = fich_dep ;
/*			}
		else { 
			var nvlepage = '<HTML><HEAD><TITLE>LOCOMFRANCE - &copy; 1999-2003 Sylvain CHARDON<\/TITLE><\/HEAD>'
			+'<BODY Background="papier3.jpg" text="maroon" topmargin=10 leftmargin=10>'
			+'<CENTER><TABLE border="0" CELLPADDING="2" CELLSPACING="0">'
			+'<TR><TD align="center"><IMG SRC="locom.gif" border="0" width="100" height="50"><\/TD>'
			+'<TD align="center"><b><FONT Size="-1"><A HREF="loc_menu.htm">Sommaire<\/A><\/font><\/b><\/TD><\/TR>'
			+'</TABLE></CENTER>'
			+"<CENTER><BR><BR><H2>"+nom_dep+"<\/H2><BR><BR><H4>Ce département n'est pas disponible à ce jour."
			+'<BR><Font Size="-1">'
			+"(Seuls ceux suivis d'un astérisque sont accessibles)<P>Un nouveau département chaque semaine (en théorie !)<\/Font><P><\/H4>"
			+'<H4><A HREF="loc_dep.htm">Retour<\/A><\/H4>'	
			+'<H4><A HREF="loc_disp.htm">Départements disponibles<\/A><\/H4>'
			+"<\/CENTER><\/BODY><\/HTML>"
			document.open() ;
			document.write(nvlepage) ;
			document.close() ;
			}*/
		}
	
	}



// DEPT - Affiche la croix d'une commune sur la carte d'un département
function com_dep(source, formulaire, num_dep_insee, code_insee) { 
	// NS4+
	if (document.layers) {
    		var navig = "NS4+" ;
    		var ref_doc = document.combo.document ;
    		var div1 = document.ptlum ;
    		var cor_t = 1
    		}
  	//IE4+
  	else if (document.all) {
    		var navig = "IE4+" ;
    		var ref_doc = document ;
    		var div1 = document.all.ptlum.style ;
    		var cor_t = 0
    		}
  	//NS6
  	else if (document.getElementById) {
  		var navig = "NS6+" ;
  		var ref_doc = document ;
  		var div1 = document.getElementById("ptlum") ;
  		var cor_t = 2
  		}
  	//alert(navig);
	if (source == 0) {
		selection = 0;
		if (code_insee != "") {
			nb_elem = ref_doc.f_com_dep.list_com_dep.length;
//			alert(code_insee);
//			alert(nb_elem);
			for (i = 0; i < nb_elem ; i++) {
				var com_en_cours = ref_doc.f_com_dep.list_com_dep.options[i].value ;
				var eclate_com = com_en_cours.split(";") ;
				var insee      = eclate_com[0] ;
				if (insee == code_insee) {
//					alert(insee);
					selection = i
					break ;
					}
				}
			}
		ref_doc.f_com_dep.list_com_dep.options.selectedIndex = selection ;
		var donnee = ref_doc.f_com_dep.list_com_dep.options[ref_doc.f_com_dep.list_com_dep.selectedIndex].value ;
		ref_doc.f_com_dep.list_com_dep.focus() ;
		var nom_com = ref_doc.f_com_dep.list_com_dep.options[ref_doc.f_com_dep.list_com_dep.selectedIndex].text ;
	}
	if (source == 1) {
		var donnee = formulaire.list_com_dep.options[formulaire.list_com_dep.selectedIndex].value ;
		var nom_com = formulaire.list_com_dep.options[formulaire.list_com_dep.selectedIndex].text ;
		}
	var eclate_com = donnee.split(";") ;
	var insee = eclate_com[0] ;
	var pop   = eclate_com[1] ;
	var dens  = eclate_com[2] ;
	var largeur = parseFloat(eclate_com[3]) ;
	var hauteur = parseFloat(eclate_com[4]) ;
	var cass_a  = eclate_com[5] ;
	var cass_n  = eclate_com[6] ;
	var com_x  = eclate_com[7] ;
	var com_y  = eclate_com[8] ;
	var objet;
	objet = new Array(div1) ;
	if (navig == "NS6+") {
		objet[0].style.left = largeur - 4 ;
		objet[0].style.top  = hauteur - 6 + cor_t ;
		}
	else {
		objet[0].left = largeur - 4 ;
		objet[0].top  = hauteur - 6 + cor_t ;
		}
	// Affichage des infos de la commune
	var text_bout='&nbsp;'
	affiche_retour(num_dep_insee, pop, dens, insee, nom_com, text_bout, cass_a, cass_n, com_x, com_y) ;
	}	

// Affiche Infos d'une commune ds dept
function affiche_retour(num_dep_insee, pop, dens, insee, nom_com, text_bout, cass_a, cass_n, com_x, com_y) {
	declare_dep();
	for (i = 0; i < depart.length ; i++) {
		var dep_en_cours = new String(depart[i]) ;
		var eclate_depart = dep_en_cours.split(";") ;
		var num_dep       = eclate_depart[1] ;
		if (num_dep == num_dep_insee) {
			var nom_dep       = eclate_depart[0] ;
			var cible       = eclate_depart[4] ;
			break ;
			}
		}
	if (isNaN(Math.round(pop/dens*10)/10)) 
		var superf = "non renseign&eacute;e" ;
	else
		var superf = Math.round(pop/dens*10)/10 ;
	
	var result = '<TABLE cellspacing="0" cellpadding="0" border="0" width="265">'
	+'<TR><TD width="265"><FONT size=2><b>Commune: <\/b>'+nom_com+'<\/FONT><\/TD>'
	+'<TD rowspan="4" valign="middle">'+text_bout+'<\/TD><\/TR>'     
	+'<TR><TD><FONT size=2><b>Code INSEE: <\/b>'+insee+'<\/FONT><\/TD><\/TR>'
	+'<TR><TD><FONT size=2><b>D&eacute;pt: <\/b>'+nom_dep+' ('+num_dep_insee+')<\/FONT><\/TD><\/TR>'
	+'<TR><TD><FONT size=2><b>P / D / S : <\/b>'+pop+' / '+dens+' / '+superf+'<\/FONT><\/TD><\/TR>'
	if (cass_n){
		result = result + '<TR><TD><FONT size=2><b> <A HREF="loc_cassini.htm?num_carte='+cass_n+'&img_cass='+cass_a+'&c_insee='+insee+'&nom_commune='+nom_com+'&posc_x='+com_x+'&posc_y='+com_y+'&typ_cibl='+cible+'">Carte Cassini<\/A><\/b><\/FONT><\/TD><\/TR>'
//		result = result + '<TR><TD><FONT size=2><b> <A HREF="Javascript:tempo_cass();">Carte Cassini<\/A><\/b><\/FONT><\/TD><\/TR>' ;
		}
	result = result +'<TR><TD><FONT size=2><b> <A HREF="http://www.gencom.org:2325/cgi-bin/Communes/Cgi/inform_communes.cgi?INSEE='+insee+'" target="_blank">Vers site GenCom<\/A><\/b><\/FONT><\/TD><\/TR>'
	result = result + '<\/TABLE><BR><BR>'
	if (document.layers) {
    		var lay = document['infos'];
    		lay.document.open();
    		lay.document.write(result);
    		lay.document.close();
  		}
  	else if (document.all) {
    		document.all['infos'].innerHTML = result;
  		}
  	else if (document.getElementById) {
  		var lay = document.getElementById("infos") ;
  		lay.innerHTML = result ;
  		}
  		
	}

function tempo_cass() {
	mes_cass="Suite à de nombreuses modifications sur le site de la BNF, la consultation des cartes de Cassini \nà partir d\'une commune est indisponible.\n\nRétablissement prévu courant décembre 2004.\n\nPar contre, l\'accès aux cartes est rétabli dans l\'espace Téléchargement (voir Sommaire)." ;
	alert(mes_cass) ;
	}

// Affiche Infos d'une commune ds france
function affiche_retour_france(num_dep_insee, insee, nom_com, text_bout) {
	declare_dep();
	for (i = 0; i < depart.length ; i++) {
		var dep_en_cours = new String(depart[i]) ;
		var eclate_depart = dep_en_cours.split(";") ;
		var num_dep       = eclate_depart[1] ;
		if (num_dep == num_dep_insee) {
			var nom_dep       = eclate_depart[0] ;
			break ;
			}
		}
	
	var result = '<TABLE cellspacing="0" cellpadding="0" border="0" width="265">'
	+'<TR><TD width="265"><FONT size=2><b>Commune: <\/b>'+nom_com+'<\/FONT><\/TD>'
	+'<TD rowspan="4" valign="middle">'+text_bout+'<\/TD><\/TR>'     
	+'<TR><TD><FONT size=2><b>Code INSEE: <\/b>'+insee+'<\/FONT><\/TD><\/TR>'
	+'<TR><TD><FONT size=2><b>D&eacute;pt: <\/b>'+nom_dep+' ('+num_dep_insee+')<\/FONT><\/TD><\/TR>'
	+ '<\/TABLE><BR><BR>'
	if (document.layers) {
    		var lay = document['infos'];
    		lay.document.open();
    		lay.document.write(result);
    		lay.document.close();
  		}
  	else if (document.all) {
    		document.all['infos'].innerHTML = result;
  		}
  	else if (document.getElementById) {
  		var lay = document.getElementById("infos") ;
  		lay.innerHTML = result ;
  		}
  		
	}

// Tableau des départements (nom dépt, numéro dépt, cord x et y sur carte france, existence de la carte départementale
function declare_dep() {
	depart = new Array() ;
	depart[1]   = "Ain;01;225;160;N"
	depart[2]   = "Aisne;02;192;63;O"
	depart[3]   = "Allier;03;185;151;O"
	depart[4]   = "Alpes-de-Haute-Provence;04;244;215;N"
	depart[5]   = "Hautes-Alpes;05;245;199;N"
	depart[6]   = "Alpes-Maritimes;06;262;220;O"
	depart[7]   = "Ardèche;07;209;196;N"
	depart[8]   = "Ardennes;08;213;63;O"
	depart[9]   = "Ariège;09;152;248;O"
	depart[10]  = "Aube;10;204;99;N"
	depart[11]  = "Aude;11;171;243;O"
	depart[12]  = "Aveyron;12;175;210;O"
	depart[13]  = "Bouches-du-Rhône;13;223;231;N"
	depart[14]  = "Calvados;14;117;77;O"
	depart[15]  = "Cantal;15;175;187;O"
	depart[16]  = "Charente;16;127;171;O"
	depart[17]  = "Charente-Maritime;17;109;168;N"
	depart[18]  = "Cher;18;172;133;N"
	depart[19]  = "Corrèze;19;160;181;O"
	depart[21]  = "Côte-d'Or;21;216;125;N"
	depart[22]  = "Côtes-d'Armor;22;72;97;O"
	depart[23]  = "Creuse;23;163;161;O"
	depart[24]  = "Dordogne;24;137;188;O"
	depart[25]  = "Doubs;25;246;129;N"
	depart[26]  = "Drôme;26;223;199;N"
	depart[27]  = "Eure;27;142;79;O"
	depart[28]  = "Eure-et-Loir;28;150;97;N"
	depart[29]  = "Finistère;29;47;99;O"
	depart[30]  = "Gard;30;206;219;O"
	depart[31]  = "Haute-Garonne;31;146;237;O"
	depart[32]  = "Gers;32;132;227;O"
	depart[33]  = "Gironde;33;113;198;O"
	depart[34]  = "Hérault;34;189;230;O"
	depart[35]  = "Ille-et-Vilaine;35;92;103;O"
	depart[36]  = "Indre;36;154;141;N"
	depart[37]  = "Indre-et-Loire;37;136;127;N"
	depart[38]  = "Isère;38;231;183;N"
	depart[39]  = "Jura;39;234;143;N"
	depart[40]  = "Landes;40;108;220;O"
	depart[41]  = "Loir-et-Cher;41;150;118;N"
	depart[42]  = "Loire;42;203;170;N"
	depart[43]  = "Haute-Loire;43;196;188;O"
	depart[44]  = "Loire-Atlantique;44;91;125;O"
	depart[45]  = "Loiret;45;168;109;O"
	depart[46]  = "Lot;46;155;201;O"
	depart[47]  = "Lot-et-Garonne;47;132;208;O"
	depart[48]  = "Lozère;48;192;204;O"
	depart[49]  = "Maine-et-Loire;49;113;124;O"
	depart[50]  = "Manche;50;99;77;O"
	depart[51]  = "Marne;51;206;79;N"
	depart[52]  = "Haute-Marne;52;225;105;N"
	depart[53]  = "Mayenne;53;111;104;N"
	depart[54]  = "Meurthe-et-Moselle;54;242;89;O"
	depart[55]  = "Meuse;55;227;80;O"
	depart[56]  = "Morbihan;56;70;111;O"
	depart[57]  = "Moselle;57;250;78;O"
	depart[58]  = "Nièvre;58;191;132;N"
	depart[59]  = "Nord;59;182;34;O"
	depart[60]  = "Oise;60;171;68;O"
	depart[61]  = "Orne;61;126;88;O"
	depart[62]  = "Pas-de-Calais;62;166;38;O"
	depart[63]  = "Puy-de-Dôme;63;184;171;O"
	depart[64]  = "Pyrénées-Atlantiques;64;108;239;O"
	depart[65]  = "Hautes-Pyrénées;65;127;246;O"
	depart[66]  = "Pyrénées-Orientales;66;173;257;O"
	depart[67]  = "Bas-Rhin;67;270;88;O"
	depart[68]  = "Haut-Rhin;68;265;111;O"
	depart[69]  = "Rhône;69;212;166;O"
	depart[70]  = "Haute-Saône;70;241;116;N"
	depart[71]  = "Saône-et-Loire;71;211;145;N"
	depart[72]  = "Sarthe;72;128;108;N"
	depart[73]  = "Savoie;73;249;178;N"
	depart[74]  = "Haute-Savoie;74;247;161;N"
	depart[75]  = "Paris;75;36;298;N"
	depart[76]  = "Seine-Maritime;76;143;62;O"
	depart[77]  = "Seine-et-Marne;77;182;89;N"
	depart[78]  = "Yvelines;78;159;84;N"
	depart[79]  = "Deux-Sèvres;79;117;147;O"
	depart[80]  = "Somme;80;169;53;O"
	depart[81]  = "Tarn;81;165;224;O"
	depart[82]  = "Tarn-et-Garonne;82;147;217;O"
	depart[83]  = "Var;83;244;234;N"
	depart[84]  = "Vaucluse;84;223;218;N"
	depart[85]  = "Vendée;85;99;145;O"
	depart[86]  = "Vienne;86;133;149;N"
	depart[87]  = "Haute-Vienne;87;147;167;N"
	depart[88]  = "Vosges;88;247;102;N"
	depart[89]  = "Yonne;89;193;112;N"
	depart[90]  = "Territoire de Belfort;90;257;117;N"
	depart[91]  = "Essonne;91;167;93;N"
	depart[92]  = "Hauts-de-Seine;92;22;299;N"
	depart[93]  = "Seine-Saint-denis;93;50;291;N"
	depart[94]  = "Val-de-Marne;94;49;311;N"
	depart[95]  = "Val-d'Oise;95;168;79;O"
	depart[96] = "X;X;X;X;X"
	depart[97] = "X;X;X;X;X"
	depart[98] = "X;X;X;X;X"
	depart[99] = "X;X;X;X;X"
	depart[100] = "X;X;X;X;X"
	depart[101] = "Guadeloupe;971;40;170;N"
	depart[102] = "Martinique;972;40;170;N"
	depart[103] = "Guyane;973;40;170;N"
	depart[104] = "La Réunion;974;40;170;N"
	depart[105] = "Corse-du-Sud;2A;287;311;N"
	depart[106] = "Haute-Corse;2B;291;295;N"
}



/******************************************************
QUERY STRING SCANNER PAR L'EDITEUR JAVASCRIPT
http://www.editeurjavascript.com
*******************************************************
MERCI DE LAISSER CET AVERTISSEMENT EN CAS D'UTILISATION
******************************************************/

ejs_list = new Array;
ejs_list_valeur = new Array;
ejs_place = document.location.href.indexOf("?",0);
if(ejs_place >= 0)
	{
	ejs_query_string = document.location.href.substring(ejs_place+1, document.location.href.length);
	ejs_place_and = ejs_query_string.indexOf("&",0);
	if(ejs_place_and >= 0)
		ejs_list = ejs_query_string.split("&");
	else
		ejs_list[0] = ejs_query_string;
	for (ejs_i=0;ejs_i<ejs_list.length;ejs_i++)
		{
		ejs_temp = ejs_list[ejs_i].split("=");
		ejs_variable = ejs_temp[0];
		ejs_valeur = ejs_temp[1];
		ejs_plus_place = ejs_valeur.indexOf("+",0);
		while (ejs_plus_place >-1)
			{
			ejs_temp2 = ejs_valeur.substring(0,ejs_plus_place) + ' ' + ejs_valeur.substring(ejs_plus_place+1,ejs_valeur.length);
			ejs_valeur = ejs_temp2;
			ejs_plus_place = ejs_valeur.indexOf("+",ejs_plus_place+2);
			}
		ejs_list_valeur[ejs_variable] = ejs_valeur;
		}	
	}

function get(ejs_get)
	{
	if(ejs_list_valeur[ejs_get])
		return(unescape(ejs_list_valeur[ejs_get]));
	else
		return("");
	}