Ejecutar mas de una consulta en asp

[th3r0rn]

Hola, tengo un reportador donde obtengo los datos historicos de alguna jornada y los muestro en pantalla, esto con consulta SQL el problema es que ademas de mostrar estos datos quiero sacar un promedio con AVG, Algo como esto:

Código SQL:

SELECT AVG(PESO) FROM pesos WHERE FECHA BETWEEN '2010-06-09 00:00:00.000' 
                                    AND '2010-06-09 00:00:00.000' AND LINEA='L17S'
                        AND codoptima=92
 

Mi duda es, tengo que crear otra conexion a SQL y otros objetos? es decir otro como:

Código ASP:

SET conexion=Server.CreateObject("ADODB.Connection")
conexion.Open "PROVIDER=SQLOLEDB; DATA SOURCE=VALP-MESSRV0;UID=sa;PWD=;DATABASE=wasp "
SET registros=Server.CreateObject("ADODB.RecordSet")
 

Dejo mi codigo para aclarar mas dudas

Código ASP:

</tr>
<&#37;
 
dim conexion,calendar1,calendar2,registros,linea
calendar1=request.form("calendar1")
calendar2=request.form("calendar2")
linea=request.form("linea")
Tubo=request.form("tubo")
 
SET conexion=Server.CreateObject("ADODB.Connection")
conexion.Open "PROVIDER=SQLOLEDB; DATA SOURCE=VALP-MESSRV02;UID=sa;PWD=messrv;DATABASE=wasp "
SET registros=Server.CreateObject("ADODB.RecordSet")
'registros.open"SELECT peso,tubo from pesos where fecha  between '"&calendar1&"' AND '"&calendar2&"'",conexion
if linea="1" Then
 
registros.open"SELECT p.peso,p.vaso,p.fecha, o.linea,o.tubo FROM pesos as p, optimas as o where o.codigo = p.codOptima  AND o.tubo LIKE '"&tubo&"'   AND p.fecha Between '"&calendar1&"' AND '"&calendar2&"'order by fecha",conexion
else
registros.open"SELECT p.peso,p.vaso,p.fecha, o.linea,o.tubo FROM pesos as p, optimas as o where o.codigo = p.codOptima and o.linea = '"&linea&"' and o.tubo LIKE '"&tubo&"'  AND p.fecha Between '"&calendar1&"' AND '"&calendar2&"'" ,conexion    
end if
do while not registros.eof
 
response.write("<tr>")
response.write("<td>"&registros.fields("linea")&"</td>")
response.write("<td>"&registros.fields("peso")&"</td>")
response.write("<td>"&registros.fields("vaso")&"</td>")
response.write("<td>"&registros.fields("tubo")&"</td>")
response.write("<td>"&registros.fields("fecha")&"</td>")
registros.movenext
 
 
loop
conexion.close
 
 
'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'
 
%>
</tr>
</table>
</table>
</font></p>
 

[Myakire]

Mi duda es, tengo que crear otra conexion a SQL y otros objetos?

La conexión si es de a fuerzas

Los recordSet pueden ser creados implícitamente si no quieres definirlos de forma explícita, esto es igualando una variable al Execute(Query) de la conexión

[th3r0rn]

Hola, lo hice de la siguiente forma y me da este error:
ADODB.Recordset error '800a0cc1'
Item cannot be found in the collection corresponding to the requested name or ordinal.
(el error de linea 108 es el que viene aki en la linea 40, donde imprimo)
/Mes/Asp/was2/show2.asp, line 108

Y obviamente seguido del error me muestra los datos de la primera consulta.

Código ASP:

<&#37;
 
dim conexion,calendar1,calendar2,registros,linea
calendar1=request.form("calendar1")
calendar2=request.form("calendar2")
linea=request.form("linea")
Tubo=request.form("tubo")
 
SET conexion=Server.CreateObject("ADODB.Connection")
conexion.Open "PROVIDER=SQLOLEDB; DATA SOURCE=VALP-MESSRV02;UID=sa;PWD=messrv;DATABASE=wasp "
SET registros=Server.CreateObject("ADODB.RecordSet")
'registros.open"SELECT peso,tubo from pesos where fecha  between '"&calendar1&"' AND '"&calendar2&"'",conexion
if linea="1" Then
 
registros.open"SELECT p.peso,p.vaso,p.fecha, o.linea,o.tubo FROM pesos as p, optimas as o where o.codigo = p.codOptima  AND o.tubo LIKE '"&tubo&"'   AND p.fecha Between '"&calendar1&"' AND '"&calendar2&"'order by fecha",conexion
else
registros.open"SELECT p.peso,p.vaso,p.fecha, o.linea,o.tubo FROM pesos as p, optimas as o where o.codigo = p.codOptima and o.linea = '"&linea&"' and o.tubo LIKE '"&tubo&"'  AND p.fecha Between '"&calendar1&"' AND '"&calendar2&"'" ,conexion    
end if
do while not registros.eof
 
response.write("<tr>")
response.write("<td>"&registros.fields("linea")&"</td>")
response.write("<td>"&registros.fields("peso")&"</td>")
response.write("<td>"&registros.fields("vaso")&"</td>")
response.write("<td>"&registros.fields("tubo")&"</td>")
response.write("<td>"&registros.fields("fecha")&"</td>")
registros.movenext
 
 
loop
conexion.close
 
 
'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-MESSRV02;UID=sa;PWD=messrv;DATABASE=wasp "
SET registros2=Server.CreateObject("ADODB.RecordSet")
registros2.open"SELECT AVG(PESO) from pesos where fecha Between '"&calendar1&"' AND '"&calendar2&"'",conexion2 
do while not registros2.eof
response.write(""&registros2.fields("peso")&"")
registros2.movenext
loop
conexion2.close
%>
 

En que la estoy regando? =/

[Myakire]

No hay una columna llamada Peso

Debes usar un alias:

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

[th3r0rn]

Muchas muchas GRACIAS SR. ya quedo!!!