Problema con tiempo de respuesta

[th3r0rn]

Hola, tengo un problema, mi pagina me da el siguiente error:
Microsoft OLE DB Provider for SQL Server error '80040e31'

Timeout expired

/Mes/Asp/was2/more2.asp, line 268
la linea es:

Código ASP:

registros2.open"SELECT AVG(PESO)as peso from pesos where fecha Between '"&calendar1&"' AND '"&calendar2&"'AND hora='"&hora&"' AND codoptima='"&codoptima&"'",conexion2
 

Creo que el problema es del tiempo de respuesta de sql ya que ejecute esta consulta en sql y tarda mucho, en algunos casos tarda un minuto 30 segundos

[IsaBelM]

creo que la propiedad CommandTimeout solventará el problemas

[th3r0rn]

Hola, no entiendo, ahora lo he dejado asi:

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")
        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>"&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
 

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
:/

[Myakire]

¿Dónde le asignas un valor a la variable "a" ?