Hola, no entiendo, ahora lo he dejado asi:
Código ASP:
Ver original'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")
conexion2.CommandTimeout =900
registros2.open"SELECT AVG(PESO)as peso from pesos where fecha Between '"&calendar1&"' AND '"&calendar2&"'AND hora='"&hora&"' AND codoptima='"&codoptima&"'",conexion2
response.write("SELECT AVG(PESO)as peso from pesos where fecha Between '"&calendar1&"' AND '"&calendar2&"'AND hora='"&hora&"' AND codoptima='"&codoptima&"'")
do while not registros2.eof
if isNull(registros2.fields("peso")) then
c=0
response.write("<FONT SIZE=4 COLOR=#FF0000>Verifica tu consulta no hay datos en esta fecha <FONT><form action='more.htm'><input type='submit' value='Nueva consulta'></form>")
response.end
end if
c=cint(registros2.fields("peso"))
'b=(a-c)/a
b=(c-a)/a
response.write("Promedio: <b>"®istros2.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
y me marca el siguiente error:
Microsoft VBScript runtime error '800a000b'
Division by zero
/Mes/Asp/was2/more2.asp, line 281
la cual corresponde a: b=(c-a)/a
:/
