progress bar

--------------------------------------------------------------------------------

Hi all,

Sorry for posting so much code but can any one tell me how to incorporate this progress bar :

'Count progress indicators
' - percent and total read, total bytes, etc.
Dim PercBytesRead, PercentRest, BytesRead, TotalBytes
Dim UploadTime, RestTime, TransferRate
BytesRead = Form.BytesRead
TotalBytes = Form.TotalBytes

If TotalBytes>0 Then
'upload started.
PercBytesRead = Int(100*BytesRead/TotalBytes)
PercentRest = 100-PercBytesRead

If Form.ReadTime>0 Then TransferRate = BytesRead / Form.ReadTime
If TransferRate>0 Then RestTime = FormatTime((TotalBytes-BytesRead) / TransferRate)
TransferRate = FormatSize(1000 * TransferRate)
Else
'upload not started.
RestTime = "?"
PercBytesRead = 0
PercentRest = 100
TransferRate = "?"
End If


into this:

<%
Dim titlepage
Dim alert
Dim kindoffile
Dim sizeoffile
Dim pageaction

If Request.QueryString("tipo") = "images" Then
titlepage = strLangAltAddCodeUploadIMG
alert = strLangAddCodeUploadIMG
kindoffile = imageuploadext
sizeoffile = imageuploadsize
pageaction = "add_image.asp"
Else
titlepage = strLangAltAddCodeUploadFile
alert = strLangAddCodeUploadFile
kindoffile = fileuploadext
sizeoffile = fileuploadsize
pageaction = "add_file.asp"
End If
%>
<!--#include file="include/2metatag.asp" -->
<script language="javascript" type="text/javascript">
<!--//
function Controlla(){
if (document.form_upload.blob.value==""){
alert("<% = alert %>");
return false;
}
return true;
}
//-->
</script>
</head>
<body>
<br />
<table width="95%" border="0" cellspacing="0" cellpadding="1" align="center" >
<tr> <td align="center" height="17"><font class="title"><% = UCase(titlepage) %></font></td></tr>
<tr><td align="center" height="39"><a href="javascriptnclick=window.close()"><% = strLangSelectCloseWindow %></a></td></tr>
</table>
<form method="POST" enctype="multipart/form-data" action="<% = pageaction %>" name="form_upload" language="javascript" onSubmit="return Controlla();">
<table width="95%" border="0" cellspacing="0" cellpadding="0" class="tablemenu" align="center" bgcolor="#ffffff">
<tr> <td>&nbsp;</td></tr>
<tr> <td align="center"> <input type="file" name="blob" size="25" class="form" /> </td></tr>
<tr> <td align="center">&nbsp;</td></tr>
<tr> <td align="center">(<% = strLangUploadErrorKindOfFile %>: <% = kindoffile %> )</td></tr>
<tr> <td align="center">&nbsp;</td></tr>
<tr> <td align="center"><input type="hidden" name="strMode" value="<% =Request.QueryString("strMode")%>" /><input type="hidden" name="referr" value="<% =Request.QueryString("referr")%>" /></td></tr>
<tr> <td align="center">&nbsp;</td></tr>
<tr> <td align="center"><input type="submit" name="enter" value=" <% = titlepage %> " class="form" /></td></tr>
<tr> <td>&nbsp;</td></tr>
<tr> <td>&nbsp;</td></tr>
</table>
</form>
<table width="95%" border="0" cellspacing="0" cellpadding="1" align="center">
<tr><td align="center" height="39"><a href="javascriptnclick=window.close()"><% = strLangSelectCloseWindow %></a></td></tr>
</table>
</body>
</html>


Once more sorry for all the code but I need to sort this out quickly.
Thanks,