Problema con funcion CINT vacia

[th3r0rn]

Hola, tengo un problema con la funcion cint, cuando no recibe nada me da error:
Microsoft VBScript runtime error '800a005e'

Invalid use of Null: 'cint'

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

quisieras saber si hay alguna forma de evitar que muestre este error y mostrar un mensaje de que no se recibio nada, mi codigo es:

Código ASP:

SET conexion2=Server.CreateObject("ADODB.Connection")
            conexion2.Open "PROVIDER=SQLOLEDB; DATA SOURCE=VALP-MAPLE01;UID=sa;PWD=messrv;DATABASE=wasp "
            SET registros2=Server.CreateObject("ADODB.RecordSet")
        
        registros2.open"SELECT AVG(PESO)as peso from pesos where fecha Between '"&calendar1&"' AND '"&calendar2&"'AND hora='"&hora&"' AND codoptima='"&codoptima&"'",conexion2 
        do while not registros2.eof
        c=cint(registros2.fields("peso"))
        'b=(a-c)/a
        b=(c-a)/a
        response.write("Promedio: <b>"&registros2.fields("peso")&"</b><br>")
    '############## Aritmetica ####################
 

Saludos

[Adriangd7]

Hola!!
Porque no miras primero si es un nulo ejemplo
if registros2.fields("peso") = "" then
c=0
else
c=cint(registros2.fields("peso")
end if
Un saludo

[th3r0rn]

Hola lo dejo asi y me sigue dando error:
Microsoft VBScript runtime error '800a005e'

Invalid use of Null: 'cint'

Código ASP:

'SELECT p.peso,p.tubo,p.fecha, o.linea FROM pesos as p, optimas as o where o.codigo = p.codOptima and o.linea = 'L02N'  AND p.fecha Between '2010-05-11 09:42:34.000' AND '2010-05-11 09:42:39.000'
            SET conexion2=Server.CreateObject("ADODB.Connection")
            conexion2.Open "PROVIDER=SQLOLEDB; DATA SOURCE=VALP-MAPLE01;UID=sa;PWD=messrv;DATABASE=wasp "
            SET registros2=Server.CreateObject("ADODB.RecordSet")
        
        registros2.open"SELECT AVG(PESO)as peso from pesos where fecha Between '"&calendar1&"' AND '"&calendar2&"'AND hora='"&hora&"' AND codoptima='"&codoptima&"'",conexion2 
        do while not registros2.eof
        if registros2.fields("peso")="" then
        c=0
        else
        
        c=cint(registros2.fields("peso"))
        end if
        'b=(a-c)/a
        b=(c-a)/a
        response.write("Promedio: <b>"&registros2.fields("peso")&"</b><br>")
 

[u_goldman]

Iniciado por Adriangd7

Hola!!
Porque no miras primero si es un nulo ejemplo
if registros2.fields("peso") = "" then
c=0
else
c=cint(registros2.fields("peso")
end if
Un saludo

La idea es correcta pero solo destacar que nulo y vacio son diferentes tipos de datos:

if isNull(registros2.fields("peso")) then

if registros2.fields("peso") = "" then


Saludos

[Adriangd7]

th3r0rn az como dice u_goldman, que se me habia olvidado antes ponerte lo del null xD
if isNull(registros2.fields("peso")) or registros2.fields("peso") = "" then
Un saludo

[th3r0rn]

Hola, eso no funciona por que despues de asignarle 0 a C luego le asigno el valor de registros2.fields a c:
Microsoft VBScript runtime error '800a005e'

Invalid use of Null: 'cint'

Código ASP:

'SELECT p.peso,p.tubo,p.fecha, o.linea FROM pesos as p, optimas as o where o.codigo = p.codOptima and o.linea = 'L02N'  AND p.fecha Between '2010-05-11 09:42:34.000' AND '2010-05-11 09:42:39.000'
            SET conexion2=Server.CreateObject("ADODB.Connection")
            conexion2.Open "PROVIDER=SQLOLEDB; DATA SOURCE=VALP-MAPLE01;UID=sa;PWD=messrv;DATABASE=wasp "
            SET registros2=Server.CreateObject("ADODB.RecordSet")
        
        registros2.open"SELECT AVG(PESO)as peso from pesos where fecha Between '"&calendar1&"' AND '"&calendar2&"'AND hora='"&hora&"' AND codoptima='"&codoptima&"'",conexion2 
        do while not registros2.eof
        if isNull(registros2.fields("peso")) then
        c=0
        end if
        
        
        c=cint(registros2.fields("peso"))
        
        'b=(a-c)/a
        b=(c-a)/a
        response.write("Promedio: <b>"&registros2.fields("peso")&"</b><br>")
    '############## Aritmetica ####################
    ' C = Promedio  WHERE B=(a-c)/a
    ' A = Target
    saving=(c-a)*NumBolsas 
    if b<=0 then    response.write(" Op: <b>"&b&"</b><img src='http://www.pact-oil.co.uk/images/error.gif'</a><br>") else response.write(" Op: <b>"&b&"</b><img src='http://www.hospitalsierrallana.com/imagenes/gif_ok.gif'</a><br>")  end if
        response.write("Saving:<b> "&saving/1000&" KG</b>")'DIVIDIR /1000
 

Hola ya pude, uso response.end para matar la ejecucion del programa y hacer lo que quiera:

Código ASP:

'SELECT p.peso,p.tubo,p.fecha, o.linea FROM pesos as p, optimas as o where o.codigo = p.codOptima and o.linea = 'L02N'  AND p.fecha Between '2010-05-11 09:42:34.000' AND '2010-05-11 09:42:39.000'
            SET conexion2=Server.CreateObject("ADODB.Connection")
            conexion2.Open "PROVIDER=SQLOLEDB; DATA SOURCE=VALP-MAPLE01;UID=sa;PWD=messrv;DATABASE=wasp "
            SET registros2=Server.CreateObject("ADODB.RecordSet")
        
        registros2.open"SELECT AVG(PESO)as peso from pesos where fecha Between '"&calendar1&"' AND '"&calendar2&"'AND hora='"&hora&"' AND codoptima='"&codoptima&"'",conexion2 
        do while not registros2.eof
        if isNull(registros2.fields("peso")) then
        c=0
        response.write("<h3>Verifique su consulta, no hay datos en esta corrida</h3>")
        response.end
        end if
 

Best Regards :)

[Yarriot]

Y si en el SQL hubiera usado ISNULL?
También le sirve amigo?