posXmenu = 1;
posYmenu = 0;
Netruc   = 0;
if (navigator.appName=="Netscape") {Netruc = 1;}

bgcolor='#990000';
bgcolor2='#FFFFFF';
bgcolor3='#660000';
rep = 'http://www.iumsp.ch/';
//rep = 'file://M:/ims/WWW_New/iumsp/';

var WdT = new Array(" "," ","width=120"," "," ","width=120");
sousmenu = new Array;
sousmenu [0] = new Array;
sousmenu [1] = new Array;
sousmenu [2] = new Array;
sousmenu [3] = new Array;
sousmenu [4] = new Array;
sousmenu [5] = new Array;
sousmenu [6] = new Array;

sousmenu [0] [0] = '<A HREF="' + rep + 'OuNousTrouver/new_adresse.htm" TARGET="accueil" CLASS=menu><FONT color="#ffffff">Adresses</FONT><FONT color="#990000">...................................</font></A>';
sousmenu [0] [1] = '<A HREF="' + rep + 'OuNousTrouver/msp_planlausanne.htm" TARGET="accueil" CLASS=menu><FONT color="#ffffff">Plan d&#146;acc&egrave;s et parkings</FONT><FONT color="#990000">........</font></A>';
sousmenu [0] [2] = '<A HREF="' + rep + 'OuNousTrouver/msp_planchuv.htm" TARGET="accueil" CLASS=menu><FONT color="#ffffff">Plans IUMSP et arr&ecirc;ts du métro </FONT><FONT color="#990000">..</font></A>';
sousmenu [0] [3] = '<A HREF="http://www.cff.ch" TARGET="_blank" CLASS=menu><FONT color="#ffffff">Horaire CFF</FONT><FONT color="#990000">...........................</font></A>';


sousmenu [1] [0] = '<A HREF="' + rep + 'Unites/dir/msp_dir.htm" TARGET="accueil" CLASS=menu><FONT color="#ffffff">Direction (DIR)</FONT><FONT color="#990000">.............................................................</font></A>';
sousmenu [1] [1] = '<A HREF="' + rep + 'Unites/uec/msp_uec.htm" TARGET="accueil" CLASS=menu><FONT color="#ffffff">Unit&eacute; d&#146;&eacute;pidemiologie du cancer et</FONT><FONT color="#990000">..................................</font><br>Registre vaudois des tumeurs (UEC/RVT)<FONT color="#990000">....................</font></A>';
sousmenu [1] [2] = '<A HREF="' + rep + 'Unites/uepp/msp_uepp.htm" TARGET="accueil" CLASS=menu><FONT color="#ffffff">Unit&eacute; d&#146;&eacute;valuation de programmes de pr&eacute;vention (UEPP)<FONT color="#990000">.</FONT></font></A>';
sousmenu [1] [3] = '<A HREF="' + rep + 'Unites/ues/msp_ues.htm" TARGET="accueil" CLASS=menu><FONT color="#ffffff">Unit&eacute; d&#146; &eacute;valuation des soins (UES)</FONT><FONT color="#990000">...........................</font></A>';
sousmenu [1] [4] = '<A HREF="' + rep + 'Unites/upc/msp_upc.htm" TARGET="accueil" CLASS=menu><FONT color="#ffffff">Unit&eacute; de pr&eacute;vention communautaire (UPC)</FONT><FONT color="#990000">.............................................</font></A>';
sousmenu [1] [5] = '<A HREF="' + rep + 'Unites/us/msp_us.htm" TARGET="accueil" CLASS=menu><FONT color="#ffffff">Unit&eacute; de statistique (US)</FONT><FONT color="#990000">............................................</font></A>';
sousmenu [1] [6] = '<A HREF="' + rep + 'Unites/uss/msp_uss.htm" TARGET="accueil" CLASS=menu><FONT color="#ffffff">Unit&eacute; des services de sant&eacute; (USS)</FONT><FONT color="#990000">..............................</font></A>';
//sousmenu [1] [7] = '<A HREF="' + rep + 'Unites/gct/msp_gct.htm" TARGET="accueil" CLASS=menu><FONT color="#ffffff">Groupe cardio-vasculaire et transition sanitaire (GCT)</FONT><FONT color="#990000">......</font></A>';
sousmenu [1] [7] = '<FONT color="#FFFFFF"><hr></font>';
sousmenu [1] [8] = '<A HREF="http://www.chuv.ch/cepic/" TARGET="_blank" CLASS=menu><FONT color="#ffffff">Centre d&#146;&eacute;pidemiologie clinique (CEPIC)</FONT><FONT color="#990000">......................</font></A>';
sousmenu [1] [9] = '<A HREF="http://www.umsa.ch" TARGET="_blank" CLASS=menu><FONT color="#ffffff">Groupe de recherche sur la santé des adolescents (GRSA)</FONT><FONT color="#990000">.</font></A>';

sousmenu [2] [0] = '<A HREF="' + rep + 'Enseignement/pregradue/msp_pregradue.htm" TARGET="accueil" CLASS=menu><FONT color="#ffffff">Pr&eacute;gradu&eacute;</FONT><FONT color="#990000">.................</font></A>';
sousmenu [2] [1] = '<A HREF="' + rep + 'Enseignement/postgradue/msp_postgradue.htm" TARGET="accueil" CLASS=menu><FONT color="#ffffff">Postgrade</FONT><FONT color="#990000">.................</font></A>';
sousmenu [2] [2] = '<A HREF="' + rep + 'Enseignement/colloques/msp_colloques.htm" TARGE="accueil" CLASS=menu><FONT color="#ffffff">Colloques</FONT><FONT color="#990000">.................</font></A>';


sousmenu [3] [0] = '<A HREF="' + rep + 'biblio/msp_info.htm" TARGET="accueil" CLASS=menu><FONT color="#ffffff">Informations g&eacute;n&eacute;rales</FONT><FONT color="#990000">.</font></A>';
sousmenu [3] [1] = '<A HREF="' + rep + 'biblio/msp_catalogue.htm" TARGET="accueil" CLASS=menu><FONT color="#ffffff">Catalogue</FONT><FONT color="#990000">...................</font></A>';
sousmenu [3] [2] = '<A HREF="' + rep + 'biblio/msp_periodiques.htm" TARGET="accueil" CLASS=menu><FONT color="#ffffff">P&eacute;riodiques</FONT><FONT color="#990000">...............</font></A>';
sousmenu [3] [3] = '<A HREF="' + rep + 'biblio/msp_collections.htm" TARGET="accueil" CLASS=menu><FONT color="#ffffff">Collections</FONT><FONT color="#990000">.................</font></A>';
sousmenu [3] [4] = '<A HREF="' + rep + 'biblio/msp_bibliographie.htm" TARGET="accueil" CLASS=menu><FONT color="#ffffff">Bibliographie des cours</FONT><FONT color="#990000">.</font></A>';


sousmenu [4] [0] = '<A HREF="http://www.saphirdoc.ch/pubiumsp2.htm" TARGET="accueil" CLASS=menu><FONT color="#ffffff">Publications par ann&eacute;es</FONT><FONT color="#990000">....</font></A>';
sousmenu [4] [1] = '<A HREF="' + rep + 'Publications/msp_rapports.htm" TARGET="accueil" CLASS=menu><FONT color="#ffffff">Rapports annuels</FONT><FONT color="#990000">...........</font></A>';
sousmenu [4] [2] = '<A HREF="' + rep + 'Unites/uepp/msp_files.htm" TARGET="accueil" CLASS=menu><FONT color="#ffffff">Rapports d&#146;&eacute;valuation</FONT><FONT color="#990000">.....</font></A>';
sousmenu [4] [3] = '<A HREF="' + rep + 'Publications/msp_cahier.htm" TARGET="accueil" CLASS=menu><FONT color="#ffffff">Cahier de recherche</FONT><FONT color="#990000">..........</font></A>';
sousmenu [4] [4] = '<A HREF="' + rep + 'Unites/us/Alfio/msp_programmes.htm" TARGET="accueil" CLASS=menu><FONT color="#ffffff">Programmes de statistique</FONT><FONT color="#990000">.</font></A>';
sousmenu [4] [5] = '<A HREF="' + rep + 'Publications/msp_raisons.htm" TARGET="accueil" CLASS=menu><FONT color="#ffffff">Raisons de sant&eacute;</FONT><FONT color="#990000">.............</font></A>';


//sousmenu [5] [0] = '<A HREF="http://www.chuv.ch/iumsp-bin/ims_annuaire.pl?xTri=service" target="accueil" CLASS=menu><FONT color="#ffffff">IUMSP</FONT><FONT color="#990000">.....................</font></A>';
sousmenu [5] [0] = '<A HREF="' + rep + 'annuaire/msp_byunit.htm" target="accueil" CLASS=menu><FONT color="#ffffff">IUMSP</FONT><FONT color="#990000">.....................</font></A>';
sousmenu [5] [1] = '<A HREF="http://app.chuv.ch/bottin-internet/" target="_blank" CLASS=menu><FONT color="#ffffff">Hospices</FONT><FONT color="#990000">..................</font></A>';
sousmenu [5] [2] = '<A HREF="' + rep + 'apropos/msp_brochure.htm" target="accueil" CLASS=menu><FONT color="#ffffff">Brochure&nbsp;d&#146;accueil</FONT><FONT color="#990000">..................</font></A>';

sousmenu [6] [0];


dom = document.getElementById;

var isDHTML = 0;
var isID = 0;
var isAll = 0;
var isLayers = 0;


if (dom) {isID = 1; isDHTML = 1;}
else {
if (document.all) {isAll = 1; isDHTML = 1;}
else {
browserVersion = parseInt(navigator.appVersion);
if ((navigator.appName.indexOf('Netscape') != -1) && (browserVersion == 4)) {isLayers = 1; isDHTML = 1;}
}}

function spamto(mailID,domain,descript) {
mytxt = "<a href=mailto:"+mailID+"@"+domain+">"+descript+"</a>";
document.write (mytxt);
}

function findDOM(objectID,withStyle) {
	if (withStyle == 1) {
		if (isID) { return (document.getElementById(objectID).style) ; }
		else { 
			if (isAll) { return (document.all[objectID].style); }
		else {
			if (isLayers) { return (document.layers[objectID]); }
		};}
	}
	else {
		if (isID) { return (document.getElementById(objectID)) ; }
		else { 
			if (isAll) { return (document.all[objectID]); }
		else {
			if (isLayers) { return (document.layers[objectID]); }
		};}
	}
}

function findWidth(objectID) {
	var dom = findDOM(objectID,0);
if (dom.offsetWidth)
return dom.offsetWidth;
if (dom.clip.width)
return dom.clip.width;
return (null);
}

function ShowFenetre()
	{
	if(dom)
		document.getElementById("cadremenu").style.visibility="visible";
	}

function KillFenetre()
	{
	if(dom)
		document.getElementById("cadremenu").style.visibility="hidden";
	}

if(dom)
	document.getElementById("cadremenu").style.top = posYmenu+30;

function SousMenu(no,msg,WidTxt)
	{
	if(dom)
		{
                widtab = findWidth('tabmenu');
                if (widtab<735) WdT[5] = 'width='+Math.round(0.16*widtab-1);
                truepos = 0;
                if (no>0) truepos = Math.round(((no-1)*0.16+0.2)*widtab);
                leftruepos = truepos + 2;
                if (Netruc==0) leftruepos = posXmenu+truepos;
		document.getElementById("cadremenu").style.left = leftruepos;
		var content  = " ";
                if (Netruc==0) content = "<DIV ID=\"cadremenu\" style=\"position:absolute; z-index:1;\" onMouseOver=\"ShowFenetre()\" onMouseOut=\"KillFenetre()\">";
                content += "<TABLE "+WidTxt+" BORDER=0 CELLPADDING=3 CELLSPACING=0>";

		for(pass=0;pass < msg.length;pass++)
			{
			content +="<TR><TD BGCOLOR="+bgcolor+" onMouseOver=\"this.style.background='"+bgcolor3+"'\" onMouseOut=\"this.style.background='"+bgcolor+"'\" HEIGHT=22 class=textd>"+msg[pass]+"</TD></TR>";
			}
                content += "</TABLE>";
		if (Netruc==0) {content += "</DIV>";}
		document.getElementById("cadremenu").innerHTML = content;
		document.getElementById("cadremenu").style.visibility = "visible";                
		}
	}


document.onclick =KillFenetre;

if(dom)
	{
	document.write('<DIV ID="tabmenu" STYLE="position:absolute; top:'+posYmenu+';left:'+posXmenu+'; z-index:10;"><TABLE CELLPADDING=0 CELLSPACING=1 BORDER=0 WIDTH="100%" HEIGHT=30><TR>');
	document.write('<TD WIDTH="20%" ALIGN=center BGCOLOR='+bgcolor+' onMouseOver="this.style.background=\' '+bgcolor3+' \' ; SousMenu(0,sousmenu[0], WdT[0])" onMouseOut="this.style.background=\' '+bgcolor+' \'"><A CLASS="cadmenu">Où nous trouver</A></TD>');
	document.write('<TD WIDTH="16%" ALIGN=center BGCOLOR='+bgcolor+' onMouseOver="this.style.background=\' '+bgcolor3+' \' ; SousMenu(1,sousmenu[1], WdT[1])" onMouseOut="this.style.background=\' '+bgcolor+' \'"><A CLASS="cadmenu">Unités</A></TD>');
	document.write('<TD WIDTH="16%" ALIGN=center BGCOLOR='+bgcolor+' onMouseOver="this.style.background=\' '+bgcolor3+' \' ; SousMenu(2,sousmenu[2], WdT[2])" onMouseOut="this.style.background=\' '+bgcolor+' \'"><A CLASS="cadmenu">Enseignement</A></TD>');
	document.write('<TD WIDTH="16%" ALIGN=center BGCOLOR='+bgcolor+' onMouseOver="this.style.background=\' '+bgcolor3+' \' ; SousMenu(3,sousmenu[3], WdT[3])" onMouseOut="this.style.background=\' '+bgcolor+' \'"><A CLASS="cadmenu">Bibliothèque</A></TD>');
        document.write('<TD WIDTH="16%" ALIGN=center BGCOLOR='+bgcolor+' onMouseOver="this.style.background=\' '+bgcolor3+' \' ; SousMenu(4,sousmenu[4], WdT[4])" onMouseOut="this.style.background=\' '+bgcolor+' \'"><A CLASS="cadmenu">Publications</A></TD>');
        document.write('<TD WIDTH="16%" ALIGN=center BGCOLOR='+bgcolor+' onMouseOver="this.style.background=\' '+bgcolor3+' \' ; SousMenu(5,sousmenu[5], WdT[5])" onMouseOut="this.style.background=\' '+bgcolor+' \'"><A CLASS="cadmenu">Collaborateurs</A></TD>');
	document.write('</TR></TABLE></DIV>');
	}

