<%@EnableSessionState=False%>
<%
Response.Expires = -1
PID = Request("PID")
TimeO = Request("to")
Set UploadProgress = Server.CreateObject("Persits.UploadProgress")
format = "%TUploading files...%t%B3%T%R left (at %S/sec) %r%U/%V(%P)%l%t"
bar_content = UploadProgress.FormatProgress(PID, TimeO, "#00007F", format)
If "" = bar_content Then
%>
Upload Finished
<%
Else ' Not finished yet
%>
Uploading Files...
<% = bar_content %>
<% End If %>