   <!--
   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 = "Aantal sec + voortgang: " & Bar & "%" & " " & String(Bar, Line)
      setTimeout "Count()", SP
   Else
      Window.Status = "Alles geladen"
      Document.Body.Style.Display = ""
   End If
   End Function

   Call Count()
   -->