var WebTitle="HIRSINGUE" 


function hidestatus()
{
window.status=' HIRSINGUE - Habitat Coutumes et Vie associative - pages histoire '
return true;
}
if (document.layers)
document.captureEvents( Event.MOUSEOVER | Event.MOUSEOUT)
document.onmouseover=hidestatus
document.onmouseout=hidestatus

 function bye()
{
window.alert('Vous quittez le site \nHIRSINGUE : Habitat, coutumes et vie associative - histoire\nMerci pour votre visite \nA demain...');

}

 function bye2()
{
window.alert('Si vous quittez le site \nHIRSINGUE : Habitat, coutumes et vie associative \nMerci pour votre visite \nA demain...');

}

function c_right()
{ var copyr
today=new Date();
y0=today.getFullYear();
copyr=(" Copyright © 1997 - "+   y0);
}



function affiche(objet)
 {
    with (document.maison)
       {nom.value= objet
       }

                   }


 function avril()
{
window.alert('Poisson d\'avril : Canulard du Club-photo de Hirsingue\nMerci pour votre visite \nA bientôt...');

}

function courriel_to( subject)
 {
var lien ="Raymond SCHWEITZER";
var name ="raymond.";
var family="schweitzer";
var aro = "@";
var company ="free.";
var domain="fr";
var xxx ="mailto:";

locationstring = xxx + name + family +  aro + company  + domain + "?subject=" + escape(subject) ; 

window.location.replace(locationstring);

}
//--------------------------------------------------------------------------------------------
   function click()
     {if (event.button==2)
    {alert('Hirsingue :\nHabitat Coutumes et Vie associative - histoire.')}}
   document.onmousedown=click
//-------------------------------------------------------------------------------------------------

// debut ----anti--- select------------ texte ---------------

//declaration des tags autorisé pour copie NS6+:
   var tagautorise=["input", "textarea", "select"]

   tagautorise=tagautorise.join("|")

   function disableselect(e){
     if (tagautorise.indexOf(e.target.tagName.toLowerCase())==-1)
    return false
   }

   function reEnable(){
    return true
  }

   if (typeof document.onselectstart!="undefined")
  document.onselectstart=new Function ("return false")
   else{
  document.onmousedown=disableselect
    document.onmouseup=reEnable
    }
//----------Fin---anti------select----------texte----------



//=============debut ======annonce fin multimania===================================
 //  window.alert('Cher internaute\nLycos Multimania arrête son service d\'hebergement le 15 fevrier 2009  ! Dommage \n\nHIRSINGUE : Habitat, coutumes et vie associative - histoire  // \nest disponible à l\'adresse suivante :\n\nhirsingue.patrimoine.free.fr\n\nVeuillez prendre note de cette nouvelle adresse\nMerci pour vos visites \n'); 

//=============fin============annonce fin multimania=============================