<HTML>
<HEAD>
<script language
='javascript'><!--//
myFloater = window.open('statuspage.html','myWindow','scrollbars=no,
status=no,width=350,height=100');
// THIS CLIENT FUNCTION WRITES TEXT INTO
// THE CHILD WINDOW, A * IS WRITTEN EACH
// TIME IT'S CALLED.
function increment(runOnce) {
if (runOnce == 1) {
myFloater.document.write ("<font face='Verdana' size = 3>
LOADING:</font><br>");
}
else {
myFloater.document.write ("<font face='Verdana' size = 5>*<
/font>");
}
}
//-->
</script>
</head>
<body>
<%
' THIS IS THE SIMULATION OF AN
' AS SCRIPT THAT TAKES A LONG TIME
' TO EXECUTE. EVERY 700 COUNTS, IT
' UPDATES THE STATUS WINDOW
Dim counter
counter = 0
splitVal = 700
for i = 1 to 10000
if (i mod splitVal) = 0 then
if counter = 0 then
response.write "<script>increment(1)</script>" & vbCrLf
counter = 999
else
response.write "<script>increment(0)</script>" & vbCrLf
end if
end if
next
%>
</body>
</html>