Ładowanie strony +pasek stanu

[Sumer]

Witam,
jak zrobić, aby podczas wczytywania strony na pasku stanu można było zobaczyć ile procent strony zostało już wczytane, a po załadowaniu całej strany pojawił sie napis na stałe.
Mam nadzieję że zrozumiecie o co mi chodzi.

Pozdrawiam

[Sumer]

Chodzi mi o coś takiego jak widać w pasku stanu podczas ładowania strony na http://kataloog.info/

[azamo]

Chyba nie problem sprawdzić w kodzie?
Prawie na samej górze:

Kod: Zaznacz cały

<SCRIPT type="text/vbscript" language="VBScript">
   <!--
   Dim Bar, Line, SP
   Bar = 0
   Line = "|"
   sP = 200

   Function Window_onLoad()
     Bar = 95
     sP = 10
   END Function

   Function Count()
   If Bar < 100 Then
      Bar = Bar + 1
      Window.Status = "Postep ladowania: " & Bar & "%" & " " & String(Bar, Line)
      setTimeout "Count()", SP
   Else
      Window.Status = "Witamy w Katalogu Ciekawych Stron"
      Document.Body.Style.Display = ""
   End If
   End Function

   Call Count()
-->
</SCRIPT>

Tyle że przynajmniej u mnie w Firefoxie nie działa