var name = navigator.appName
// On appelle le nom du navigateur avec la Propriété appName
// de l'objet navigator 

if (name == "Microsoft Internet Explorer")
{

//Spécifie la largeur de la banderole (en pixels)
var marqueewidth=330
//Specifie la hauteur de la banderole (en pixels, nécessaire que sous NS)
var marqueeheight=30
//Spécifie la vitesse de défilement (au plus élevé, au plus vite)
var speed=7
//Spécifie le texte de la banderole
//var txt = TextFileTest()

var marqueecontents='<B><font size="5">Au service de la Science   -  Scientific Services    -         Wissenschaftliche Dienste </font> </B>'

if (document.all)
document.write('<marquee scrollAmount='+speed+' style="width:'+marqueewidth+'">'+marqueecontents+'</marquee>')
//document.write('<marquee scrollAmount='+speed+' style="width:'+marqueewidth+'">'+TextFileTest()+'</marquee>')
function TextFileTest() {
      var ts, s
	  fso = new ActiveXObject("Scripting.FileSystemObject")
	//	dir = fso.GetParentFolderName(url).substr(1)
      // Lecture, écriture ou écriture à la fin ?
      var ForReading = 1, ForWriting = 2, ForAppending = 8
      // Path du fichier
//      PathFich = dir + "\\test1.txt" // ou .html etc...:)
      PathFich = "header.txt" // ou .html etc...:)
      ts = fso.CreateTextFile(PathFich)
      // ou ouvrir pour écrire (crée automatiquement si true)
      // ts = fso.OpenTextFile(PathFich,ForWriting, false)
      // Ecrire dans un fichier
      //  ts.WriteLine("Salut tout le monde") // ou Write
      // Fermer le fichier
      // ts.Close()
      // Tester l'existence
      if (fso.FileExists(PathFich)) {
         // Lire un fichier
         ts = fso.OpenTextFile(PathFich,ForReading,false)
         s = ts.ReadLine() // ou Read(nbchars) ou ReadAll
         ts.Close()
         // Détruire un fichier
//         fso.DeleteFile(PathFich)
      }
      return(s)
}

function regenerate(){
window.location.reload()
}
function regenerate2(){
if (document.layers){
setTimeout("window.onresize=regenerate",450)
intializemarquee()
}
}

function intializemarquee(){
document.cmarquee01.document.cmarquee02.document.write('<nobr>'+marqueecontents+'</nobr>')
document.cmarquee01.document.cmarquee02.document.close()
thelength=document.cmarquee01.document.cmarquee02.document.width
scrollit()
}

function scrollit(){
if (document.cmarquee01.document.cmarquee02.left>=thelength*(-1)){
document.cmarquee01.document.cmarquee02.left-=speed
setTimeout("scrollit()",100)
}
else{
document.cmarquee01.document.cmarquee02.left=marqueewidth
scrollit()
}
}

window.onload=regenerate2
}

else document.write("<B>"+"<font size='3'>"+"Au service de la Science   -  Scientific Services    -         Wissenschaftliche Dienste "+"</font>"+"</B>");