var IM = "" + parent.Left_Menu.location
var LS = IM.length
var Codice = IM.charAt(LS-1)
switch (Codice)
{
case "1":
foldersTree = gFld("<i>Indice</i>", "")
	aux1 = insFld(foldersTree, gFld("IHAD Pensiero", ""))
	insDoc(aux1, gLnk(2, "Italiano", "Ed/ED_Italiano.html"))
 	insDoc(aux1, gLnk(2, "Inglese", "Ed/ED_Inglese.html"))		
	
	aux1 = insFld(foldersTree, gFld("Editoriale", ""))
	insDoc(aux1, gLnk(2, "Numero 13", "Ed/ED_13.html"))
break;

case "2":
foldersTree = gFld("<i>Indice</i>", "")
insDoc(foldersTree, gLnk(2, "Giuda L.A.", "Rg/Guida_LA.html"))
insDoc(foldersTree, gLnk(2, "Alaska 2002", "Rg/Alaska2002.html"))

break;

case "3":
foldersTree = gFld("<i>Indice</i>", "")

	insDoc(foldersTree, gLnk(2, "L'amore", "Po/poesia1.html"))
	insDoc(foldersTree, gLnk(2, "Ad Occhi Chiusi", "Po/poesia2.html"))
	insDoc(foldersTree, gLnk(2, "Cose", "Po/poesia3.html"))
	aux1 = insFld(foldersTree, gFld("Poesie D'autore", ""))
	insDoc(aux1, gLnk(2, "Catullo", "Po/poesia4.html"))
	insDoc(aux1, gLnk(2, "Jacques Prevèrt", "Po/poesia5.html"))
	insDoc(aux1, gLnk(2, "Pablo Neruda", "Po/poesia6.html"))
	insDoc(aux1, gLnk(2, "Nazim Hikmet", "Po/poesia7.html"))
break;

case "4":
foldersTree = gFld("<i>Indice</i>", "")
	aux1 = insFld(foldersTree, gFld("Racconti", ""))
	insDoc(aux1, gLnk(2, "<img src='Images/Ra1.jpg'>", "Ra/Ra1.html"))
 	insDoc(aux1, gLnk(2, "<img src='Images/Ra2.jpg'>", "Ra/Ra2.html"))	
	
	aux2 = insFld(foldersTree, gFld("Iniziative...", ""))
insDoc(aux2, gLnk(2, "<img src='Images/Ra4.jpg'>", "Ra/Iniziativa.html"))
	insDoc(aux2, gLnk(2, "<img src='Images/Ra3.jpg'>", "Ra/Sguardo.html"))
break;

case "5":
foldersTree = gFld("<i>Indice</i>", "")
	aux1 = insFld(foldersTree, gFld("Free Promo", ""))
	insDoc(aux1, gLnk(2, "<img src='Images/Malecon.jpg'>", "FZ/Malecon.htm"))
	aux2 = insFld(foldersTree, gFld("Free Humor", ""))
	insDoc(aux2, gLnk(2, "Freddure & Co", "FZ/Comix1.html"))
	insDoc(aux2, gLnk(2, "Avvocati...", "FZ/Disorder.html"))
	insDoc(aux2, gLnk(2, "Strane Invenzioni", "FZ/Invenzioni.html"))

	
	aux3 = insFld(foldersTree, gFld("Free Mix", ""))
	insDoc(aux3, gLnk(2, "Non segno più?", "FZ/Lucarelli.html"))
	insDoc(aux3, gLnk(2, "La Scelta", "FZ/Scelta.html"))
	insDoc(aux3, gLnk(2, "M.L.King", "FZ/Mlk.html"))
	
		
	aux3 = insFld(foldersTree, gFld("I Have A...", ""))
	
	Love = insFld(aux3, gFld("Love Dream",""))
	insDoc(Love, gLnk(2, "What is?", "FZ/LoveDream.html"))
	
	Poli = insFld(aux3, gFld("Political Dream",""))
	insDoc(Poli, gLnk(2, "What Is?", "FZ/Political.html"))
	insDoc(Poli, gLnk(2, "Né buoni...", "FZ/Cattivi.html"))
	insDoc(Poli, gLnk(2, "Il Tema", "FZ/Tema.html"))
	
break;
BuoneNuove.html
case "6":
foldersTree = gFld("<i>Indice</i>", "")
insDoc(foldersTree, gLnk(2, "Introduzione", "Bn/Intro.html"))
aux1 = insFld(foldersTree, gFld("Editoriale", ""))
	insDoc(aux1, gLnk(2, "Numero 139", "Bn/Editoriale.html"))
aux2 = insFld(foldersTree, gFld("Buone Nuove", ""))
	insDoc(aux2, gLnk(2, "Timor Est", "Bn/BuoneNuove.html?1"))
 	insDoc(aux2, gLnk(2, "Cina", "Bn/BuoneNuove.html?2"))
	insDoc(aux2, gLnk(2, "Guatemala", "Bn/BuoneNuove.html?3"))
 	insDoc(aux2, gLnk(2, "Lo Spazio", "Bn/BuoneNuove.html?4"))
	insDoc(aux2, gLnk(2, "Algeria", "Bn/BuoneNuove.html?5"))
 	insDoc(aux2, gLnk(2, "USA", "Bn/BuoneNuove.html?6"))
	insDoc(aux2, gLnk(2, "Unione Europea", "Bn/BuoneNuove.html?7"))
	insDoc(aux2, gLnk(2, "Internet", "Bn/BuoneNuove.html?8"))
aux3 = insFld(foldersTree, gFld("Buone Nuove Italia", ""))
	insDoc(aux3, gLnk(2, "Italia", "Bn/BuoneNuove.html?9"))
 	insDoc(aux3, gLnk(2, "Italia", "Bn/BuoneNuove.html?A"))			
 	insDoc(aux3, gLnk(2, "Italia", "Bn/BuoneNuove.html?B"))			
 	insDoc(aux3, gLnk(2, "Italia", "Bn/BuoneNuove.html?C"))			
break;

case "7":
foldersTree = gFld("<i>Indice</i>", "")
	insDoc(foldersTree, gLnk(2, "Interni", "Li/LinkInterni.html"))
	insDoc(foldersTree, gLnk(2, "Esterni", "Li/LinkEsterni.html"))
break;

case "8":
foldersTree = gFld("<i>Indice</i>", "")
		insDoc(foldersTree, gLnk(2, "Finalino N°13", "Fi/Finalino13.html"))

break;
default:
foldersTree = gFld("<i><font color='white'><strong>Progetto I.H.A.D.</strong></font></i>", "")
	
	insDoc(foldersTree, gLnk(2, "Redazione I.H.A.D.", "mailto:redazione.ihad@inwind.it"))
	insDoc(foldersTree, gLnk(2, "Webmaster", "mailto:l.velluti@inwind.it"))
break;

}