var nbmenus = 0
var cestcache = true
var iDelai 
var cestLePlan = false
var cptbulle

function chargerdoc()
  {
  if (location != top.location) 
     {top.choixjs.p_cache(top.choixjs.document.choixjs.inex);top.chargestyle(document)
      mepmenus()}
  }

function ecriremenu()
{
 debmenu()
 finmenu()  
}   

function debmenu()
   {if (cestLePlan == false) {document.write ("<td nowrap valign='top' style='width:11em;padding-right:5px' id='tdmenus'>")}
   if (location.href != top.location.href)
     {
     debsousmenu ("Présentation") 
     lignemenu ("Présentation&nbsp;générale","agenda.htm","Présentation détaillée du calendrier agenda gratuit personnalisable") 
     lignemenu ("Première visite","premvisite.htm","Présentation rapide du site destinée aux nouveaux visiteurs")
     lignemenu ("Les nouveautés","nouveau.htm","Toutes les évolutions depuis l'ouverture du site")
     lignemenu ("Les navigateurs","navigateurs.htm","Compatibilité avec Internet Explorer, Mozilla Firefox, Apple Safari, Opera, Google Chrome")
     lignemenu ("Le mode déconnecté","horsligne.htm","Accès à l'application si le réseau Internet est indisponible")
     lignemenu ("Origines du calendrier","origine.htm","Origines et histoire du calendrier")
     lignemenu ("Contact","contact.htm","Contacter Joël VELON, propriétaire développeur du site")
     lignemenu ("Partenariats","liens.htm","Merci aux partenaires qui m'ont aidé à promouvoir ce site")
     lignemenu ("Témoignages","temoignages.htm","Merci aux utilisateurs qui m'encouragent")
     finsousmenu ()
     debsousmenu ("L'agenda")
     lignemenu ("Rendez-vous, réunions","gestagenda.htm","Gérer ses rendez-vous, réunions, invitations, événements")
     lignemenu ("Suivi d'activités","gestsuivi.htm","Un suivi d'activités pour gérer le temps de travail, les congés, les heures supplémentaires, les ventes, les clients,etc")
     lignemenu ("Liste des activités","listsuivi.htm","La liste personnalisable des activités") 
     lignemenu ("Planification automatique","actauto.htm","Planifiez automatiquement les activités répétitives, quotidiennes ou hebdomadaires")
     lignemenu ("Anniversaires","gestanni.htm","Gérer les anniversaires et imprimer un calendrier avec des photos dans les cases")
     lignemenu ("Fêtes","gestfete.htm","Afficher les fêtes et gérer les fêtes à souhaiter")
     lignemenu ("Notes et rapports","rapport.htm","Saisissez des notes et rapports périodiques d'activité en fin de semaine, de mois, de trimestre, de semestre ou d'année")
     lignemenu ("Conseils de jardinage","agenda_mensuel.htm","Affichez les conseils de jardinage mois par mois, et planifiez vos travaux de jardinage")
     lignemenu ("Recherches","recherche.htm","Rechercher un rendez-vous, un anniversaire, une fête à souhaiter")
     lignemenu ("Exportation&nbsp;/&nbsp;Sauvegarde","export.htm","Exporter, importer, sauvegarder ses données d'agenda")
     finsousmenu ()
     debsousmenu ("Les calendriers")
     lignemenu ("<strong>Tous les modèles</strong>","modeles.htm","Calendriers hebdomadaires, mensuels, trimestriels, semestriels, annuels, scolaires, plannings, tous gratuits !")
     lignemenu ("Personnalisation","pers.htm","Afficher et personnaliser le calendrier 2010, 2011, 2012...")
     lignemenu ("Vacances scolaires","zones.htm","Afficher ou non les vacances scolaires sur le calendrier, ou n'afficher que la zone A, B ou C")
     lignemenu ("Photo","photo.htm","Photographie à placer à coté du calendrier")
     lignemenu ("Polices","police.htm","Police de caractères du calendrier")
     lignemenu ("Impression","impression.htm","Impression gratuite de votre calendrier 2010, 2011, 2012..., dans le format qui vous convient")
     lignemenu ("Envoi par mail","envoimail.htm","Envoi par mail d'un calendrier ou de votre agenda")
     if (top.typeNav == "IE")    {   lignemenu ("Evénements&nbsp;historiques","histoire.htm","Les événements historiques rattachés à une date donnée")   }
     lignemenu ("Calendriers personnels","calendrier-personnel.htm","Sauvegardez puis réutilisez vos calendriers personnels")
     lignemenu ("Calendrier en favori","favoris.htm","Choisissez le modéle de calendrier que vous souhaitez ajouter dans vos favoris Internet")
     lignemenu ("Calendrier fond d'écran","fondecran.htm","Concevez un calendrier et placez le en fond d'écran du bureau de votre ordinateur")
     lignemenu ("Un exemple","exe_annuelp.htm","Exemple de calendrier annuel gratuit personnalisable")
     finsousmenu ()
     if (cestLePlan == false) {document.write("<div id='pubmenu' style='position:absolute;top:" + ((nbmenus*2)+1) + "em;left:1em;width:10em;margin:0'>")}
     }
   }
   
function debgoogle()
   {
   google_ad_client = "pub-0580036714507919";
   /* MenuHaut */
   google_ad_slot = "7681779947";
   google_ad_width = 160;
   google_ad_height = 600;
   }
function finmenu(optmenu)
   {
   var spfinmenu="<br />"
   try
       {if (optmenu.indexOf("1&1") > -1) 
            {document.write ('<div align="center"><br /><A HREF="http://www.meilleurduweb.com/index.php?id=273251" target="_blank"><IMG SRC="http://www.meilleurduweb.com/images/pub/votez_88.31.gif" border="0" ALT="Meilleur du Web : Annuaire des meilleurs sites Web."></A></div>')
             document.write ('<div align="center">' + spfinmenu + '<a href="http://www.toplien.fr/" target="_blank" title="Annuaire gratuit "><img src="http://www.toplien.fr/img/image80x15.png" style="border:0;width:80px;height:15px" alt="annuaire gratuit" /></a><br />&nbsp;</div>' )
            document.write ('<div align="center"><a href="http://1and1.fr/xml/order?k_id=21481448" target="_blank" title="Cliquer pour plus d\'informations"><img src="http://banner.1and1.fr/xml/banner?size=7&number=1" width="140" height="28" border="0"/></a></div>')
            spfinmenu = ""}
        }
   catch (ex) {}
   try
       {if (optmenu.indexOf("cpt") > -1) 
            {document.write ("<div align='center'>" + spfinmenu +"<font size='2'>" + '<img src="/tinc?key=kaeXVa72"><br>Visites depuis le 18/12/2009</font></div>' )}
        }
   catch (ex) {}
   try
       {if (optmenu.indexOf("wan") > -1) 
            {document.write ('<br><div align="center"><a href="http://www.wananow.net/" target="_blank" title="Guide gratuit 2009 wananow"><img src="http://www.wananow.net/img/wana80.gif" alt="Guide gratuit 2009" border="0" /></a></div>' )}
        }
   catch (ex) {}

   document.write ("</div>") 
   document.write ("</td>") 
   document.write ("<td style='width:1px'></td>")
   document.write ("<td style='width:1px'></td>")
   } 
function lignemenu(lib,ad,bulle)
   {
   var t = ""
   if (cestLePlan == false)
      {if (document.location.href.indexOf("/" + ad,1) == -1)
         {
         t += '<li>'
         t += '<a href="' + ad +'"'
         if (bulle != "")  t += ' title="' + bulle + '"'
         t += ">" + lib + "</a><span>.</span>"
         t += "</li>"
         }
         else
         {
         t += '<li>'
         t +=  lib + "<span>.</span>"
         t += "</li>"         
         }
       }  
       else
       {t= '<li><a href="' + ad + '">' + lib + '</a>'
        if (bulle != "") {t += ' - ' + bulle}
        t += '.</li>'
        }      
    document.write (t)  
    }
    
 function debsousmenu(lib)
   {
   var t = ""
   if (cestLePlan == false)
       {var topmenus = 0
       nbmenus++
       topmenus = ((nbmenus-1)*2)+1
       t += '<div id="menu' + nbmenus +'" class="menu" onmouseover="AnnulerDelai()" onmouseout="CacherDelai()"'
       t += ' style="top:' + topmenus + 'em">'
       t += '<a href="#" onmouseover="MontrerMenu(' + nbmenus + ');" onfocus="MontrerMenu(' + nbmenus +');">'
       t += lib + '<span>&nbsp;:</span>'
       t += '</a>'
       t += '</div>'
       t += '<ol id="ssmenu' + nbmenus +'" class="ssmenu"'
       t += ' onmouseover="AnnulerDelai()" onmouseout="CacherDelai()" >'
       }
       else
       {
       t += "<h2>" + lib + "</h2><ul>"
       }
   document.write (t)  
   }    
    
 function finsousmenu()
    {   if (cestLePlan == false)
            {document.write ("</ol>")   }
            else
            {document.write ("</ul>")}
    }
    
 function bouton_imprimerlapage()
    {
    if (location.href == top.location.href)
       {
       var t= '<div align="center" class="noprint">'
       t +=  '&nbsp;<br><input type="button" value="Imprimer cette page" onclick="window.print()">'
       t +=  '&nbsp;&nbsp;&nbsp;&nbsp;'
       t +=  '<input type="button" value="Fermer" onclick="window.close()">'
       t +=  '</div>'
       document.write(t)
       }
    }  
    
 function google_theme()
    {document.write("<br>")
    google_ad_client = "pub-0580036714507919";
    /* BasDePage */
    google_ad_slot = "9475095592";
    google_ad_width = 728;
    google_ad_height = 15;
    }   


function mepmenus() {

   document.body.style.marginLeft="11em";
   document.getElementById('tdmenus').style.width = '1px'
}

function MontrerMenu(indMenu) {  
    AnnulerDelai()
    CacherMenus();
    document.getElementById("menu" +indMenu).style.backgroundColor = "#FFCC66"
    with (document.getElementById("ssmenu" +indMenu))
         {
         if (offsetHeight > document.body.clientHeight)
             {style.top = '1em'}
             else
             {style.top = (((indMenu-1)*2)+1) + "em"}
         style.visibility="visible";
         }
  cestcache = false
}

function CacherMenus() {
    for(i=1;i<=nbmenus;i++) {
      document.getElementById("ssmenu"+i).style.visibility="hidden";
      document.getElementById("menu"+i).style.backgroundColor = "#F3F3F3";
     }
  cestcache = true 
  }

function CacherDelai()
  {
  if (cestcache == false)
     {iDelai = window.setTimeout('CacherMenus()',1000)}
  }
  
function AnnulerDelai()
  {
    try {window.clearTimeout(iDelai)} catch (ex) {}
  }  
function controle(lapage)
  {
   if ((location == top.location) && (document.location.href.indexOf("?onaide") == -1))
      {if (location.href.indexOf("file://") == 0) 
          {location.href= "accueil.htm?prem=" + location.href.substring(location.href.lastIndexOf("/")+1)}
          else
          {
          if  ((document.referrer.indexOf("http://www.calagenda.fr") != 0) && (document.referrer.indexOf("http://calagenda.fr") != 0)) 
              {document.write ("<div align='center'><strong><a href='index.htm' title=\"Cliquez pour accèder à l'application\">Accès au calendrier agenda</a></strong></div>")
              top.location.href = "http://www.calagenda.fr/calendrier-agenda.php?prem=" + lapage }
          }
      }
  }
  
function chargerbulle(qui, quoi)
   {
   el = qui.getElementsByTagName("SPAN")[0]
   el.style.display = "none"
   el.innerHTML = "Chargement en cours<br>Merci de patienter"
   el.innerHTML = quoi
   cptbulle = window.setTimeout('afficherbulle(el)',500)}
   
function afficherbulle(el)
   {
   el.style.display = "block"
   }    

function accesaccueil()
  {
  if ((top.location.href == location.href) || (top.location.href.indexOf("calagenda.fr") > 20 ) || (top.location.href.indexOf("calagenda.fr") == -1 ))
       {document.write ("<li><a href='.' target='_top'>Accés au calendrier agenda gratuit</a></li>")}
  }