Tabla temporal y error 800a0e78

Sof?R.
26 de Noviembre del 2003
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 perfeccin y me devuelve como 100 registros, pero cuando lo quiero ejecutar me marca el error 800a0e78 y me dice que no puedo utilizar el objeto sin antes abrirlo...¡pero si est abierto!...¿alguna idea de por qu pasa esto?

Aqu les mando el cdigo que causa el problema:

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
...

Mario Parada
26 de Noviembre del 2003
La verdad es que no se pero ocupa este cdigo, que verifica que no este cerrada la conexin,

Do Until rs.State = adStateOpen
Set rs = rs.NextRecordset
Loop

si te funciona, quere decir que al hacer la consulta de alguna manera te cierra la conexin


rs.Open Sql, Cnx

'Usa aqu este codigo
Do Until rs.State = adStateOpen
Set rs = rs.NextRecordset
Loop

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

Response.Write "No se encontraron registros"

ELSE
...


PD: Espero que te sirva, saludos