faccio una qry con paginazione ma mi "perde" il recordset quando cambio pagina
non capisco xchè
l'errore è :
<code>Microsoft VBScript runtime error '800a01a8'
Object required: 'rsx'
dettaglio_movimenti2.asp, line 273 </code>
la riga 273 è "rsx.close"
<code>
if data_a <>"" then
Session("data_a")= data_a
Session("data_b") =data_b
session("iper") = iper
else
data_a = Session("data_a")
data_b = session("data_b")
iper = session("iper")
end if
Dim conn
set Conn=Server.CreateObject("ADODB.Connection")
Conn.Open "dsn=MVNO;uid=oradwh;pwd=oracle;"
set rsx=server.createobject("ADODB.recordset")
'^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^paging
perpage=1
rsx.cachesize=perpage
rsx.cursorlocation=3
'^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^paging
qryz="SELECT ANAG.CLNT_CD TESSERA ,ANAG.DP_FL_STAT DP_FL_STAT, decode(TRAN.DP_TP_OPRZ,'AT','AGGIUNTA CREDITO','DT','DECREMENTO CREDITO','AN','SBLOCCO TRANSAZIONE','RC','STAMPA COUPON') TIPO_OPRZ, CAUSALE.DP_DE_OPRZ DESC_CAUS ,decode(TRAN.DP_TP_OPRZ,'AT',TRAN.DP_DT_INSR,'DT', TRAN.DP_DT_INSR,'AN',TRAN.DP_DT_VARZ,'RC',TRAN.DP_ DT_INSR) DATA_MOV , decode(TRAN.DP_TP_OPRZ,'DT', - DP_VL_TRFF, 'RC', - DP_VL_TRFF, DP_VL_TRFF) DP_VL_TRFF , decode(TRAN.DP_TP_OPRZ,'AT',TRAN.DP_CD_OPRT,'DT',T RAN.DP_CD_OPRT,'AN',TRAN.OPRT_CD,'RC',TRAN.DP_CD_O PRT) UTENTE, TRAN.DP_CD_OPRZ, TRAN.NOTE NOTE FROM MVNO_CLNT_TRAN TRAN,MVNO_CLNT_ANAG ANAG , MVNO_CASL CAUSALE WHERE TRAN.CLNT_CD = ANAG.CLNT_CD AND ANAG.ENTE_CD = '"&iper&"' AND TRAN.dp_tp_oprz <> 'EL' AND to_char(decode(TRAN.DP_TP_OPRZ,'AT',TRAN.DP_DT_INS R,'DT',TRAN.DP_DT_INSR,'AN',TRAN.DP_DT_VARZ,'RC',T RAN.DP_DT_INSR),'YYYYMMDD') between '"&data_a&"' and '"&data_b&"' AND TRAN.DP_CD_OPRZ = CAUSALE.DP_CD_OPRZ AND TRAN.DP_TP_OPRZ = CAUSALE.DP_TP_OPRZ order by ANAG.CLNT_CD,decode(TRAN.DP_TP_OPRZ,'AT',TRAN.DP_D T_INSR,'DT',TRAN.DP_DT_INSR,'AN',TRAN.DP_DT_VARZ,' RC',TRAN.DP_DT_INSR) desc"
rsx.Open qryz,conn
record = 1
if rsx.eof then
%>
<%
else
%>
<%
'************************************************* ************************************************** *****paging
rsx.pagesize=perpage
dim ltot: ltot=rsx.recordcount
dim lpagine: lpagine=rsx.pagecount
dim ipg: ipg=cint(request.querystring("pg"))
if ipg=0 then ipg=1
if ipg>lpagine then ipg=lpagine
rsx.absolutepage=ipg
dim rowcount: rowcount=perpage
'************************************************* ************************************************** *****paging
while not rsx.EOF AND rowcount >0
%>
stampo i dati
<%
rowcount=rowcount-1
rsx.MoveNext
record=record +1
wend
'^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ^^^^^^^^^^^^^^^^^^^^^^^^^^
%>
<%
dim a
for a=1 to ipg -1
%>
"><%=a%>
<%
next
response.write "" & ipg & ""
for a=ipg + 1 to lpagine
%>
"><%=a%>
<%
next
'************************************************* ******************************paging
%>
<%
'^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ^^^^^^^^^^^^^^^^^^^^^^^^^^
%>
</table>
</form>
<%
end if
end if
end if
rsx.close 'l'errore è segnalato su questa riga
set rsx=nothing
conn.close
set conn=nothing
%>
</code>
Rispondi quotando
