<%@EnableSessionState=False%>
<%ThisPage = "Progress"%>
<!--#include file="TempFolder.asp"-->
<%
	Set FS = server.CreateObject("Scripting.FileSystemObject")
	lista = ""
	'TempFolder = FS.GetSpecialFolder(2)
	TempFolder = getTempFolder()
	TempFileName = TempFolder & "\pu" & Request.QueryString("UploadID") & ".~tmp"
	UploadEnd = false
	if FS.FileExists(TempFileName) then
		do while 1
			err.clear
			on error resume next
			set tmpFile = FS.OpenTextFile(TempFileName, 1)
			if err.number=0 then
				lista = tmpFile.readAll
				tmpFile.close
				on error goto 0
				exit do
			end if
			on error goto 0
		loop
		if Lista<>"" then
			valori = split(lista,vbcrlf)
			if trim(valori(0))="DONE" then
				set tmpFile = FS.OpenTextFile(TempFileName, 2, true)
				tmpFile.write("close")
				tmpFile.close
				UploadEnd = true
				start = -1
				OnLoad = "onLoad=" & chr(34) & "javascript:setTimeout('closeWin()',150)" & chr(34)
			end if
			start = -1
		else
			start = 0
		end if
	end if
	
	Const RefreshTime = 2'Seconds

	if Request.QueryString("UploadID") = "" then 
		response.write "<script language=javascript>top.close()</script>"
	end if
	Server.ScriptTimeout = 1000
	if not UploadEnd then
		response.cachecontrol = "no-cache"
		response.AddHeader "Pragma","no-cache"
	  	response.addheader "Refresh", RefreshTime
	end if
	
if start then 
	
	BytesRead = valori(2)
	TotalBytes = valori(1)

	if TotalBytes>0 then 
		PercBytesRead = int(100*BytesRead/TotalBytes)
		PercentRest = 100-PercBytesRead
	
		if valori(3)>0 then 
			TransferRate = BytesRead / valori(3)
		end if
		if TransferRate>0 then 
			RestTime = FormatTime((TotalBytes-BytesRead) / TransferRate)
		end if
		TransferRate = FormatSize(1000 * TransferRate)
	else
		RestTime = "?"
		PercBytesRead = 0
		PercentRest = 100
		TransferRate = "?"
	end if

	'Create graphics progress bar.
	'The bar is created with blue (TDsread, completted) / blank (TDsRemain, remaining) TD cells.
	Dim TDsread, TDsRemain
	
	select case lcase(request.QueryString("ProgressPage"))
	case lcase("BigBar")
		TDsread = replace(space(0.25*PercBytesRead), " ", "<TD BGColor=blue >�</TD>")
		TDsRemain = replace(space(0.25*PercentRest), " ", "<TD >�</TD>")
		
		Bar = "<Table cellpadding=0 height=20 cellspacing=0 border=1 width=100" & chr(37) & " style='border:1px inset white' ><tr>" & TDsread & TDsRemain & "</tr></table>"

	case lcase("BigBar2")
		TDsread = replace(space(0.25*PercBytesRead), " ", "<TD BGColor=blue >�</TD>")
		TDsRemain = replace(space(0.25*PercentRest), " ", "<TD >�</TD>")
		
		Bar = "<Table cellpadding=0 height=20 cellspacing=2 border=0 width=100" & chr(37) & "  ><tr>" & TDsread & TDsRemain & "</tr></table>"

	case lcase("LittleBar")
		TDsread = replace(space(0.5*PercBytesRead), " ", "<TD BGColor=blue >�</TD>")
	  	TDsRemain = replace(space(0.5*PercentRest), " ", "<TD >�</TD>")
		Bar = "<Table cellpadding=0 height=20 cellspacing=0 border=1 width=100" & chr(37) & " style='border:1px inset white' ><tr>" & TDsread & TDsRemain & "</tr></table>"

	case lcase("LittleBar2")
		TDsread = replace(space(0.5*PercBytesRead), " ", "<TD BGColor=blue >�</TD>")
  		TDsRemain = replace(space(0.5*PercentRest), " ", "<TD >�</TD>")
		Bar = "<Table cellpadding=0 height=20 cellspacing=2 border=0 width=100" & chr(37) & " style='border:1px inset white' ><tr>" & TDsread & TDsRemain & "</tr></table>"
	
	case lcase("Graphics3D"), lcase("Graphics_Cyan_1"), lcase("Graphics_Cyan_2"), lcase("Graphics_Cyan_3"), lcase("Graphics_Orange"), lcase("Graphics_Green"), lcase("Graphics_Blue")
		if lcase(request.QueryString("ProgressPage"))=lcase("Graphics3D") then
			imageBar = "3D_Bar.gif"
		elseif lcase(request.QueryString("ProgressPage"))=lcase("Graphics_Cyan_1") or lcase(request.QueryString("ProgressPage"))=lcase("Graphics_Cyan_2") or lcase(request.QueryString("ProgressPage"))=lcase("Graphics_Cyan_3") then
			imageBar = "Bar_Cyan.gif"
		elseif lcase(request.QueryString("ProgressPage"))=lcase("Graphics_Orange") then
			imageBar = "Bar_Orange.gif"
		elseif lcase(request.QueryString("ProgressPage"))=lcase("Graphics_Green") then
			imageBar = "Bar_Green.gif"
		elseif lcase(request.QueryString("ProgressPage"))=lcase("Graphics_Blue") then
			imageBar = "Bar_Blue.gif"
		end if
		Bar = "<Table align=center cellpadding=0 height=21 cellspacing=0 border='1' width='337' ><tr><TD align=left><img src='" & imageBar & "' width=" & int(3.35*PercBytesRead) & " border='0' height='21' /></TD></tr></table>"		
	case else
		TDsread = replace(space(0.5*PercBytesRead), " ", "<TD BGColor=blue>�</TD>")
		TDsRemain = replace(space(0.5*PercentRest), " ", "<TD>�</TD>")
		Bar = "<Table cellpadding=0 height=20 cellspacing=0 border=0 width=100" & chr(37) & " ><tr>" & TDsread & TDsRemain & "</tr></table>"
	end select

	'Format output values.
	UploadTime = FormatTime(valori(3))
	TotalBytes = FormatSize(valori(1))
	BytesRead = FormatSize(BytesRead)
else
	Bar = "<Table cellpadding=0 height=20 cellspacing=0 border=0 width=100" & chr(37) & " ><tr><TD>&nbsp;</TD></tr></table>"
end if

Function FormatTime(byval ms)
	ms = 0.001 * ms 'get second
	FormatTime = (ms \ 60) & ":" & right("0" & (ms mod 60),2) & "s"
End Function 

'Format bytes to a string
Function FormatSize(byval Number)
  if isnumeric(Number) then
    if Number > &H100000 then'1M
      Number = FormatNumber (Number/&H100000,1) & "MB"
    elseif Number > 1024 then'1k
      Number = FormatNumber (Number/1024,1) & "kB"
    else
      Number = FormatNumber (Number,0) & "B"
    end if
  end if
  FormatSize = Number
End Function

%>
<HTML>
<Head>
<script language="JavaScript">
	parent.document.title = "<%=PercBytesRead%>% completed - upload to <%=Request.ServerVariables("HTTP_HOST")%> in progress";;
	function closeWin(){
		top.close()
	}
	
</script>
<meta http-equiv="Page-Enter" content="revealTrans(Duration=0,Transition=6)">
<%if not UploadEnd then%>
<META HTTP-EQUIV="Refresh" CONTENT="<%=RefreshTime%>">
<%end if%>
<Title>Upload in Progress</Title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<style type="text/css">
.Testo12BB {
	font-family: Arial, Helvetica, sans-serif;
	font-size: 12px;
	font-weight: bold;
	color: #003399;
}
.Testo12N {
	font-family: Arial, Helvetica, sans-serif;
	font-size: 12px;
	font-weight: normal;
	color: #000000;
}
</style>
</Head>

<Body <%=OnLoad%> BGcolor="<%
select case request.QueryString("ProgressPage")
case "Graphics_Cyan_1", "Graphics_Cyan_2", "Graphics_Cyan_3"
	response.Write("#D4E6F9")
case "Graphics3D"
	response.Write("#CCCCCC")
case "Graphics_Orange"
	response.Write("#FDCF7D")
case "Graphics_Green"
	response.Write("#6FD764")
case "Graphics_Blue"
	response.Write("#60ADFE")
end select
%>" scroll="no" LeftMargin=0 TopMargin=0 marginwidth="0" marginheight="0">
<Table width=100% border=0 align="center" cellpadding=3 cellspacing=0 >
  <tr>
    <td width="9%" class="Testo12N">Uploading: </td>
	<td width="91%" class="Testo12N"><%=TotalBytes%> to <%=Request.ServerVariables("HTTP_HOST")%> ...</td>
</tr></Table>

<Table width=100% border=0 align="center" cellpadding=1 cellspacing=0 height="23" >
  <tr>
    <td valign="middle" align="left"><%=Bar%></td>
  </tr>
</table>

<Table width="100%" border=0 align="center" cellpadding=3 cellspacing=0>
  <tr> 
    <Td width="77" class="Testo12N" >Progress :</td>
    <Td width="629" class="Testo12N" ><%=BytesRead%> of <%=TotalBytes%> (<%=PercBytesRead%>%)�</Td>
  </tr>
  <tr> 
    <Td class="Testo12N">Time :</td>
    <Td class="Testo12N"><%=UploadTime%> (<%=TransferRate%>/s) </Td>
  </tr>
  <tr> 
    <Td class="Testo12N">Time left :</td>
    <Td class="Testo12N"><%=RestTime%> </Td>
  </tr>
</table>
 
</Body>
</HTML>