ADODB.Recordset error '800a0e79'

[iWolf]

Hola... este mensaje ya lo habia puesto hace unos dias..solo que le puse como titulo (AYUDA PLEASE!!!) oviamente mal por mi, ya que uno debe de ser mas explicito en los titulos de los mensajes...asi que les pido una disculpa....

Pero bueno ya entrando en materia... el mensaje decia lo siguiente:

Tengo un problema que la verdad no se como resolver... de hecho he buscado aqui en el foro algun problema similar pero tampoco pude encontrar la solucion...el problema es el siguiente:

Al intentar abrir una pagina asp me marca el siguiente error:

ADODB.Recordset error '800a0e79'

Operation is not allowed when the object is open.

/AplicarPagos.asp, line 32

si vi que aqui en el foro tratan este tema pero no me ayudo mucho ... el codigo de la pag. es el siguiente:

<%
Response.Expires = 0
Response.ExpiresAbsolute = Now() - 1
Response.AddHeader "pragma","no-cache"
Response.Buffer = true
Response.AddHeader "cache-control","private"
Response.CacheControl = "no-cache"

Pol = Request.Form("Pol")
idp = Request.Form("idp")
ida = Request.Form("ida")

set cna=Server.CreateObject("ADODB.Connection")
set cne=Server.CreateObject("ADODB.Connection")
set rs1=Server.CreateObject("ADODB.Recordset")
set rs2=Server.CreateObject("ADODB.Recordset")
set rs3=Server.CreateObject("ADODB.Recordset")
set rs4=Server.CreateObject("ADODB.Recordset")

strcn = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("/CGI-BIN/ASEGURADORAII.mdb")
cna.Open strcn

strcn = "DRIVER={Microsoft Excel Driver (*.xls)};DBQ=" & Server.MapPath("/CGI-BIN/" & Pol & ".xls")
cne.Open strcn

SQL = "SELECT * FROM ACTIVOS;"
rs1.Open SQL,cne,3,3

Do While Not rs1.EOF
if Rfc <> rs1("RFC") then
SQL = "SELECT RFC,PRIMA_QUINCENAL,FBAJA FROM TITULARES WHERE POLIZA = '" & Pol & "' AND RFC = '" & rs1("RFC") & "';"
rs2.Open SQL,cna,3,3 ---------------------------------- Linea 32......

esta ultima linea es la linea 32 donde segun esta el error...
alguien puede decirme que esta pasando???.........
por que eh revisado todo el codigo y yo creo que no tiene problemas, ademas en ningun momento he abierto el objeto antes de usarlo o abrirlo como dice el error...

lo que intento hacer es lo siguiente: estoy creando dos conecciones , una para abrir una BD de Access y otra para abrir un archivo de Excel.. lo que quiero hacer es pasar informacion del archivo de Excel a la Base... esto implica que voy a hacer multiples inserciones y actualizaciones....

Bueno amigos espero me puedan ayudar.....

NOTA: no es de forma local.... esto esta en un hosting...

[u_goldman]

Do While Not rs1.EOF
if Rfc <> rs1("RFC") then
SQL = "SELECT RFC,PRIMA_QUINCENAL,FBAJA FROM TITULARES WHERE POLIZA = '" & Pol & "' AND RFC = '" & rs1("RFC") & "';"
rs2.Open SQL,cna,3,3 ---------------------------------- Linea 32......

Si te fijas aquí tienes ese recordset dependiendo de un ciclo...
Haz mientras que no sea fin de archivo de rs1
.
.
.
Abres rs2
Ejecutas tus procedimientos con el rs2
.
.
Tienes que cerrar el rs2 antes de volver a abrirlo
rs2.close
Regresa


Salu2,

[iWolf]

Amigo... no cabe duda que ahora si me pase de listo.... .... he revisado el codigo y tenias razon no habia cerrado el recordset ..... lo que paso es que como lo abro y lo cierro varias veces se me paso cerrarlo en la ultima....... .... pero bueno .... muchas gracias por tu ayuda.... .....

Saludos y cuidate...

[u_goldman]

Son de las cosas que siempre se olvidan, a mi siempre se me olvida por ejemplo recorrer el rs en un loop, y me acuerdo hasta que se queda trabado el explorer

Salu2,