<!--



// detection navigateur
bName = navigator.appName; 
bVer  = parseInt(navigator.appVersion); 

     if (bName == "Netscape" && bVer >= 4) ver = "nn4"; 
else if (bName == "Netscape" && bVer >= 3) ver = "nn3"; 
else if (bName == "Netscape" && bVer == 2) ver = "nn2"; 
else if (bName.indexOf('Microsoft') >= 0 && bVer >= 4) ver = "ie4"; 
else if (bName.indexOf('Microsoft') >= 0 && bVer >= 2) ver = "ie3"; 
else ver = "xx";




function lance(newURL,newName,newFeatures,orgName) {
var fille=open(newURL,newName,newFeatures);
if (fille.opener == null)  fille.opener=window;
fille.opener.name=orgName;
return fille;
}

function ouvrir(nom_page)
{

// fermer la fenetre poeme si IE3 - ne marche pas
//if (ver=="ie3" || ver=="xx") {if (window.fen_poeme) fen_poeme.close();}

fen_poeme=lance(nom_page,"fen_poeme","toolbar=no,location=no,directories=no,status=no,menubar=no,scrollbars=yes,resizable=yes,width=620,height=400","menu");

//if (ver!="ie3" && ver!="xx") fen_poeme.focus();
if (bVer>=3) fen_poeme.focus();
}



//* 
//     	affichage aleatoire d'une page HTML
//	(c) janvier 1998, SK            
//                
//

function Liste() {
  var argv = Liste.arguments;
  var argc = argv.length;
  this.list = new Object();
  for (var i = 0; i < argc; i++)
    this.list[i] = argv[i];
  this.count = argc;
  return this;
}


function alea()
{
	// indiquer le nombre de poemes figurant sous la forme 1.htm , 2.htm, etc...
	// nb : il ne doit pas y avoir de trou... si trou placer les poemes dans la liste pages
	// attention : le premier fichier pris en compte est 1.htm


var total_poemes_numerotes=74;


	// placer les adresses des pages (en relatif ou en absolu)
	// dans la chaine suivante
	var  pages = new Liste (
"1","2","3","4","1"
);

choix = Math.round ( (Math.random() * (total_poemes_numerotes+pages.count-1)) );

if (choix>=pages.count) 
{num=choix+1-pages.count;
fichier="http://www.chainepoetique.com/textes/cp"+num+".htm";
}
else  fichier="http://www.chainepoetique.com/textes/cp"+pages.list[choix]+".htm";


//alert("total poemes numerotés"+total_poemes_numerotes+"\ntotal pages référencées "+pages.count+"\n choix "+choix+"\n fichier "+fichier);

//ouvrir(fichier);
this.location=fichier;
}



// -->