Microsoft VBScript runtime error '800a0006'
Overflow: 'cint'
/Mes/Asp/was2/more2.asp, line 111
Código ASP:
Ver original
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>"®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