
18/08/2006, 14:09
|
| | Fecha de Ingreso: abril-2004 Ubicación: México D.F.
Mensajes: 1.724
Antigüedad: 21 años Puntos: 4 | |
Cita:
Iniciado por heman25 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" "
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" "
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" "
response.write"</td>"
response.write"</tr>"
response.write"</table>"
end if
---
en el sector en rojo es donde me tira eror
Agradezco su ayuda... |