Function showHide(listNum)
      Dim whichList
      Set whichList = document.all.tags("UL").item(listNum)
      If whichList.style.display = "none" Then
         whichList.style.display = ""
     Else
         whichList.style.display = "none"
      End If
   End Function
   Sub window_onload()
//* AGGIORNARE SE AGGIUNTI UL
      For counter = 0 to 1
         document.all.tags("UL").item(counter).style.display = "none"
      Next
   End Sub