Microsoft Vbscript Runtime Error '800a0006' - Overflow

[rakelc]

erroooooooooooooooo

alguém ajuda??

^^

está dando na linha 50, ele não especifica, mas acredito que seja no meu CInt...

tá aí o script::

<!--#include file="conecta.asp"-->

<%

voto = Request.Form("mesmo")

Set rs = Server.CreateObject ("ADODB.RecordSet")

sql = "SELECT * FROM enquete"

rs.Open sql, conn

If rs.EOF = True Then

conn.Execute "INSERT INTO enquete(dado1, dado2, dado3) VALUES (0,0,0)"

rs.Requery

End If

If voto = "1" then

conn.Execute "UPDATE enquete SET dado1="&rs.Fields("dado1")+1&""

rs.Requery

Response.Write "<b>Voto somado a São Paulo</b>"

ElseIf voto = "2" then

conn.Execute "UPDATE enquete SET dado2="&rs.Fields("dado2")+1&""

rs.Requery

Response.Write "<b>Voto somado a Internacional</b>"

ElseIf voto = "3" then

conn.Execute "UPDATE enquete SET dado3="&rs.Fields("dado3")+1&""

rs.Requery

Response.Write "<b>Voto somado a Grêmio</b>"

End If

total = CInt(rs("dado1"))+CInt(rs("dado2"))+CInt(rs("dado3"))

%>

<TABLE ALIGN="left" WIDTH="90%" BORDER="1" CELLPADDING="0" CELLSPACING="0">

<TR>

<TD>

<IMG SRC="img_enquete/char1.gif" WIDTH="<%= CInt(RS("dado1")*100/total)%>%" HEIGHT="20" BORDER="1" align="top"><BR>

<IMG SRC="img_enquete/char2.gif" WIDTH="<%= CInt(RS("dado2")*100/total)%>%" HEIGHT="20" BORDER="1" align="top"><BR>

<IMG SRC="img_enquete/char3.gif" WIDTH="<%= CInt(RS("dado3")*100/total)%>%" HEIGHT="20" BORDER="1" align="top"><BR>

</TR></TABLE>

<%

rs.Close

Set rs = Nothing

%>

[lcs_sp]

Olá..

Overflow é quando há um estouro ( o número passou do limite que a variável aceita ) tente trocar o Cint para Cdbl (double).