function clickAction(thisNode){
if (selectedNode) 
	{
	if (!selectedNode.iconImg)
	{
	if (bV == 2) selectedNode.iconImg = selectedNode.navObj.document.images["nodeIcon"+selectedNode.id]
	else if (bV == 1 || doc.images) selectedNode.iconImg = doc.images["nodeIcon"+selectedNode.id]
	}	
	selectedNode.iconImg.src = selectedNode.nodeIcon("",iNA)
	if (bV == 1) {
	if (doc.all["text" + selectedNode.id]) {
		selectedChild = doc.all["text"+selectedNode.id]
		selectedChild.style.fontStyle = "italic"
		selectedChild.style.backgroundColor = "transparent"
		selectedChild.style.color = document.vlinkColor
		selectedChild.style.fontWeight = "normal"
		selectedChild.style.fontStyle = "normal"
	}
	}
	}
	selectedNode = thisNode
	if (!selectedNode.iconImg)
	{
	if (bV == 2) selectedNode.iconImg = selectedNode.navObj.document.images["nodeIcon"+selectedNode.id]
	else if (bV == 1 || doc.images) selectedNode.iconImg = doc.images["nodeIcon"+selectedNode.id]
	}	
	thisNode.iconImg.src = thisNode.nodeIcon("",iNA)
	if (bV == 1) 
	{
	if (!selectedNode.navObj) selectedNode.navObj = doc.all["node" + selectedNode.id]
	if (doc.all["text" + selectedNode.id]) {
		selectedChild = doc.all["text"+selectedNode.id]
	selectedChild.style.fontStyle = "italic"
	selectedChild.style.backgroundColor = "darkblue"
	selectedChild.style.color = "white"
	selectedChild.style.fontWeight = "normal"
	}
	}
}

iconFolder = "./images/" 
ftFolder = "./"
fT = gFld("Home", "../index.html")
  a$ = insDoc(fT, gLnk("Mythen und Fakten","../a$/index.html"))
  b$ = insFld(fT, gFld("Wissens-Wertes","../b$/index.html"))
    bb1 = insFld(b$,gFld("Kopfschmerzarten","../b$/bb1/index.html"))
	     insDoc(bb1, gLnk("Krankheit?",
						 "../b$/bb1/krankheit01.html"))
	     insDoc(bb1, gLnk("Symptom?",
						 "../b$/bb1/symptom01.html"))
   
    bb2 = insFld(b$,gFld("Diagnose-Detektiv","../b$/bb2/index.html"))
	  bb21 = insFld(bb2,gFld("Alarmsignale","../b$/bb2/bb21/index.html"))
        insDoc(bb21, gLnk("Schmerzprofil",
						  "../b$/bb2/bb21/schmerzprofil01.html"))
        insDoc(bb21, gLnk("Begleiterscheinungen",
						  "../b$/bb2/bb21/begleiterscheinungen01.html"))   
      bb22 = insFld(bb2,gFld("Unterscheidungskriterien","../b$/bb2/bb22/index.html"))
	    insDoc(bb22, gLnk("Schmerzprofil",
						  "../b$/bb2/bb22/schmerzprofil01.html"))
        insDoc(bb22, gLnk("Begleiterscheinungen",
						  "../b$/bb2/bb22/begleiterscheinungen01.html"))
		insDoc(bb22, gLnk("Spezielles",
 					      "../b$/bb2/bb22/spezielles01.html"))  
      bb23 = insFld(bb2,gFld("Kopfweh-Schnelltest","../b$/bb2/bb23/index.html")) 	
	    insDoc(bb23, gLnk("Migräne-Test", 
						   "../b$/bb2/bb23/migraene-test01.html")) 
	    insDoc(bb23, gLnk("Spannungstyp-Test", 
						   "../b$/bb2/bb23/spannungstyp-test01.html"))
	
	bb3 = insFld(b$,gFld("Kopfweh-Ursachen","../b$/bb3/index.html"))
 	 bb31 = insDoc(bb3,gLnk("Migräne",
						     "../b$/bb3/migraene01.html")) 	
	 bb31 = insDoc(bb3, gLnk("Spannungstyp", 
						     "../b$/bb3/spannungstyp01.html")) 
	 bb31 = insDoc(bb3, gLnk("Cluster", 
						     "../b$/bb3/cluster01.html"))
	 bb31 = insDoc(bb3, gLnk("Pillen-Kopfweh", 
						     "../b$/bb3/pillenkopfweh01.html"))
	 
	bb4 = insFld(b$,gFld("Kopfweh-Auslöser","../b$/bb4/index.html"))
	 bbb41 = insDoc(bb4,gLnk("Migräne",
						     "../b$/bb4/migraene01.html")) 	
	 bbb41 = insDoc(bb4, gLnk("Spannungstyp", 
						     "../b$/bb4/spannungstyp01.html")) 
	 bbb41 = insDoc(bb4, gLnk("Cluster", 
						     "../b$/bb4/cluster01.html"))
	 bbb41 = insDoc(bb4, gLnk("Pillen-Kopfweh", 
						     "../b$/bb4/medikamenten01.html"))
     
  c$ = insFld(fT, gFld("Therapie","../c$/index.html"))
  cc1 = insFld(c$,gFld("Akut","../c$/cc1/index.html"))
	 cc11 = insDoc(cc1,gLnk("Migräne",
						     "../c$/cc1/migraene01.html")) 	
	 cc12 = insDoc(cc1, gLnk("Migräne mit Aura", 
						     "../c$/cc1/migraene-aura01.html")) 
	 cc13 = insDoc(cc1, gLnk("Spannungstyp", 
						     "../c$/cc1/spannungstyp01.html")) 
	 cc13 = insDoc(cc1, gLnk("Cluster", 
						     "../c$/cc1/cluster01.html"))
	 
  cc2 = insFld(c$,gFld("Vorbeugend","../c$/cc2/index.html"))
	 cc21 = insDoc(cc2,gLnk("Migräne",
						     "../c$/cc2/migraene01.html"))
	 cc22 = insDoc(cc2, gLnk("Migräne mit Aura", 
						     "../c$/cc2/migraene-aura01.html"))
	 cc23 = insDoc(cc2, gLnk("Menstruelle Migräne", 
						     "../c$/cc2/menstruelle-migraene01.html"))
	 cc24 = insDoc(cc2, gLnk("Spannungstyp", 
						     "../c$/cc2/spannungstyp01.html")) 
	 cc25 = insDoc(cc2, gLnk("Cluster", 
						     "../c$/cc2/cluster01.html"))
	 
   cc3 = insFld(c$,gFld("Spezialfälle","../c$/cc3/index.html"))
	 cc31 = insDoc(cc3, gLnk("Pillen-Kopfweh", 
						     "../c$/cc3/pillen-kopfweh01.html")) 
	 
	 cc33 = insDoc(cc3, gLnk("Kinder und Migräne", 
						     "../c$/cc3/kinder-und-migraene01.html"))
	 	 
  d$ = insFld(fT, gFld("Alternativ statt alternaiv","../d$/index.html")) 
   dd1 = insDoc(d$, gLnk("Quacksalber-Test","../d$/dd1/index.html"))
   dd3 = insFld(d$,gFld ("Sinn-Voll","../d$/dd3/index.html"))                                              
    dd31 = insFld(dd3,gFld ("Entspannung","../d$/dd3/dd31/index.html"))                              
      dd311 = insDoc(dd31,gLnk("Autogenes Training", 
						"../d$/dd3/dd31/autogenes-training01.html"))                              
      dd312 = insDoc(dd31,gLnk("Muskelrelaxion", 
						 "../d$/dd3/dd31/muskelrelaxion01.html"))                                
	  dd313 = insDoc(dd31,gLnk("Biofeedback", 
						"../d$/dd3/dd31/biofeedback01.html"))                            
	   dd314 = insDoc(dd31,gLnk("Feldenkrais", 
						"../d$/dd3/dd31/feldenkrais01.html"))                              
	   dd315 = insDoc(dd31,gLnk("Tai chi cuan", 
						"../d$/dd3/dd31/tai-chi01.html"))                                 
	   dd316 = insDoc(dd31,gLnk("Selbstmanagement", 
						"../d$/dd3/dd31/selbstmanagement01.html"))                        
	  
	dd32 = insFld(dd3,gFld ("Therapien","../d$/dd3/dd32/index.html"))                             
	  dd321 = insDoc(dd32,gLnk("Akupunktur", 
						"../d$/dd3/dd32/akupunktur01.html"))                             
	  dd322 = insDoc(dd32,gLnk("Psychotherapie", 
						"../d$/dd3/dd32/psychotherapie01.html"))                             
	   dd323 = insDoc(dd32,gLnk("Halswirbelsäule", 
						"../d$/dd3/dd32/halswirbelsaeule01.html"))                             
	 	
   dd4 = insFld(d$,gFld ("Unsinn-Voll","../d$/dd4/index.html"))                             
	  
      dd41 = insDoc(dd4,gLnk("Operationen", 
						"../d$/dd4/operationen01.html"))                             
	  dd42 = insDoc(dd4,gLnk("Widersprüchlich", 
						"../d$/dd4/widerspruechlich01.html"))                              
	  dd43 = insFld(dd4,gFld("Geldstaubsaugerei","../d$/dd4/dd43/index.html"))                                
	  
	    dd431 = insDoc(dd43,gLnk("Magnetfeld", 
						 "../d$/dd4/dd43/magnetfeld01.html"))                               
	    dd432 = insDoc(dd43,gLnk("Bioresonanz", 
						 "../d$/dd4/dd43/bioresonanz01.html"))                            
	    dd433 = insDoc(dd43,gLnk("Psychophonie", 
						 "../d$/dd4/dd43/psychophonie01.html"))                             
	   
   dd5 = insFld(fT,gFld("Tipps & Ratschläge","../d$/inarbeit.html"))                               
	  
    dd51 = insDoc(dd5,gLnk("Expertentipps", 
					  	"../d$/inarbeit.html"))   
	dd52 = insDoc(dd5,gLnk("Tipps im Alltag", 
					  	"../d$/inarbeit.html"))                               
	  dd53 = insDoc(dd5,gLnk("Checklisten", 
					  	"../g$/gg8/index.html"))                              
	   
  e$ = insFld(fT, gFld("Hilfe zur Selbsthilfe","../e$/inarbeit.html")) 
    ee3 = insFld(e$,gFld ("Selbsthilfe-Methoden","../e$/inarbeit.html"))                            
	  
      ee31 = insDoc(ee3,gLnk("Soforthilfe", 
						"../e$/inarbeit.html"))                            
	  ee32 = insDoc(ee3,gLnk("Vorbeugend", 
						"../e$/inarbeit.html"))                           
	  ee33 = insDoc(ee3,gLnk("Selbsthilfegruppen", 
						"../e$/ee3/ee33/index.html"))                           
	  
	ee4 = insFld(e$,gFld("Tipps & Ratschläge","../e$/inarbeit.html"))  
	  ee41 = insDoc(ee4,gLnk("Expertentipps", 
						"../e$/inarbeit.html"))                            
	   ee42 = insDoc(ee4,gLnk("Ratschläge", 
						"../e$/inarbeit.html"))                           
	   ee43 = insDoc(ee4,gLnk("Checklisten", 
						"../g$/gg8/index.html"))                        
	  
	ee5 = insFld(e$,gFld ("Kurse","../e$/inarbeit.html"))  
      ee51 = insDoc(ee5,gLnk("Erwachsene", 
					  "../e$/inarbeit.html"))                           
	   ee52 = insDoc(ee5,gLnk("Kinder", 
					"../e$/inarbeit.html"))                            
  
  i$ = insFld(fT,gFld("Members","../i$/inarbeit.html"))                            
   ii1 = insDoc(i$,gLnk("Vorteile","../i$/inarbeit.html"))                            
   ii2 = insFld(i$,gFld("Info-Materialen/Downloads","../i$/inarbeit.html"))                           
	ii21 = insDoc(ii2,gLnk("Querkopf","../i$/inarbeit.html"))                             
	ii22 = insDoc(ii2,gLnk("Kopfwehkalender","../i$/inarbeit.html"))                            
	ii23 = insDoc(ii2,gLnk("Kinderkopfwehkalender","../i$/inarbeit.html"))                              
	ii24 = insFld(ii2,gFld ("Verschiedene Ratgeber","../i$/inarbeit.html"))                            
	 ii241 = insDoc(ii24,gLnk("Patientenratgeber","../i$/inarbeit.html"))                            
	 ii241 = insDoc(ii24,gLnk("Elternratgeber","../i$/inarbeit.html"))                             
	 ii241 = insDoc(ii24,gLnk("Lehrerratgeber","../i$/inarbeit.html"))                           
	 ii25 = insDoc(ii2,gLnk("DVD-Video","../i$/inarbeit.html"))                             
   ii3 = insDoc(i$,gLnk("Persönliche Beratung","../i$/inarbeit.html"))                               
   ii4 = insDoc(i$,gLnk("Jahresbericht 2001","../i$/inarbeit.html"))                              
   ii5 = insDoc(i$,gLnk("Termin Jahresversammlung 2003","../i$/inarbeit.html"))                             
	
  f$ = insFld(fT, gFld("Warum Mitglied werden","../f$/inarbeit.html"))                             
	  ff2 = insDoc(f$, gLnk("Vorteile","../f$/inarbeit.html"))                             
	  ff3 = insDoc(f$, gLnk("Was tun wir","../f$/inarbeit.html"))                             
	  ff5 = insDoc(f$, gLnk("Vereinsstatuten","../f$/inarbeit.html")) 

  g$ = insFld(fT, gFld("(NEU)Info-Materialen/Downloads","../g$/index.html"))                             
	  gg1 = insDoc(g$, gLnk("Querkopf","../g$/gg1/index.html"))                             
	  gg2 = insDoc(g$, gLnk("Patienten-Ratgeber","../g$/gg2/index.html"))                               
	  gg3 = insDoc(g$, gLnk("Eltern/Lehrer-Ratgeber","../g$/gg3/index.html"))                   
	  gg4 = insDoc(g$, gLnk("Apotheker-Ratgeber","../g$/gg4/index.html"))                              
	  gg5 = insDoc(g$, gLnk("Kopfwehkalender Kinder","../g$/gg5/index.html"))                             
	  gg6 = insDoc(g$, gLnk("Kopfwehkalender Erwachsene","../g$/gg6/index.html"))  
	  gg7 = insDoc(g$, gLnk("DVD-Video","../g$/gg7/index.html"))                            
	  gg8 = insDoc(g$, gLnk("Check-Listen","../g$/gg8/index.html"))
	  gg9 = insDoc(g$, gLnk("Therapie-Empfehlungen SKG","../g$/gg9/index.html"))
	 
  h$ = insFld(fT,gFld("Aktuelle Themen","../h$/index.html")) 
   hh1 = insDoc(h$,gLnk("Bauernfängerei","../h$/inarbeit.html"))                             
	   hh2 = insDoc(h$,gLnk("Pillen-Kopfweh","../h$/inarbeit.html"))                              
	    hh3 = insDoc(h$,gLnk("Kinder & Migräne","../h$/inarbeit.html"))                             
	   hh4 = insDoc(h$,gLnk("Hormone & Migräne","../h$/inarbeit.html"))                            
	  
  o$ = insFld(fT,gFld("Helfen Sie mit","../o$/inarbeit.html"))                             
	  
   oo1 = insDoc(o$,gLnk("aktive Mitarbeit","../h$/inarbeit.html"))                             
	  
   oo2 = insDoc(o$,gLnk("Studien","../h$/inarbeit.html"))                              
	  
   oo3 = insDoc(o$,gLnk("Mitglied werden","../h$/inarbeit.html"))                            
	  
   
  j$ = insDoc(fT,gLnk("Hotline/Kopfwehtelefon","../j$/inarbeit.html"))  
  
  m$ = insDoc(fT,gLnk("Häufig gestellte Fragen(FAQ)","../m$/inarbeit.html")) 
  
 

  k$ = insFld(fT,gFld("Links & Buchtipps","../k$/index.html"))                             
	  
   kk1 = insDoc(k$,gLnk("Internetlinks","../k$/index.html"))                             
	  
   kk2 = insDoc(k$,gLnk("Buch-Tipps","../k$/index.html"))