
   <!--
   Dim Bar, Line, SP
   Bar = 0 
   Line = "|"
   sP = 100
   Function Window_onLoad()
     Bar = 95
     sP = 10
   END Function
   Function Count()
   If Bar < 100 Then
      Bar = Bar + 1
      Window.Status = "Prego attendere, caricamento pagina: " & Bar & "%" & " " & String(Bar, Line)
      setTimeout "Count()", SP
   Else
      Window.Status = "Šwww.romaincanto.com - Associazione Musicale ROMAinCANTO "
      Document.Body.Style.Display = "" 
   End If 
   End Function
   Call Count()
   -->