// FRANCE - Affiche la croix d'une commune sur la carte de France
function com_france(source_com, formulaire, code_insee) { 
	var doc = document ;
	if (source_com == 0) {
		///////////
		selection = 0;
		if (code_insee != "") {
			nb_elem = doc.list.list_com.length;
			for (i = 0; i < nb_elem ; i++) {
				var com_en_cours = 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 ;
					}
				}
			}
		///////////
		doc.list.list_com.options.selectedIndex = selection ;
		var donnee = doc.list.list_com.options[doc.list.list_com.selectedIndex].value ;
		doc.list.list_com.focus() ;
		nom_com = doc.list.list_com.options[doc.list.list_com.selectedIndex].text ;
		}
	if (source_com == 1) {
		var donnee = formulaire.list_com.options[formulaire.list_com.selectedIndex].value ;
		nom_com = formulaire.list_com.options[formulaire.list_com.selectedIndex].text;
		}	
	var eclate_com  = donnee.split(";") ;
	num_dep_insee = eclate_com[0] ;
	var insee         = eclate_com[1] ;
	longc       = parseFloat(eclate_com[2]) ;
	latc       = parseFloat(eclate_com[3]) ;			
	//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] ;
			largeur       = parseFloat(eclate_depart[2]) ;
			hauteur       = parseFloat(eclate_depart[3]) ;
			var carte	  = eclate_depart[4] ;
			break ;
			}
		}
	var text_bout = '<a href="JavaScript: cherche_dep(\''+num_dep_insee+'\',\''+insee+'\');">Accès à la commune<\/a><br><a href="Javascript: fix_com();">Fixer cette commune</a>'
	// coordonnées croix
	var div1 = document.getElementById("drap0");
	var objet;
	objet = new Array(div1);
	objet[0].style.left = largeur;
	objet[0].style.top  = hauteur - 21;
	div1.innerHTML = '<img src="loc_drap0.gif" width="22" height="22" border="0">';
	// 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) {
	var fich_dep = "loc_listcomd"+num_dep_insee+".htm?code_insee="+insee ;
	location = fich_dep ;
	}


// 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"><tr><td>Commune : <img src="loc_drap0b.gif" width="22" height="22" border="0">'
	if (nom_com1 != '') {
		res=6378 * Math.acos(Math.cos(lat1)*Math.cos(latc)*Math.cos(long1-longc) + Math.sin(lat1)*Math.sin(latc));
		dist = (res < 20) ? Math.round(res*10)/10 : Math.round(res);
		text_disp = '( à <span class=don>';
		text_disp += (isNaN(dist)) ? '?' :  dist;
		text_disp += '</span> km)';
		result += text_disp;
		var div2 = document.getElementById("drap1") ;
		var objet;
		objet = new Array(div2);
		objet[0].style.left = fix_x1-19;
		objet[0].style.top  = fix_y1-19;
		document.getElementById("drap1").innerHTML = '<img src="loc_drap1.gif" width="20" height="20" border="0">'; // force drap1 sur carte
		document.getElementById("com_fix").innerHTML = '<img src="loc_drap1b.gif" width="20" height="20" border="0"> <span class=don>'+nom_com1+'</span> (<span class=don>'+num_dep1+'</span>)';
		}	
	result += ' <span class=don>'+nom_com+'<\/span><br>Département : <span class=don>'+nom_dep+' ('+num_dep_insee+')<\/span><br>Code INSEE : <span class=don>'+insee+'<\/span><br>'+text_bout+'<\/td><\/tr><\/table>';
	var lay = document.getElementById("infos") ;
	lay.innerHTML = result ;
	}

function fix_com() {
	nom_com1 = nom_com;
	long1 = longc;
	lat1 = latc;
	num_dep1 = num_dep_insee;
	document.getElementById("com_fix").innerHTML = '<img src="loc_drap1b.gif" width="20" height="20" border="0"> Commune &quot;fixée&quot; pour le calcul de distance entre communes';
	var div2 = document.getElementById("drap1") ;
	var objet;
	objet = new Array(div2);
	objet[0].style.left = largeur -19;
	objet[0].style.top  = hauteur - 19 ;
	fix_x1 = largeur; fix_y1 = hauteur;
	div2.innerHTML = '<img src="loc_drap1.gif" width="20" height="20" border="0">'; // affiche drap1 sur carte
	document.getElementById("drap0").innerHTML = '<img src="loc_drap0.gif" width="22" height="22" border="0">'; // force drap0 sur carte
	}

// 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;313;217;N"
	depart[2]  ="Aisne;02;262;66;O"
	depart[3]  ="Allier;03;250;205;O"
	depart[4]  ="Alpes-de-Haute-Provence;04;342;303;N"
	depart[5]  ="Hautes-Alpes;05;344;278;N"
	depart[6]  ="Alpes-Maritimes;06;369;310;O"
	depart[7]  ="Ardèche;07;285;278;N"
	depart[8]  ="Ardennes;08;292;69;O"
	depart[9]  ="Ariège;09;201;353;O"
	depart[10] ="Aube;10;279;123;N"
	depart[11] ="Aude;11;227;346;O"
	depart[12] ="Aveyron;12;234;293;O"
	depart[13] ="Bouches-du-Rhône;13;308;325;N"
	depart[14] ="Calvados;14;146;90;O"
	depart[15] ="Cantal;15;234;259;O"
	depart[16] ="Charente;16;162;235;O"
	depart[17] ="Charente-Maritime;17;135;231;N"
	depart[18] ="Cher;18;231;176;N"
	depart[19] ="Corrèze;19;211;250;O"
	depart[21] ="Côte-d'Or;21;296;162;N"
	depart[22] ="Côtes-d'Armor;22;67;121;O"
	depart[23] ="Creuse;23;216;219;O"
	depart[24] ="Dordogne;24;177;261;O"
	depart[25] ="Doubs;25;343;172;N"
	depart[26] ="Drôme;26;308;277;N"
	depart[27] ="Eure;27;185;92;O"
	depart[28] ="Eure-et-Loir;28;197;121;N"
	depart[29] ="Finistère;29;40;123;O"
	depart[30] ="Gard;30;283;308;O"
	depart[31] ="Haute-Garonne;31;199;329;O"
	depart[32] ="Gers;32;169;321;O"
	depart[33] ="Gironde;33;141;276;O"
	depart[34] ="Hérault;34;256;325;O"
	depart[35] ="Ille-et-Vilaine;35;108;129;O"
	depart[36] ="Indre;36;202;189;N"
	depart[37] ="Indre-et-Loire;37;175;167;N"
	depart[38] ="Isère;38;319;253;N"
	depart[39] ="Jura;39;326;191;N"
	depart[40] ="Landes;40;133;307;O"
	depart[41] ="Loir-et-Cher;41;197;153;N"
	depart[42] ="Loire;42;277;231;N"
	depart[43] ="Haute-Loire;43;268;259;O"
	depart[44] ="Loire-Atlantique;44;108;164;O"
	depart[45] ="Loiret;45;224;140;O"
	depart[46] ="Lot;46;204;281;O"
	depart[47] ="Lot-et-Garonne;47;168;292;O"
	depart[48] ="Lozère;48;261;286;O"
	depart[49] ="Maine-et-Loire;49;141;162;O"
	depart[50] ="Manche;50;119;90;O"
	depart[51] ="Marne;51;282;95;N"
	depart[52] ="Haute-Marne;52;310;132;N"
	depart[53] ="Mayenne;53;136;131;N"
	depart[54] ="Meurthe-et-Moselle;54;337;109;O"
	depart[55] ="Meuse;55;315;95;O"
	depart[56] ="Morbihan;56;75;144;O"
	depart[57] ="Moselle;57;351;94;O"
	depart[58] ="Nièvre;58;260;176;N"
	depart[59] ="Nord;59;257;41;O"
	depart[60] ="Oise;60;227;77;O"
	depart[61] ="Orne;61;160;108;O"
	depart[62] ="Pas-de-Calais;62;222;31;O"
	depart[63] ="Puy-de-Dôme;63;247;233;O"
	depart[64] ="Pyrénées-Atlantiques;64;135;340;O"
	depart[65] ="Hautes-Pyrénées;65;161;349;O"
	depart[66] ="Pyrénées-Orientales;66;233;365;O"
	depart[67] ="Bas-Rhin;67;380;109;O"
	depart[68] ="Haut-Rhin;68;371;141;O"
	depart[69] ="Rhône;69;295;234;O"
	depart[70] ="Haute-Saône;70;337;150;N"
	depart[71] ="Saône-et-Loire;71;288;195;N"
	depart[72] ="Sarthe;72;163;137;N"
	depart[73] ="Savoie;73;349;244;N"
	depart[74] ="Haute-Savoie;74;347;220;N"
	depart[75] ="Paris;75;52;242;N"
	depart[76] ="Seine-Maritime;76;188;66;O"
	depart[77] ="Seine-et-Marne;77;243;109;N"
	depart[78] ="Yvelines;78;211;102;N"
	depart[79] ="Deux-Sèvres;79;146;200;O"
	depart[80] ="Somme;80;225;55;O"
	depart[81] ="Tarn;81;219;316;O"
	depart[82] ="Tarn-et-Garonne;82;192;305;O"
	depart[83] ="Var;83;340;331;N"
	depart[84] ="Vaucluse;84;309;307;N"
	depart[85] ="Vendée;85;119;195;O"
	depart[86] ="Vienne;86;171;200;N"
	depart[87] ="Haute-Vienne;87;193;230;N"
	depart[88] ="Vosges;88;346;129;N"
	depart[89] ="Yonne;89;260;145;N"
	depart[90] ="Territoire de Belfort;90;361;154;N"
	depart[91] ="Essonne;91;224;114;N"
	depart[92] ="Hauts-de-Seine;92;33;250;N"
	depart[93] ="Seine-Saint-denis;93;73;229;N"
	depart[94] ="Val-de-Marne;94;72;260;N"
	depart[95] ="Val-d'Oise;95;224;95;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;430;80;N"
	depart[102]="Martinique;972;453;177;N"
	depart[103]="Guyane;973;461;267;N"
	depart[104]="La Réunion;974;452;341;N"
	depart[105]="Corse-du-Sud;2A;62;349;N"
	depart[106]="Haute-Corse;2B;64;318;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("");
	}

function lien_p_s(page_en_cours) {
	var adresse_url = new String(page_en_cours);
	var nom_page_deb = Fich; var nom_page_fin = ".htm";
	min_page = 1; max_page = 62; var lien_page_suiv = "";var lien_page_prec = "";var lien_entre="";
	var pos1 = adresse_url.indexOf(nom_page_deb)+nom_page_deb.length;
	var pos2 = adresse_url.indexOf(nom_page_fin);
	var num_page = parseInt(adresse_url.substring(pos1,pos2));
	var num_page_suiv = num_page+1;
	var num_page_prec = num_page-1;
	if (num_page_suiv <= max_page) lien_page_suiv = '<A href="Javascript: p_suiv(\''+nom_page_deb+'\',\''+num_page_suiv+'\',\''+nom_page_fin+'\');">Page suivante<\/A>';
	if (num_page_prec >= min_page) lien_page_prec = '<A href="Javascript: p_suiv(\''+nom_page_deb+'\',\''+num_page_prec+'\',\''+nom_page_fin+'\');">Page précédente<\/A>';
	if (num_page_suiv != "" && num_page_prec != "") lien_entre="&nbsp;&nbsp;&nbsp;";
	var lien='<p class="cent b">'+lien_page_prec+lien_entre+lien_page_suiv+'<p>';
	lien+='Commune non trouvée ?<br>Consulter l\'<a href="loc_ancmen.htm">Historique des communes</a>'
	document.write(lien);
}

function p_suiv(p_deb, p_suiv, p_fin) { // pr page suivante ou précédente
	p_suiv=p_deb+p_suiv+p_fin;
	location = p_suiv+'?com='+nom_com1+'&num_dep='+num_dep1+'&fix_x='+fix_x1+'&fix_y='+fix_y1+'&long='+long1+'&lat='+lat1;
}