Tema: Ejecutar mas de una consulta en asp
Ver Mensaje Individual
  #3 (permalink)  
Antiguo 09/06/2010, 09:49
th3r0rn
 
Fecha de Ingreso: noviembre-2007
Mensajes: 504
Antigüedad: 17 años
Puntos: 2
Respuesta: Ejecutar mas de una consulta en asp
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: 
Ver original
  1. <&#37;
  2.  
  3. dim conexion,calendar1,calendar2,registros,linea
  4. calendar1=request.form("calendar1")
  5. calendar2=request.form("calendar2")
  6. linea=request.form("linea")
  7. Tubo=request.form("tubo")
  8.  
  9. SET conexion=Server.CreateObject("ADODB.Connection")
  10. conexion.Open "PROVIDER=SQLOLEDB; DATA SOURCE=VALP-MESSRV02;UID=sa;PWD=messrv;DATABASE=wasp "
  11. SET registros=Server.CreateObject("ADODB.RecordSet")
  12. 'registros.open"SELECT peso,tubo from pesos where fecha  between '"&calendar1&"' AND '"&calendar2&"'",conexion
  13. if linea="1" Then
  14.  
  15. 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
  16. else
  17. 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    
  18. end if
  19. do while not registros.eof
  20.  
  21. response.write("<tr>")
  22. response.write("<td>"&registros.fields("linea")&"</td>")
  23. response.write("<td>"&registros.fields("peso")&"</td>")
  24. response.write("<td>"&registros.fields("vaso")&"</td>")
  25. response.write("<td>"&registros.fields("tubo")&"</td>")
  26. response.write("<td>"&registros.fields("fecha")&"</td>")
  27. registros.movenext
  28.  
  29.  
  30. loop
  31. conexion.close
  32.  
  33.  
  34. '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'
  35. SET conexion2=Server.CreateObject("ADODB.Connection")
  36. conexion2.Open "PROVIDER=SQLOLEDB; DATA SOURCE=VALP-MESSRV02;UID=sa;PWD=messrv;DATABASE=wasp "
  37. SET registros2=Server.CreateObject("ADODB.RecordSet")
  38. registros2.open"SELECT AVG(PESO) from pesos where fecha Between '"&calendar1&"' AND '"&calendar2&"'",conexion2 
  39. do while not registros2.eof
  40. response.write(""&registros2.fields("peso")&"")
  41. registros2.movenext
  42. loop
  43. conexion2.close
  44. %>
En que la estoy regando? =/