No púes no me funciona :(
Código ASP:
Ver originalSET conexion9S=Server.CreateObject("ADODB.Connection")
conexion9s.Open "PROVIDER=SQLOLEDB; DATA SOURCE=VALP-MESSRV02;UID=sa;PWD=messrv;DATABASE=wasp "
SET registros9s=Server.CreateObject("ADODB.RecordSet")
registros9s.open"EXEC monitor '"&fecha&"','"&linea09s&"','"&horamia&"'",conexion9s
SET conexionAVG9s=Server.CreateObject("ADODB.Connection")
conexionAVG9s.Open "PROVIDER=SQLOLEDB; DATA SOURCE=VALP-MESSRV02;UID=sa;PWD=messrv;DATABASE=wasp "
SET registrosAVG9s= Server.CreateObject("ADODB.RecordSet")
registrosAVG9s.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='L09S' GROUP BY LINEA",conexionAVG9s
do while not registrosAVG9s.eof
promedio=cint(registrosAVG9s.fields("promedio"))
if registros9s.eof then
Response.Write("no hay data")
else
Response.write("si hay data")
end if