Foros del Web » Programando para Internet » ASP Clásico »

Error con 2 recordsets

Estas en el tema de Error con 2 recordsets en el foro de ASP Clásico en Foros del Web. Buenas amigos. Tengo un problema. En un listado imprimo todos los valores obtenido por una consulta, a traves de un rs. En el mismo listado, ...
  #1 (permalink)  
Antiguo 18/08/2006, 14:00
 
Fecha de Ingreso: junio-2006
Mensajes: 80
Antigüedad: 18 años
Puntos: 0
Error con 2 recordsets

Buenas amigos. Tengo un problema. En un listado imprimo todos los valores obtenido por una consulta, a traves de un rs. En el mismo listado, dentro del bucle, quiero imprimir un valor relacionado al del renglon de la lista, con otro rs. El tema es que me da el siguiente error en la linea 138: ADODB.Recordset (0x800A0E79)
La operación no está permitida si el objeto está abierto.


Aqui les paso el codigo:


---
If Request.QueryString("pag")<>"" Then
pagina_actual=Request.QueryString("pag")

Else
pagina_actual=1
End If
'resultados por pagina a elegir arbitrariamente
num_registros = 15

if rs.eof then
response.redirect"busqueda.asp?msg_2=No%20existen% 20registros%20para%20la%20consulta%20seleccionada"
else
'escribo el html

'Dimensionamos las paginas y determinamos la pagina actual
rs.PageSize=num_registros
rs.AbsolutePage=pagina_actual
cantidad_campos = RS.Fields.Count

'///
response.write"<link href='estilos/estilos.css' rel='stylesheet' type='text/css'>"
response.write"<table width='90%' border='2' align='center' cellpadding='1' cellspacing='1' bordercolor='#FFFFFF' bgcolor='#F5F5F5'>"
response.write"<tr bgcolor='#006697'>"
response.write"<td colspan='6'><span class='Estilo2'>"
response.write"Busqueda / Consulta - Resultado"
response.write"</span></td>"
response.write"</tr>"
response.write"<tr bgcolor='#F5F5F5'>"
response.write"<td colspan='6'><span class='Estilo10'>"
response.write"&nbsp;"
response.write"</span></td>"
response.write"</tr>"
response.write"<tr bordercolor='#999999' bgcolor='#006697' class='Estilo10'>"
response.write"<td width='4%' class='Estilo2'>"
response.write"Tram."
response.write"</td>"
response.write"<td width='8%' class='Estilo2'>"
response.write"Nro Cont."
response.write"</td>"
response.write"<td width='25%' class='Estilo2'>"
response.write"Titular Osde"
response.write"</td>"
response.write"<td width='25%' class='Estilo2'>"
response.write"Benef.Pago"
response.write"</td>"
response.write"<td width='19%' class='Estilo2'>"
response.write"Fecha Vencimiento"
response.write"</td>"
response.write"<td width='22%' class='Estilo2'>"
response.write"Status"
response.write"</td>"
response.write"</tr>"

registros_mostrados = 0
While (Not rs.eof And registros_mostrados < num_registros)
registros_mostrados = registros_mostrados +1


id_paratit = rs.Fields("id_Cuenta")
sql_aux="SELECT beneficiarios.Apellido, beneficiarios.Nombre FROM beneficiarios WHERE es_titular ='SI' AND id_Cuenta = "&id_paratit&""

rs_auxi.Open sql_aux,Conn


tram= rs.fields("id_tramite")
response.write"<tr bordercolor='#999999'>"
response.write"<td bgcolor='#E7F1F6' class='Comun_mayus'>"
response.write"<a target='_self' href='proceso_edita_busqueda.asp?tramite=" & tram & "'>"
response.write(rs.fields("id_tramite"))
response.write"<a>"
response.write"</td>"
response.write"<td bgcolor='#E7F1F6' class='Comun_mayus'>"
response.write(rs.fields("id_Cuenta"))
response.write"</td>"
response.write"<td bgcolor='#E7F1F6' class='Comun_mayus'>"
response.write(rs_auxi.fields("Apellido"))&" "&(rs_auxi.fields("Nombre"))
response.write"</td>"
response.write"<td bgcolor='#E7F1F6' class='Comun_mayus'>"
response.write(rs.fields("Apellido")&" "&rs.fields("Nombre"))
response.write"</td>"
response.write"<td bgcolor='#E7F1F6' class='Comun_mayus'>"
response.write(rs.fields("fecha_venc"))
response.write"</td>"
response.write"<td bgcolor='#E7F1F6' class='Comun_mayus'>"
response.write(rs.fields("status"))
response.write"</td>"
response.write"</tr>"
rs.movenext

wend
response.write"<tr>"
response.write"<td colspan='6'><div align='center'><span class='estilo2'>"
response.write"&nbsp;"
response.write"</font></span></div></td>"
response.write"</tr>"
response.write"<tr>"
response.write"<td colspan='6'><div align='center'><span class='pagina'>"
Response.write"Total cheques: "
response.write rs.recordcount
response.write "<img src='imagenes/separador_gris_claro.jpg' width='25' height='8'>"
response.write "<img src='imagenes/separador_gris_claro.jpg' width='25' height='8'>"
i=0
While i<RS.PageCount
i=i+1

response.write"<a href='resultado_busqueda.asp?pag=" & i & "'><span class='pagina'>"
response.write(i)
response.write"</span></a>"
response.write" "
wend
'response.write" de "
'response.write rs.PageCount
'response.write" paginas totales "
response.write "<img src='imagenes/separador_gris_claro.jpg' width='25' height='8'>"
response.write "<img src='imagenes/separador_gris_claro.jpg' width='25' height='8'>"

response.write"Página Actual: "
response.write pagina_actual
response.write"</font></span></span></div></td>"
response.write"</tr>"
response.write"<tr>"
response.write"<td colspan='6'>"
response.write"&nbsp;"
response.write"</td>"
response.write"</tr>"
response.write"</table>"
end if
---

en el sector en rojo es donde me tira eror
Agradezco su ayuda...
  #2 (permalink)  
Antiguo 18/08/2006, 14:09
 
Fecha de Ingreso: abril-2004
Ubicación: México D.F.
Mensajes: 1.724
Antigüedad: 20 años, 1 mes
Puntos: 4
Cita:
Iniciado por heman25 Ver Mensaje
Buenas amigos. Tengo un problema. En un listado imprimo todos los valores obtenido por una consulta, a traves de un rs. En el mismo listado, dentro del bucle, quiero imprimir un valor relacionado al del renglon de la lista, con otro rs. El tema es que me da el siguiente error en la linea 138: ADODB.Recordset (0x800A0E79)
La operación no está permitida si el objeto está abierto.

Aqui les paso el codigo:


---
If Request.QueryString("pag")<>"" Then
pagina_actual=Request.QueryString("pag")

Else
pagina_actual=1
End If
'resultados por pagina a elegir arbitrariamente
num_registros = 15

if rs.eof then
response.redirect"busqueda.asp?msg_2=No%20existen% 20registros%20para%20la%20consulta%20seleccionada"
else
'escribo el html

'Dimensionamos las paginas y determinamos la pagina actual
rs.PageSize=num_registros
rs.AbsolutePage=pagina_actual
cantidad_campos = RS.Fields.Count

'///
response.write"<link href='estilos/estilos.css' rel='stylesheet' type='text/css'>"
response.write"<table width='90%' border='2' align='center' cellpadding='1' cellspacing='1' bordercolor='#FFFFFF' bgcolor='#F5F5F5'>"
response.write"<tr bgcolor='#006697'>"
response.write"<td colspan='6'><span class='Estilo2'>"
response.write"Busqueda / Consulta - Resultado"
response.write"</span></td>"
response.write"</tr>"
response.write"<tr bgcolor='#F5F5F5'>"
response.write"<td colspan='6'><span class='Estilo10'>"
response.write"&nbsp;"
response.write"</span></td>"
response.write"</tr>"
response.write"<tr bordercolor='#999999' bgcolor='#006697' class='Estilo10'>"
response.write"<td width='4%' class='Estilo2'>"
response.write"Tram."
response.write"</td>"
response.write"<td width='8%' class='Estilo2'>"
response.write"Nro Cont."
response.write"</td>"
response.write"<td width='25%' class='Estilo2'>"
response.write"Titular Osde"
response.write"</td>"
response.write"<td width='25%' class='Estilo2'>"
response.write"Benef.Pago"
response.write"</td>"
response.write"<td width='19%' class='Estilo2'>"
response.write"Fecha Vencimiento"
response.write"</td>"
response.write"<td width='22%' class='Estilo2'>"
response.write"Status"
response.write"</td>"
response.write"</tr>"

registros_mostrados = 0
While (Not rs.eof And registros_mostrados < num_registros)
registros_mostrados = registros_mostrados +1


id_paratit = rs.Fields("id_Cuenta")
sql_aux="SELECT beneficiarios.Apellido, beneficiarios.Nombre FROM beneficiarios WHERE es_titular ='SI' AND id_Cuenta = "&id_paratit&""

rs_auxi.Open sql_aux,Conn

tram= rs.fields("id_tramite")
response.write"<tr bordercolor='#999999'>"
response.write"<td bgcolor='#E7F1F6' class='Comun_mayus'>"
response.write"<a target='_self' href='proceso_edita_busqueda.asp?tramite=" & tram & "'>"
response.write(rs.fields("id_tramite"))
response.write"<a>"
response.write"</td>"
response.write"<td bgcolor='#E7F1F6' class='Comun_mayus'>"
response.write(rs.fields("id_Cuenta"))
response.write"</td>"
response.write"<td bgcolor='#E7F1F6' class='Comun_mayus'>"
response.write(rs_auxi.fields("Apellido"))&" "&(rs_auxi.fields("Nombre"))
response.write"</td>"
response.write"<td bgcolor='#E7F1F6' class='Comun_mayus'>"
response.write(rs.fields("Apellido")&" "&rs.fields("Nombre"))
response.write"</td>"
response.write"<td bgcolor='#E7F1F6' class='Comun_mayus'>"
response.write(rs.fields("fecha_venc"))
response.write"</td>"
response.write"<td bgcolor='#E7F1F6' class='Comun_mayus'>"
response.write(rs.fields("status"))
response.write"</td>"
response.write"</tr>"
rs.movenext
rs_auxi.CLOSE
wend
response.write"<tr>"
response.write"<td colspan='6'><div align='center'><span class='estilo2'>"
response.write"&nbsp;"
response.write"</font></span></div></td>"
response.write"</tr>"
response.write"<tr>"
response.write"<td colspan='6'><div align='center'><span class='pagina'>"
Response.write"Total cheques: "
response.write rs.recordcount
response.write "<img src='imagenes/separador_gris_claro.jpg' width='25' height='8'>"
response.write "<img src='imagenes/separador_gris_claro.jpg' width='25' height='8'>"
i=0
While i<RS.PageCount
i=i+1

response.write"<a href='resultado_busqueda.asp?pag=" & i & "'><span class='pagina'>"
response.write(i)
response.write"</span></a>"
response.write" "
wend
'response.write" de "
'response.write rs.PageCount
'response.write" paginas totales "
response.write "<img src='imagenes/separador_gris_claro.jpg' width='25' height='8'>"
response.write "<img src='imagenes/separador_gris_claro.jpg' width='25' height='8'>"

response.write"Página Actual: "
response.write pagina_actual
response.write"</font></span></span></div></td>"
response.write"</tr>"
response.write"<tr>"
response.write"<td colspan='6'>"
response.write"&nbsp;"
response.write"</td>"
response.write"</tr>"
response.write"</table>"
end if
---

en el sector en rojo es donde me tira eror
Agradezco su ayuda...
  #3 (permalink)  
Antiguo 18/08/2006, 14:45
 
Fecha de Ingreso: junio-2006
Mensajes: 80
Antigüedad: 18 años
Puntos: 0
muchas gracias por la ayuda brindada!
Atención: Estás leyendo un tema que no tiene actividad desde hace más de 6 MESES, te recomendamos abrir un Nuevo tema en lugar de responder al actual.
Respuesta




La zona horaria es GMT -6. Ahora son las 22:11.