<%@EnableSessionState=False%>
<!--#include file="TempFolder.asp"-->
<%
	response.cachecontrol = "no-cache"
	response.AddHeader "Pragma","no-cache"
	
	if request.QueryString("StopSend")<>"" then
		Set FS = CreateObject("Scripting.FileSystemObject")
		TempFileName = getTempFolder() & "\ms" & Request("SendMailID") & "_stop.~tmp"
		set tmpFile = FS.OpenTextFile(TempFileName, 2, true)
		tmpFile.write("stop")
		tmpFile.close
		set Fs = nothing
		%>
		<script language="javascript">
		top.close()
		</script>
		<%
		response.End()
	end if
	
	ProgressMailPage = request("ProgressMailPage")
	RefreshTimer = "2000" 'Milliseconds
	PercMailSend = "0"
	PercentRest = "100"
	N_Mail = "0"
	T_Mail = "0"
	sendTime = "0"
	TimeLeft = "0"
	status = ""
	MailAccount = ""
	
	Set FS = CreateObject("Scripting.FileSystemObject")
	TempFileName = getTempFolder() & "\ms" & Request("SendMailID") & ".~tmp"
	sendStatus = 0
	N_Mail = "0"
	if FS.FileExists(TempFileName) then
		on error resume next
		set tmpFile = FS.OpenTextFile(TempFileName, 1)
		lista = tmpFile.readLine
		tmpFile.close
		on error goto 0
		if instr(lista,"DONE")>0 then
			Status = "DONE"
		elseif instr(lista,"close")>0 then
			status = "wait"
		elseif instr(lista,",")>0 then
			Valori = split(lista,",")
			sendStatus = clng(Valori(0))
			N_Mail = clng(Valori(1))
			T_Mail = clng(Valori(2))
			StartTime = Valori(3)
			EndTime = Valori(4)
			MailAccount = Valori(5)
		end if
		if N_Mail = "" then
			status = "wait"
		end if
	else
		sendStatus = 0
		N_Mail = 0
		T_Mail = 0
		sec = 0
		TimeLeft = 0
	end if
	set FS = nothing
	
	if T_Mail>0 then 
		PercMailSend = int(100*N_Mail/T_Mail)
		PercentRest = 100-PercMailSend
		sendTime = dateDiff("s",StartTime,EndTime)
		if sendTime>0 then
			TimeLeft = FormatNumber((T_Mail-N_Mail)/(N_Mail/sendTime),0)
		end if
	else
		PercMailSend = 0
		PercentRest = 100
	end if
	
	if len(MailAccount)>50 then
		MailAccount = left(MailAccount,50) & "..."
	end if
		
	sendTime = FormatTime(sendTime)
	TimeLeft = FormatTime(TimeLeft)
	
Function FormatTime(byval ms)
	FormatTime = (ms \ 60) & ":" & right("0" & (ms mod 60),2) & "s"
End Function 

%>


<script language="javascript">
	var progressType = "<%=ProgressMailPage%>"
	var PercMailSend = "<%=PercMailSend%>"
	var PercentRest = "<%=PercentRest%>"
	var N_Mail = "<%=N_Mail%>"
	var T_Mail = "<%=T_Mail%>"
	var sendTime = "<%=sendTime%>"
	var TimeLeft = "<%=TimeLeft%>"
	var status = "<%=status%>"
	var doc = top.mainUploadFrame.document
	var RefreshTimer = parseInt("<%=RefreshTimer%>")
	var MailAccount = "<%=MailAccount%>"
	
function updateProgress(){
	if(status=="DONE"){
		if(Dwz_findObj("percSend",doc)){
			Dwz_findObj("percSend",doc).innerHTML = "<font color=red><b>SEND MAIL COMPLETED</b></font>"
		}
		setTimeout("winClose()",1000)
		return
	}else if(status=="wait"){
		if(createTable(0,100)){
			Dwz_findObj("nMail",doc).innerHTML = '&nbsp;'
			Dwz_findObj("timeSend",doc).innerHTML = sendTime + '&nbsp;<font size="1">(Time left ' + TimeLeft + ')</font>'
			Dwz_findObj("percSend",doc).innerHTML = '0%<font size="1"> completed </font>'
		}
		setTimeout("reloadpage()",750)
	}else{
		if(createTable(PercMailSend,PercentRest)){
			Dwz_findObj("nMail",doc).innerHTML =  N_Mail + ' of ' + T_Mail
			Dwz_findObj("nToMail",doc).innerHTML =  MailAccount
			Dwz_findObj("timeSend",doc).innerHTML = sendTime + '&nbsp;<font size="1">(Time left ' + TimeLeft + ')</font>'
			Dwz_findObj("percSend",doc).innerHTML = PercMailSend + '%<font size="1"> completed </font>'
			parent.document.title = PercMailSend + "% Mail send ........................................................"
			setTimeout("reloadpage()",RefreshTimer)
		}else{
			setTimeout("reloadpage()",750)
		}
	}
}

function winClose(){
	top.close()
}

function reloadpage(){
	doc = top.mainUploadFrame.document
	if(Dwz_findObj("stopSend",doc).value=="1"){
		location.href = location.href + "&StopSend=yes"
	}else{
		location.href = location.href
	}
}

function createTable(PercMailSend,PercentRest){
	switch(progressType){
	case "BigBar":
		TDsread = ""
		t = parseInt(0.25 * parseFloat(PercMailSend))
		for(x=0;x<t;x++){
			TDsread += "<TD BGColor=blue >&nbsp;</TD>"
		}
		TDsRemain = ""
		t = parseInt(0.25 * parseFloat(PercentRest))
		for(x=0;x<t;x++){
			TDsRemain += "<TD>&nbsp;</TD>"
		}
		Bar = '<Table cellpadding="0" height="20" cellspacing="0" border="1" width="100%" style="border:1px inset white" ><tr>' + TDsread + TDsRemain + '</tr></table>'
		break	;
		
	case "BigBar2":
		TDsread = ""
		t = parseInt(0.25 * parseFloat(PercMailSend))
		for(x=0;x<t;x++){
			TDsread += "<TD BGColor=blue >&nbsp;</TD>"
		}
		TDsRemain = ""
		t = parseInt(0.25 * parseFloat(PercentRest))
		for(x=0;x<t;x++){
			TDsRemain += "<TD>&nbsp;</TD>"
		}
		Bar = '<Table cellpadding="0" height="20" cellspacing="2" border="0" width="100%" style="border:1px inset white" ><tr>' + TDsread + TDsRemain + '</tr></table>'
		break;
		
	case "Graphics3D":
	case "Graphics_Cyan_1":
	case "Graphics_Cyan_2":
	case "Graphics_Cyan_3":
	case "Graphics_Orange":
	case "Graphics_Green":
	case "Graphics_Blue":
		
		switch(progressType){
		case "Graphics3D":
			imageBar = "3D_Bar.gif"
		break
		case "Graphics_Cyan_1":
		case "Graphics_Cyan_2":
		case "Graphics_Cyan_3":
			imageBar = "Bar_Cyan.gif"
		break
		case "Graphics_Orange":
			imageBar = "Bar_Orange.gif"
		break
		case "Graphics_Green":
			imageBar = "Bar_Green.gif"
		break
		case "Graphics_Blue":
			imageBar = "Bar_Blue.gif"	
		break	
		}

		Bar = '<Table width="337" border="1" align="center" cellpadding="1" cellspacing="0" ><tr><td valign=middle><img src="' + imageBar + '" width="' + parseInt(3.35*PercMailSend) + '" height="21"></td><tr></table>'		
		
		break;
	case "LittleBar":
		TDsread = ""
		t = parseInt(0.5 * parseFloat(PercMailSend))
		for(x=0;x<t;x++){
			TDsread += "<TD BGColor=blue >&nbsp;</TD>"
		}
		TDsRemain = ""
		t = parseInt(0.5 * parseFloat(PercentRest))
		for(x=0;x<t;x++){
			TDsRemain += "<TD>&nbsp;</TD>"
		}
		Bar = '<Table cellpadding="0" height="20" cellspacing="0" border="1" width="100%" style="border:1px inset white" ><tr>' + TDsread + TDsRemain + '</tr></table>'
		break;
		
	case "LittleBar2":
		TDsread = ""
		t = parseInt(0.5 * parseFloat(PercMailSend))
		for(x=0;x<t;x++){
			TDsread += "<TD BGColor=blue >&nbsp;</TD>"
		}
		TDsRemain = ""
		t = parseInt(0.5 * parseFloat(PercentRest))
		for(x=0;x<t;x++){
			TDsRemain += "<TD>&nbsp;</TD>"
		}
		Bar = '<Table cellpadding="0" height="20" cellspacing="2" border="0" width="100%" ><tr>' + TDsread + TDsRemain + '</tr></table>'
		break;
				
	case "Standard":
		TDsread = ""
		t = parseInt(0.5 * parseFloat(PercMailSend))
		for(x=0;x<t;x++){
			TDsread += "<TD BGColor=blue >&nbsp;</TD>"
		}
		TDsRemain = ""
		t = parseInt(0.5 * parseFloat(PercentRest))
		for(x=0;x<t;x++){
			TDsRemain += "<TD>&nbsp;</TD>"
		}
		Bar = '<Table cellpadding="0" height="20" cellspacing="0" border="0" width="100%" ><tr>' + TDsread + TDsRemain + '</tr></table>'
		break
	case "WinXp":
		qty = 40
		TDsread = "<img src='/dwzMail/Trasparente.gif' width='6' height='21' />"
		t = parseInt(qty / 100 * parseFloat(PercMailSend))
		for(x=0;x<t;x++){
			TDsread += "<img src='/dwzMail/BarraWinXp.gif' />"
		}
		Bar = '<table width="331" height="23" border="0" cellpadding="0" cellspacing="0" background="/dwzMail/BgWinXp.gif"><tr><td align="left" valign="middle">' + TDsread + '</td></tr></table>'
		
		break
	default:
		alert(progressType)
		return
	}
	
	container = Dwz_findObj("bar",doc)
	if(container){	
		container.innerHTML = Bar
		return true
	}else{
		return false
	}
}

function Dwz_findObj(n, d) { //v4.01
  var p,i,x;  if(!d) d=document; if((p=n.indexOf("?"))>0&&parent.frames.length) {
    d=parent.frames[n.substring(p+1)].document; n=n.substring(0,p);}
  if(!(x=d[n])&&d.all) x=d.all[n]; for (i=0;!x&&i<d.forms.length;i++) x=d.forms[i][n];
  for(i=0;!x&&d.layers&&i<d.layers.length;i++) x=MM_findObj(n,d.layers[i].document);
  if(!x && d.getElementById) x=d.getElementById(n); return x;
}
	
updateProgress()

</script>