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