<%@ import namespace="System.Threading"%>
<script>
function ShowProgress(Current,Total)
{
document.getElementById("ProgDiv").innerHTML=(Current/Total)*100+"%"
}
</script>
<body>
<div id="ProgDiv"></div>
</body>
<script runat="server">
Shared waitTime As New TimeSpan(0, 0, 1)
Dim newThread As New Thread(AddressOf Work)
Shared Sub Work()
Thread.Sleep(waitTime)
End Sub
</script>
<%
dim i as integer
newThread.Start()
for i=1 to 20
%>
<script>ShowProgress(<%=i%>,20)</script>
<%
response.flush()
newThread.sleep(1000)
next
response.write("DONE")
%>