Problema con funcion CINT vacia

[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 :)