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:
Ver originaldim 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>"®istros.fields("linea")&"</td>")
response.write("<td>"®istros.fields("peso")&"</td>")
response.write("<td>"®istros.fields("target")&"</td>")
'response.write("<td>"&a&"</td>")
response.write("<td>"®istros.fields("marca")&"</td>")
response.write("<td>"®istros.fields("vaso")&"</td>")
response.write("<td>"®istros.fields("tubo")&"</td>")
response.write("<td>"®istros.fields("fecha")&"</td>")
response.write("<td>"®istros.fields("totality")&"</td>")
registros.movenext