/* -------------------------------- Bas de page ------------------- 
   retour vers index, compteur du site, compteur de la page et vote 
   uniquement pour les pages de la racine
*/
function BasPage0 (Actif)
{
/******** Weborama gold ********/
 var WEBO_ZONE=1;   // Variables 
 var WEBO_PAGE=1;   //
 var webogold_ok=0; //  Webo gold

 /* Date de dernière modification de la page */
 function DateModif() 
 {
  NomMois=new Array (12);
  NomMois[1]="janvier";
  NomMois[2]="février";
  NomMois[3]="mars";
  NomMois[4]="avril";
  NomMois[5]="mai";
  NomMois[6]="juin";
  NomMois[7]="juillet";
  NomMois[8]="août";
  NomMois[9]="septembre";
  NomMois[10]="octobre";
  NomMois[11]="novembre";
  NomMois[12]="décembre";
  DateMaJ=new Date(document.lastModified);
  var Mois=NomMois[DateMaJ.getMonth()+1];
  
  var Annee = DateMaJ.getYear();
  if (Annee < 100) Annee += 2000;
  if (Annee > 100&&Annee < 2000) Annee += 1900;
  
  /*if(navigator.appName=='Microsoft Internet Explorer')
  Annee=Date.getYear();
  else
  Annee=Date.getYear()+1900;*/
  return DateMaJ.getDate()+" "+Mois+" "+Annee;
 }
 
function webogold_zpi(_WEBOZONE,_WEBOPAGE,_WEBOID,_ACC) // http://script.weborama.fr/gold.js
{
 var wbs_da=new Date();
 wbs_da=parseInt(wbs_da.getTime()/1000 - 60*wbs_da.getTimezoneOffset());
 var wbs_ref=''+escape(document.referrer);
 var wbs_ta='0x0';
 var wbs_co=0;
 var wbs_nav=navigator.appName;
 if (parseInt(navigator.appVersion)>=4)
 {
  wbs_ta=screen.width+"x"+screen.height;
  wbs_co=(wbs_nav!="Netscape")?screen.colorDepth:screen.pixelDepth;
 }
 if((_ACC != null)&&(wbs_nav!="Netscape"))
 {
  var reftmp = 'parent.document.referrer';
  if((_ACC<5)&&(_ACC>0))
  {
   for(_k=_ACC;_k>1;_k--) reftmp = 'parent.' + reftmp;
  }
  var mon_ref = eval(reftmp);
  if((document.referrer == parent.location) || (document.referrer=='')) wbs_ref=''+escape(mon_ref)
  
 }
 var wbs_arg="http://gold.weborama.fr/fcgi-bin/comptage.fcgi?ID="+_WEBOID;
 wbs_arg+="&ZONE="+_WEBOZONE+"&PAGE="+_WEBOPAGE;
 wbs_arg+="&ver=2&da2="+wbs_da+"&ta="+wbs_ta+"&co="+wbs_co+"&ref="+wbs_ref;
 var wbs_suite = 'border=0 height=31 width=100 alt="Weborama mesure le web"></A>';
 var wbs_pubarg = "http://pub.weborama.fr/fcgi-bin/aiar.fcgi?ID="+_WEBOID+"&MODE=CLICK&DATE_NAV="+wbs_da;        
 document.write('<A HREF="'+wbs_pubarg+'" target="weborama"><IMG SRC="'+wbs_arg+'" '+wbs_suite);
}
webogold_ok=1;
 /******** Fin compteur Weborama ********/
 
 var Jour=document.lastModified.substr(3,2);
 var NoMois=document.lastModified.substr(0,2);
 var Annee=document.lastModified.substr(6,4);
 var Mois;
 if (Jour.substr(0,1)=='0') {Jour=Jour.substr(1,1)};
 if (Jour=='1') {Jour='1<SUP>er</SUP>'}
 if (NoMois=='01'){Mois=' janvier '};
 if (NoMois=='02'){Mois=' f&eacute;vrier '};
 if (NoMois=='03'){Mois=' mars '};
 if (NoMois=='04'){Mois=' avril '};
 if (NoMois=='05'){Mois=' mai '};
 if (NoMois=='06'){Mois=' juin '};
 if (NoMois=='07'){Mois=' juillet '};
 if (NoMois=='08'){Mois=' ao&ucirc;t '};
 if (NoMois=='09'){Mois=' septembre '};
 if (NoMois=='10'){Mois=' octobre '};
 if (NoMois=='11'){Mois=' novembre '};
 if (NoMois=='12'){Mois=' d&eacute;cembre '};

 var SweetHome='Images/Maison.gif';
 var SweetHomeR='Images/MaisonR.gif';
 var Nom_fichier=document.URL;
 
 if ((document.title.indexOf('Gironde')!=-1)||(document.title.indexOf('Bouches du Rh&ocirc;ne')!=-1) || (document.location.href.indexOf('Vend&eacute;e')!=-1))
 {
  SweetHome='Images/MaisonSud.gif';
  SweetHomeR='Images/MaisonSudR.gif'; 
 }
 else 
 {
  SweetHome='Images/Maison.gif';
  SweetHomeR='Images/MaisonR.gif';
 }

// le corps des compteurs
 var Commentaire_Compteurs='\n\n En cliquant sur ce compteur vous pouvez  \n'
                           +' en obtenir le journal d&eacute;taill&eacute; &agrave; partir du \n'
                           +' 5 mars 2001, date la cr&eacute;ation de ce journal. \n\n'
                           +' Attention les temps de chargement de certains \n'
                           +' compteurs peuvent &ecirc;tre assez longs. \n\n';

 // La ligne compteur se pr&eacute;sente en g&eacute;n&eacute;ral de la fa&ccedil;on suivante
 // Compteurs/Nom_compteur.txt~Parametre 
 // Un m&ecirc;me compteur peut concerner plusieurs fichiers (cf s&eacute;rie des Marianne de Briat)
 // dans ce dernier cas on ajoute en fin de ligne compteur le nom du fichier, et le compteur est incr&eacute;ment&eacute; si ce nom change 

 var Fichier_Compteur=Compteur;// Par d&eacute;faut le fichier compteur est le compteur annonc&eacute; (dans la majorit&eacute; des cas il n'y a pas de param&egrave;tre
 var Param_Compteur='';        // param&egrave;tre transmis avec le compteur
 var PosTilde=Compteur.indexOf("~");                 // position du ~ dans la ligne compteur transmise
 if (PosTilde!=-1) {                                 // si ce ~ existe
  Lg=Compteur.length;                                // Longueur de la ligne compteur transmise
  Param_Compteur=Compteur.substring(PosTilde+1,Lg);  // la param&egrave;tre transmis
  Fichier_Compteur=Compteur.substring(0,PosTilde);   // le fichier compteur strict
 }
 // TEST document.writeln ('<FONT SIZE="2">Ligne transmise:'+Compteur+'<BR>Fichier compteur: '+Fichier_Compteur+'<BR>Param&egrave;tre:'+Param_Compteur+'<BR></FONT>');

 document.writeln ('<DIV ALIGN="Center">');
 document.writeln ('<TABLE BORDER=0>');
 document.writeln (' <TR>');
 document.writeln ('  <TD ALIGN="Center" ROWSPAN=2 VALIGN="Middle">');//--- Retour &eacute;cran initial ---
 document.writeln ('   <A STYLE="background:none" HREF="index.html" TARGET="_top" onMouseOver="document.images.Maison.src=\''+SweetHomeR+'\'; window.status=\'Retour vers l&acute;index du d&eacute;partement\'; return true" onMouseOut="document.images.Maison.src=\''+SweetHome+'\'; window.status=Titre; return true">');
 document.writeln ('   <IMG SRC="'+SweetHome+'" ALT=" Retour vers l\'index du d&eacute;partement " BORDER="0" WIDTH="22" HEIGHT="20" ALIGN="Middle" NAME="Maison"></A>&nbsp;');
 document.writeln ('  </TD>');

 document.writeln ('  <TD ALIGN="Center" VALIGN="Middle">');// --- Les compteurs personnels ---
 document.writeln ('   <TABLE CELLSAPCING=0 CELLPADDING=0 BORDER=0>');
 document.writeln ('    <TR>');
 document.writeln ('     <TD>');
 document.writeln ('      <TABLE BORDER=1 BGCOLOR=Blue BORDERCOLOR="#0000CC" BORDERCOLORLIGHT="#8177CC" BORDERCOLORDARK="#080189" CELLPADDING=0 CELLSPACING=0>');
 if (Actif=='O')
 {
  document.writeln ('       <TR>');
  document.writeln ('        <TD ALIGN="Center" VALIGN="Middle">');
  document.writeln ('         <TABLE BORDER=0>');
  document.writeln ('          <TR>');
  document.writeln ('           <TD ALIGN="Right"  VALIGN="Middle" BGCOLOR=Blue><FONT COLOR=Black FACE="Arial" SIZE=2>Visiteurs du site : </TD>');
  /*
		if (location.href.indexOf('BL_WWW')!=-1) // connexion locale
  document.writeln ('           <TD ALIGN="Right" VALIGN="Middle" BGCOLOR=Blue><A HREF="http://www.le-lann.com/cgi-bin/Stats_compteur.pl?Compteurs/Phil-Ouest.txt" TARGET="_blank"><IMG SRC="http://www.le-lann.com/cgi-bin/Lecture_Compteur.pl?Compteurs/Phil-Ouest.txt" ALIGN="Middle" BORDER="0" HEIGHT="16" WIDTH="48"></A></TD>');
  else
  document.writeln ('           <TD ALIGN="Right" VALIGN="Middle" BGCOLOR=Blue><IMG SRC="http://www.le-lann.com/cgi-bin/Compteur.pl?Compteurs/Phil-Ouest.txt" ALIGN="Middle" BORDER="0" HEIGHT="16" WIDTH="48"></TD>');
  */
		document.writeln ('          </TR>');
  document.writeln ('          <TR>'); 
  document.writeln ('           <TD ALIGN="Right" VALIGN="Middle" BGCOLOR=Blue><FONT COLOR=Black FACE="Arial" SIZE=2>de cette page : </FONT></TD>');
  document.writeln ('           <TD ALIGN="Right" VALIGN="Middle" BGCOLOR=Blue>');
  if (location.href.indexOf('BL_WWW')!=-1) // connexion locale
  document.writeln ('            <A HREF="http://www.le-lann.com/cgi-bin/Stats_compteur.pl?Compteurs/'+Fichier_Compteur+'" TARGET="_blank"><IMG SRC="http://www.le-lann.com/cgi-bin/Lecture_Compteur.pl?Compteurs/'+Fichier_Compteur+'" ALIGN="Middle" BORDER="0" HEIGHT="16"ALT=" Connexion en mode local "></A></TD>');// 
  else
  document.writeln ('            <A HREF="http://www.le-lann.com/cgi-bin/Stats_compteur.pl?Compteurs/'+Fichier_Compteur+'" TARGET="_blank"><IMG SRC="http://www.le-lann.com/cgi-bin/Compteur.pl?Compteurs/'+Compteur+'" ALIGN="Middle" BORDER="0" HEIGHT="16"></A></TD>');// ALT="'+Commentaire_Compteurs+'"
  document.writeln ('          </TR>');
  document.writeln ('         </TABLE>');
  document.writeln ('        </TD>');
  document.writeln ('       </TR>');
 }
 document.writeln ('       <TR>');//--- Date de derni&egrave;re mise &agrave; jour ---
 document.writeln ('        <TD ALIGN="Center" VALIGN="Middle" BGCOLOR=Blue COLSPAN="4">');
 if(navigator.appName=='Microsoft Internet Explorer')
 document.writeln ('         <FONT CLASS="DerMaJ" COLOR="#AABBCC" FACE="Arial,Helvetica" SIZE="1">&nbsp;Derni&egrave;re mise &agrave; jour le '+Jour+' '+Mois+' '+Annee+'</FONT>');
 else
 document.writeln('         <FONT CLASS="DerMaJ" COLOR="#AABBCC" FACE="Arial,Helvetica" SIZE="1">&nbsp;Derni&egrave;re mise &agrave; jour le '+DateModif()+'</FONT>');
 document.writeln ('        </TD>');
 document.writeln ('       </TR>');
 document.writeln ('      </TABLE>');
 document.writeln ('     </TD>');
 document.writeln ('    </TR>');
 if (Actif=='O')
 {
  document.writeln ('    <TR>');
  document.writeln ('     <TD ALIGN="Center" HEIGHT=1 VALIGN="Middle"><A STYLE="text-decoration:none;" HREF="http://www.perl-gratuit.com" TARGET="_blank"><FONT COLOR="#FF0000" FACE="Arial" SIZE=1>compteur d&acute;apr&egrave;s perl-gratuit.com</FONT></A></TD>');
  document.writeln ('    </TR>');
 }
 document.writeln ('   </TABLE>');
 document.writeln ('  </TD>');

 document.writeln ('  <TD ALIGN="Center" ROWSPAN=2 VALIGN="Middle">');//--------- Vote WebOrama -------
 document.writeln ('   <A STYLE="background:none" HREF="http://vote.weborama.fr/fcgi-bin/vote.fcgi?1121" TARGET="_blank" onMouseOver="document.images.Vote.src=\'Images/VoteR.gif\'; window.status=\'Si ce site vous plait votez pour lui !\'; return true" onMouseOut="document.images.Vote.src=\'Images/Vote.gif\'; window.status=Titre; return true">');
 document.writeln ('   <IMG SRC="Images/Vote.gif" BORDER="0" WIDTH="30" HEIGHT="36" ALT=" Si ce site vous plait votez pour lui ! " ALIGN="Middle" NAME="Vote"></A>');
 document.writeln ('  </TD>');
 document.writeln (' </TR>');
 document.writeln ('</TABLE>');

 document.writeln ('<BR>');
 // E-Mail BL 
 document.writeln ('<A HREF="mailto:Bernard@Le-Lann.com?subject=Phil-Ouest - '+Titre+'." onMouseOver="document.images.Lettre.src=\'Images/Stylo.gif\';window.status=\'Merci de m’envoyer un message.\';return true" onMouseOut="document.images.Lettre.src=\'Images/Lettre.gif\';window.status=Titre;return true"><IMG SRC="Images/Lettre.gif" BORDER="0" WIDTH="39" HEIGHT="20" NAME="Lettre" ALT=" Envoi d&acute;un courrier &agrave; l&acute;auteur de ce site "></A><BR><BR>');

 // Weboralma Gold
 if(webogold_ok==1){webogold_zpi(WEBO_ZONE,WEBO_PAGE,1121);}
 
 // Philatelistes.net 
 //document.writeln ('<BR><BR><DIV ALIGN="Center"><A TARGET="_blank" href="http://www.coppoweb.com/hit-parade/"><IMG SRC="http://www.philatelistes.net/liens/cptr/cptr.php3?id=134" ALT="inscrit au Hit-Parade de www.philatelistes.net" BORDER="0"></A>');
 document.writeln ('</DIV>');
}