dim aMenu(15,15)



Dim Sti
menuNr=0
MenuIndhold
Dim aSlogan(21), sNr
aSlogan(1)="Brug &quotgirafsprog&quot  og nå dine mål"
aSlogan(2)="Det skal være sjovt at være til - det giver resultater for alle"
aSlogan(3)="Tænk med hjertet - giver bedre trivsel"
aSlogan(4)="Opnå dine mål - gennem bedre trivsel"
aSlogan(5)="Positiv medarbejderudvikling betaler sig"
aSlogan(6)="Brug tankens kraft - til et bedre liv"
aSlogan(7)="Vi arbejder hårdt for bedre trivsel for alle"
aSlogan(8)="Brug &quotbolden&quot og få det sjovt"
aSlogan(9)="Vi har kurser - der rykker"
aSlogan(10)="Bedre indlæring - gennem sjov motion"

'setInterval "slogan(sNr)", 8000


Private Function danMenu(mNr)
on Error resume next
menuNr=mNr
	Doc=""
	Doc=Doc & "<TABLE>"
	'if mnr>0 then  Doc=Doc &  "<TR><TD> <A href='index.htm' target=_self onClick='danMenu 0'>Til forsiden"
		
	for a= 1 to UBound(aMenu,2)
		if len(aMenu(mNr,a)(0))>0 then 
			Doc=Doc &  "<TR><TD >"
			Doc=Doc &  "<A id='SubMnu" & Mnr & a &  "'  href='" & Sti & aMenu(Mnr,a)(1) & "' onClick='knapSubMenu()'>" &  aMenu(Mnr,a)(0) & "</A>"
		Else
			exit for		
		end if		
	Next
	
	If Not(mNr=5) Then Doc=Doc &  "<TR><TD> <A href='doc/om/kontakt.htm' target='FraIndhold'>Kontakt os</A>"
	Doc=Doc &  "</TR></TABLE>"
	'MsgBox doc
	danMenu=Doc
	
End Function

private function danHoMenu()
	Doc=""
	mNr=0
	for a= 0 to UBound(aMenu,2)
		if len(aMenu(mNr,a)(0))>0 then 
			Doc=Doc &  "<TD>"
			Doc=Doc &  "<A id='Mnu" & a+1 & "' href='" & Sti & aMenu(Mnr,a)(1) & "' onClick='knapHoMenu()'>" &  aMenu(Mnr,a)(0) & "</A>"
		Else
			exit for		
		end if		
	Next
	'MsgBox doc
	danHoMenu=Doc
End Function

Sub MenuIndhold
	'If document.location.host= "localhost" or document.location.host= "spectra" then 
		Sti=""
		'Sti="../../"
		'MsgBox "er localhost"
	'Else
		'Sti="../../../../../"  'document.location.host
	'End If
	
	'Hovedmenu
	aMenu(0,0)=array("Kurser [Foreninger]","doc/kurser1/intro.htm' onClick='menu 1'  target='FraIndhold")
	aMenu(0,1)=array("Kurser [Erhverv]","doc/kurser2/intro.htm' onClick='menu 2'  target='FraIndhold")
	aMenu(0,2)=array("Foredrag & peptalks","doc/foredrag/intro.htm' onClick='menu 3' target='FraIndhold")
	aMenu(0,3)=array("Motion, sport & leg","doc/underholdning/intro.htm' onClick='menu 4' target='FraIndhold")
	aMenu(0,4)=array("Om os","doc/om/intro.htm' onClick='menu 5' target='FraIndhold")
	aMenu(0,5)=array("","")

					
	'kurser-foreninger
	aMenu(1,0)=array("Introduktion", "doc/kurser1/intro.htm' target='FraIndhold")
	aMenu(1,2)=array("Find nøglen<BR>til succes","doc/kurser1/1.htm' target='FraIndhold")
	aMenu(1,3)=array("Motivation &<BR>Trivsel","doc/kurser1/2.htm' target='FraIndhold")
	aMenu(1,4)=array("Dialog / <BR>samarbejde","doc/kurser1/3.htm' target='FraIndhold")
	aMenu(1,5)=array("Nå jeres mål<BR>gennem trivsel","doc/kurser1/4.htm' target='FraIndhold")
	aMenu(1,6)=array("Skab et <BR>vinderhold","doc/kurser1/5.htm' target='FraIndhold")
	aMenu(1,7)=array("","")
	
	
	'kurser-erhverv
	aMenu(2,0)=array("Introduktion", "doc/kurser2/intro.htm' target='FraIndhold")
	aMenu(2,1)=array("Find nøglen<BR>til succes","doc/kurser2/1.htm' target='FraIndhold")
	aMenu(2,2)=array("Motivation &<BR>Trivsel","doc/kurser2/2.htm' target='FraIndhold")
	aMenu(2,3)=array("Tale &<BR>præsentation","doc/kurser2/3.htm' target='FraIndhold")
	aMenu(2,4)=array("Nå firmaets mål<BR>gennem trivsel","doc/kurser2/4.htm' target='FraIndhold")
	aMenu(2,5)=array("Team-building<BR>for alle","doc/kurser2/5.htm' target='FraIndhold")
	aMenu(2,6)=array("","")
	
	'foredrag
	aMenu(3,0)=array("Introduktion", "doc/foredrag/intro.htm' target='FraIndhold")
	aMenu(3,1)=array("Større overskud<BRgennem trivsel","doc/foredrag/1.htm' target='FraIndhold")
	aMenu(3,2)=array("Positive tanker<BR>giver resultater for alle","doc/foredrag/2.htm' target='FraIndhold")
	aMenu(3,3)=array("Skal dit firma / forening<BR>have succes?","doc/foredrag/3.htm' target='FraIndhold")
	aMenu(3,4)=array("Mandskabspleje<BR>i god forening","doc/foredrag/4.htm' target='FraIndhold")
	aMenu(3,5)=array("Personalepleje<BR>der virker omgående","doc/foredrag/5.htm' target='FraIndhold")
	aMenu(3,6)=array("Brug bolden<BR>og få det sjovt","doc/foredrag/6.htm' target='FraIndhold")
	aMenu(3,7)=array("Find nøglen<BR>til succes","doc/foredrag/7.htm' target='FraIndhold")
	aMenu(3,8)=array("","")
	
	'underholdning
	aMenu(4,0)=array("Introduktion", "doc/underholdning/intro.htm' target='FraIndhold")
	aMenu(4,1)=array("Stjerneløb for alle","doc/underholdning/1.htm' target='FraIndhold")
	aMenu(4,2)=array("Sjov sport &<BR> leg dag","doc/underholdning/2.htm' target='FraIndhold")
	aMenu(4,3)=array("Motion-samvær-<BR>natur","doc/underholdning/3.htm' target='FraIndhold")
	aMenu(4,4)=array("Store legedag<BR>kursus for pædagoger","doc/underholdning/4.htm' target='FraIndhold")
	aMenu(4,5)=array("","")
	
	'om
	aMenu(5,0)=array("Introduktion", "doc/om/intro.htm' target='FraIndhold")
	aMenu(5,1)=array("Kontakt os","doc/om/kontakt.htm' target='FraIndhold")
	aMenu(5,2)=array("Referencer","doc/om/referencer.htm' target='FraIndhold")
	aMenu(5,3	)=array("","")
		
End sub





function knapHoMenu()
	on error resume next
	subMenu.style.visibility="visible"
	btnHome.style.visibility="visible"
	for N= 1 to 16
	document.all("mnu" & N).style.background="navy"
	'document.all("mnu" & N).style.color="#fff8dc"
	document.all("mnu" & N).style.color="white"
	
	Next
    window.event.srcElement.style.color= "white"
    window.event.srcElement.style.background= "forestgreen"
End Function



function knapSubMenu()
	on error resume next
	for N= 1 to 60
		document.all("submnu" & N).style.background="navy"
		'document.all("submnu" & N).style.color="#fff8dc"
		document.all("submnu" & N).style.color="white"
	Next
    window.event.srcElement.style.color= "white"
    window.event.srcElement.style.background= "forestgreen"
End Function