Tabla temporal y error de conexión

Hola! Espero que alguien me pueda ayudar.

Estoy haciendo una consulta para la cual necesito crear

temporal. Cuando corro el query que me devuelve el

"Query Analizer" todo funciona a la perfección y me

registros, pero cuando lo quiero ejecutar desde web me

800a0e78 y me dice que no puedo utilizar el objeto sin

abrirlo...¡pero sí está abierto!...¿alguna idea de por

Aquí les mando el código que causa el problema por si me

alguna sugerencia:

Cnx = Session("cnv")
Set rs = Server.CreateObject("ADODB.Recordset")

Sql = ""
Sql = Sql & " SELECT envio.id_sucursal, "
Sql = Sql & " envio.fechayhora, "
Sql = Sql & " envio.id_sucursal1, "
Sql = Sql & " envio.paquete, "
Sql = Sql & " recibo.paquete as paq_recibo "
Sql = Sql & " INTO #PASO "
Sql = Sql & " FROM actividad as envio LEFT JOIN actividad

Sql = Sql & " ON envio.id_sucursal1 = recibo.id_sucursal "
Sql = Sql & " and envio.id_sucursal =

Sql = Sql & " and envio.paquete = recibo.paquete "
Sql = Sql & " and recibo.tipo = 'recibo' "
Sql = Sql & " WHERE envio.id_sucursal ='cedis trc' "
Sql = Sql & " and envio.tipo ='envio' "
Sql = Sql & " and envio.fechayhora <= ' " & fecha1 & "' "
Sql = Sql & " and envio.fechayhora >= ' " & fecha3 & "' "
Sql = Sql & " GROUP BY envio.fechayhora,

envio.id_sucursal, envio.paquete, recibo.paquete "
Sql = Sql & " ORDER BY envio.id_sucursal1, envio.paquete "

Sql = Sql & " "
Sql = Sql & " SELECT * "
Sql = Sql & " FROM #PASO "
Sql = Sql & " WHERE paq_recibo is NULL "

rs.Open Sql, Cnx

'AQUI MARCA EL ERROR
IF (rs.EOF AND rs.BOF) THEN

Response.Write "No se encontraron registros"

ELSE



Gracias y saludos!

.

Hola
Te falta SET NOCOUNT ON para que tu Rs reciba el conjunto
de registros del último select, y no el mensaje anterior
de xxx filas afectadas por el insert.

Suerte
Manuel

Hola! Espero que alguien me pueda ayudar.

Estoy haciendo una consulta para la cual necesito crear

una tabla

temporal. Cuando corro el query que me devuelve el

navegador en el

"Query Analizer" todo funciona a la perfección y me

devuelve como 100

registros, pero cuando lo quiero ejecutar desde web me

marca el error

800a0e78 y me dice que no puedo utilizar el objeto sin

antes

abrirlo...¡pero sí está abierto!...¿alguna idea de por

qué pasa esto?

Aquí les mando el código que causa el problema por si me

pueden hacer

alguna sugerencia:

Cnx = Session("cnv")
Set rs = Server.CreateObject("ADODB.Recordset")

Sql = ""
Sql = Sql & " SELECT envio.id_sucursal, "
Sql = Sql & " envio.fechayhora, "
Sql = Sql & " envio.id_sucursal1, "
Sql = Sql & " envio.paquete, "
Sql = Sql & " recibo.paquete as paq_recibo "
Sql = Sql & " INTO #PASO "
Sql = Sql & " FROM actividad as envio LEFT JOIN actividad

as recibo "

Sql = Sql & " ON envio.id_sucursal1 = recibo.id_sucursal "
Sql = Sql & " and envio.id_sucursal =

recibo.id_sucursal1 "

Sql = Sql & " and envio.paquete = recibo.paquete "
Sql = Sql & " and recibo.tipo = 'recibo' "
Sql = Sql & " WHERE envio.id_sucursal ='cedis trc' "
Sql = Sql & " and envio.tipo ='envio' "
Sql = Sql & " and envio.fechayhora <= ' " & fecha1 & "' "
Sql = Sql & " and envio.fechayhora >= ' " & fecha3 & "' "
Sql = Sql & " GROUP BY envio.fechayhora,

envio.id_sucursal1,

envio.id_sucursal, envio.paquete, recibo.paquete "
Sql = Sql & " ORDER BY envio.id_sucursal1, envio.paquete "

Sql = Sql & " "
Sql = Sql & " SELECT * "
Sql = Sql & " FROM #PASO "
Sql = Sql & " WHERE paq_recibo is NULL "

rs.Open Sql, Cnx

'AQUI MARCA EL ERROR
IF (rs.EOF AND rs.BOF) THEN

Response.Write "No se encontraron registros"

ELSE



Gracias y saludos!

.

Hola! Disculpa la molestia, pero ya probé poner la

dijiste en varios lugares, pero no encuentro el lugar

ir...¿me podrìas dar una mano (de nuevo)?

Gracias por la ayuda


Manuel Etcheto wrote:

Hola
Te falta SET NOCOUNT ON para que tu Rs reciba el

de registros del último select, y no el mensaje

de xxx filas afectadas por el insert.

Suerte
Manuel

Hola! Espero que alguien me pueda ayudar.

Estoy haciendo una consulta para la cual necesito crear

una tabla

temporal. Cuando corro el query que me devuelve el

navegador en el

"Query Analizer" todo funciona a la perfección y me

devuelve como 100

registros, pero cuando lo quiero ejecutar desde web me

marca el error

800a0e78 y me dice que no puedo utilizar el objeto sin

antes

abrirlo...¡pero sí está abierto!...¿alguna idea de por

qué pasa esto?

Aquí les mando el código que causa el problema por si

pueden hacer

alguna sugerencia:

Cnx = Session("cnv")
Set rs = Server.CreateObject("ADODB.Recordset")

Sql = ""
Sql = Sql & " SELECT envio.id_sucursal, "
Sql = Sql & " envio.fechayhora, "
Sql = Sql & " envio.id_sucursal1, "
Sql = Sql & " envio.paquete, "
Sql = Sql & " recibo.paquete as paq_recibo "
Sql = Sql & " INTO #PASO "
Sql = Sql & " FROM actividad as envio LEFT JOIN

as recibo "

Sql = Sql & " ON envio.id_sucursal1 =

Sql = Sql & " and envio.id_sucursal =

recibo.id_sucursal1 "

Sql = Sql & " and envio.paquete = recibo.paquete "
Sql = Sql & " and recibo.tipo = 'recibo' "
Sql = Sql & " WHERE envio.id_sucursal ='cedis trc' "
Sql = Sql & " and envio.tipo ='envio' "
Sql = Sql & " and envio.fechayhora <= ' " & fecha1

Sql = Sql & " and envio.fechayhora >= ' " & fecha3

Sql = Sql & " GROUP BY envio.fechayhora,

envio.id_sucursal1,

envio.id_sucursal, envio.paquete, recibo.paquete "
Sql = Sql & " ORDER BY envio.id_sucursal1,

Sql = Sql & " "
Sql = Sql & " SELECT * "
Sql = Sql & " FROM #PASO "
Sql = Sql & " WHERE paq_recibo is NULL "

rs.Open Sql, Cnx

'AQUI MARCA EL ERROR
IF (rs.EOF AND rs.BOF) THEN

Response.Write "No se encontraron registros"

ELSE



Gracias y saludos!

.

.