OverFlow¡??

[th3r0rn]

Hola, mi aplicacion me da un Over Flow en mi aplicacion pero no se a que se deva, ustedes me podrian ayudar a identifica rel por que?. Muestro parte de mi code y el error:
Microsoft VBScript runtime error '800a0006'
Overflow: 'cint'

/Mes/Asp/was2/more2.asp, line 111

Código ASP:

dim conexion,calendar1,calendar2,registros,linea,hora,test
calendar1=request.form("calendar1")
calendar2=request.form("calendar2")
linea=request.form("linea")
Tubo=request.form("tubo")
hora=request.form("hora")
'test=("SELECT h.hora,h.marca,h.codoptima,h.target,P.CODOPTIMA,O.CODIGO,p.hora,p.peso,p.vaso,p.fecha, o.linea,o.tubo FROM pesos as p, optimas as o,htargets as h where o.codigo = p.codOptima and o.linea = '"&linea&"' and o.tubo LIKE '"&tubo&"'  AND p.fecha Between '"&calendar1&"' AND '"&calendar2&"' AND p.hora='"&hora&"'and h.codoptima = o.codigo and h.hora='"&hora&"'")
        SET conexion=Server.CreateObject("ADODB.Connection")
        conexion.CommandTimeout = 0
        conexion.ConnectionTimeout = 0
        
        conexion.Open "PROVIDER=SQLOLEDB; DATA SOURCE=VALP-MAPLE01;UID=sa;PWD=messrv;DATABASE=wasp "
        
        SET registros=Server.CreateObject("ADODB.RecordSet")
        
        'response.write("EXEC cuenta '"&calendar1&"','"&calendar2&"','"&linea&"','"&tubo&"','"&hora&"'")
    'On error resume next
        registros.open"EXEC cuenta '"&calendar1&"','"&calendar2&"','"&linea&"','"&tubo&"','"&hora&"'",conexion
    'If err.number <> 0 Then
    'response.write("Tu consulta esta mal, el mes no puede ser 0")
    'end if
    
    dim a,NumBolsas
    do while not registros.eof  'promedio-target*numero de bolsas
a=cint(registros.fields("target"))
NumBolsas=cint(registros.fields("totality"))
 
        response.write("<tr>")
        response.write("<td>"&registros.fields("linea")&"</td>")
        response.write("<td>"&registros.fields("peso")&"</td>")
        response.write("<td>"&registros.fields("target")&"</td>")
        'response.write("<td>"&a&"</td>")
        response.write("<td>"&registros.fields("marca")&"</td>")
        response.write("<td>"&registros.fields("vaso")&"</td>")
        response.write("<td>"&registros.fields("tubo")&"</td>")
        response.write("<td>"&registros.fields("fecha")&"</td>")
        response.write("<td>"&registros.fields("totality")&"</td>")
        
        registros.movenext
 

[Wasper]

Cint es capaz de transformar hasta el 32767, para lo que quieres hacer usa CLng(), quizas te sirva...