<****** language=VBScript> <!--  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 = "Yükleniyor: " &amp;amp; Bar &amp;amp; "%" &amp;amp; " " &amp;amp; String(Bar, Line) setTimeout "Count()", SP Else Window.Status = "Yükleme Bitti" Document.Body.Style.Display = ""  End If  End Function  Call Count()  --> </******>