[Resolvido] Estouro - ASP

[Renatolps 0]

Boa Tarde Pessoal,

 

Estou com um novo problema, ate hj estava funcionando normalmente uma planinha que eu havia criado com porcentagem, porem não tive nenhuma situação que o mesmo dividia 0 por 0.

Porem hoje começou apresentar um erro de estouro com as novas planilhas.

 

Error Type:

Erro de tempo de execução do Microsoft VBScript (0x800A0006)

Estouro

/TESTE/kpi/grafico_chartTSBR.asp, line 38

 

o codigo é esse:

<%
Set conn = Server.CreateObject("ADODB.Connection")
conn.open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=c:\Inetpub\cadastro2\kpi\KPI.mdb;"

sqlstr = "Select * From KpiOnsite Where ano = " & varano1 & " and mes = '" & varmes1 & "' order by login"
set rs1=conn.Execute(sqlstr)
%>
<table border="0" bgcolor="#000000">
	  <tr>  
	   <td width="100" bgcolor="red"><font size="2"><b>% de Estouro</td>
<%			 
		do while not rs1.eof%>
			<%Porc_Estouro = (rs1("EstouroSLATSBR") / rs1("ticketTSBR")) * 100%>
			<td width="65" bgcolor="#ffffff"><font size="2"><b><center><%response.write FormatNumber(Porc_Estouro,1)%>%</td>
<%
		rs1.movenext
		loop
		set rs1 = nothing
%>
		 </tr>

Por favor, alguém consegue me ajudar nesse caso, como posso tratar esse erro, quando estiver uma divisão de 0 por 0.

 

No aguardo de uma ajuda, Obrigado.

Renato

[hargon 64]

<%

If ((rs1("EstouroSLATSBR") = 0) Or (rs1("ticketTSBR") = 0)) Then

Porc_Estouro = 0

Else

Porc_Estouro = (rs1("EstouroSLATSBR") / rs1("ticketTSBR")) * 100

End If

%>

[mibnetweb 0]

Antes de fazer a divisão, faça um teste com if. Exemplo:

 

...

 

do while not rs1.eof%>

<%if rs1("EstouroSLATSBR") <> 0 or rs1("ticketTSBR") <> 0 then%>

<%Porc_Estouro = (rs1("EstouroSLATSBR") / rs1("ticketTSBR")) * 100%>

<% else %>

Aqui vai uma mensagem ou qualquer outro tratamento...

<% end if %>

...

 

Ou seja: só vai executar o cálculo se os valores forem diferentes de zero.

 

Espero que ajude.

[Renatolps 0]

Antes de fazer a divisão, faça um teste com if. Exemplo:

 

...

 

do while not rs1.eof%>

<%if rs1("EstouroSLATSBR") <> 0 or rs1("ticketTSBR") <> 0 then%>

<%Porc_Estouro = (rs1("EstouroSLATSBR") / rs1("ticketTSBR")) * 100%>

<% else %>

Aqui vai uma mensagem ou qualquer outro tratamento...

<% end if %>

...

 

Ou seja: só vai executar o cálculo se os valores forem diferentes de zero.

 

Espero que ajude.

Pessoal, desculpe-me pois minha mente estava muito cansada e não estava conseguindo pensar numa coisa tão simples como essa.

Muito obrigado, vcs são dez.

 

Abrocs

Renato