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