Microsoft VBScript runtime error '800a000b' Division by zero

[th3r0rn]

Hola, solo queria preguntar si si ustedes ven algun error en mi code porq me marca ese error pero no se por que yo lo veo bien, el error esta en la linea 10 de el siguiente codigo:

Código ASP:

SET conexion2=Server.CreateObject("ADODB.Connection")
            conexion2.Open "PROVIDER=SQLOLEDB; DATA SOURCE=VALP-MESSRV02;UID=sa;PWD=messrv;DATABASE=wasp "
            SET registros2=Server.CreateObject("ADODB.RecordSet")
        response.write("SELECT AVG(PESO)as promedio,o.linea from Optimas as o INNER JOIN pesos as p on o.codigo =p.codoptima WHERE fecha >='"&fecha&"' AND hora='"&horamia&"' AND o.linea='"&linea&"' GROUP BY LINEA")
        registros2.open"SELECT AVG(PESO)as promedio,o.linea from Optimas as o INNER JOIN pesos as p on o.codigo =p.codoptima WHERE fecha >='"&fecha&"' AND hora='"&horamia&"' AND o.linea='"&linea&"' GROUP BY LINEA",conexion2 
        do while not registros2.eof
        promedio=cint(registros2.fields("promedio"))
        'c=(registros2.fields("peso"))
        'b=(a-c)/target
        OP=(promedio-target)/target
        response.write("Promedio: <b>"&registros2.fields("promedio")&"</b><br>")
    '############## Aritmetica ####################
    ' C = Promedio  WHERE B=(a-c)/a
    ' A = Target
    saving=(PROMEDIO-target)*NumBolsas
    if OP<=0 then   response.write(" Op: <b>"&OP&"</b><img src='http://www.pact-oil.co.uk/images/error.gif'</a><br>") else response.write(" Op: <b>"&OP&"</b><img src='http://www.hospitalsierrallana.com/imagenes/gif_ok.gif'</a><br>")    end if
        response.write("Saving:<b> "&saving&" KG</b>")  
        
        
        registros2.movenext
    loop
        
        conexion2.close
 

[u_goldman]

El error te esta diciendo que no puedes hacer una division por cero, tienes que agregar una condicion:

Código ASP:

if promedio > 0 then
  OP=(promedio-target)/target
else
  OP = 0
end if
 

[th3r0rn]

Hola me sigue marcando error en esta linea:
OP=(promedio-target)/target

Código ASP:

SET conexion2=Server.CreateObject("ADODB.Connection")
            conexion2.Open "PROVIDER=SQLOLEDB; DATA SOURCE=VALP-MESSRV02;UID=sa;PWD=messrv;DATABASE=wasp "
            SET registros2=Server.CreateObject("ADODB.RecordSet")
        'response.write("SELECT AVG(PESO)as promedio,o.linea from Optimas as o INNER JOIN pesos as p on o.codigo =p.codoptima WHERE fecha >='"&fecha&"' AND hora='"&horamia&"' AND o.linea='"&linea&"' GROUP BY LINEA")
        registros2.open"SELECT AVG(PESO)as promedio,o.linea from Optimas as o INNER JOIN pesos as p on o.codigo =p.codoptima WHERE fecha >='"&fecha&"' AND hora='"&horamia&"' AND o.linea='"&linea&"' GROUP BY LINEA",conexion2 
        do while not registros2.eof
        promedio=cint(registros2.fields("promedio"))
        'c=(registros2.fields("peso"))
        'b=(a-c)/target
        if promedio > 0 then
        OP=(promedio-target)/target
        else
        OP=0
        end if
        response.write("Promedio: <b>"&registros2.fields("promedio")&"</b><br>")
    '############## Aritmetica ####################
    ' C = Promedio  WHERE B=(a-c)/a
    ' A = Target
    saving=(PROMEDIO-target)*NumBolsas
    if OP<=0 then   response.write(" Op: <b>"&OP&"</b><img src='http://www.pact-oil.co.uk/images/error.gif'</a><br>") else response.write(" Op: <b>"&OP&"</b><img src='http://www.hospitalsierrallana.com/imagenes/gif_ok.gif'</a><br>")    end if
        response.write("Saving:<b> "&saving&" KG</b>")  
        
        
        registros2.movenext
    loop
        
        conexion2.close
        
%>
 

[u_goldman]

Imprime esas dos variables, alguna de las dos tiene un valor de 0, ahora que lo veo mejor seguramente es la variable target.

Saludos