absolutepage

[giannipie]

Ho un problema con la proprietà absolutepage, praticamente quando carico la pagina per la prima volta, va tutto bene, se provo a cliccare su una pagina successiva mi dà il seguente essore:


Il record corrente corrisponde all'inizio o alla fine del file oppure è stato eliminato. Per eseguire l'operazione richiesta è necessario disporre di un record corrente.

posto il codice:
...
val_pagina = trim(request("pagina"))
if val_pagina = "" then val_pagina = 1

strcliente = request.Form("cliente")
radiomod_cli = request.Form("mod_cli")
dim objconn
set objconn = server.createobject("adodb.connection")
objconn.connectionstring = "dsn=datamiletto.dsn"
objconn.open
dim objrs
set objrs = server.CreateObject("ADODB.Recordset")
objrs.pagesize = 15
dim strsql, strcampo
if not isnumeric(strcliente) then
strsql = "select * from integrazione where cliente like '%"& fixSQL(strcliente) & "%' order by cliente "
else
strsql = "select * from integrazione where [codice cliente] like '"& fixSQL(strcliente) & "' order by cliente "
end if
objrs.open strsql, objconn, adopenkeyset
objrs.absolutepage = val_pagina
response.Write "Ci sono " & objrs.recordcount & " clienti nella ricerca effettuata" & "
" & "
"

do while not objrs.eof and rowcount < objrs.pagesize
rowcount = rowcount + 1
if objrs.eof then
exit do
end if
'esegui il controllo per vedere se modificare intestazione generali o i codici di fatturazione

if radiomod_cli = "condizioni generali" then%>
" target="_self"><%=objrs("cliente")%>

<%else%>
" target="_self"><%=objrs("cliente")%>
<%end if
response.Write "
"
objrs.movenext

loop%>




pagine: [ <
<%dim icounter
for icounter = 1 to objrs.pagecount
if icounter <> cint(val_pagina) then%>
<%=icounter%>
<%else
response.write(icounter)
end if
next
objrs.close
set objrs = nothing
objconn.close
set objconn = nothing%> > ]

in grassetto c'è il codice interessato dall'errore. Ho provato a dare un valore al posto della variabile in questo modo:

objrs.absolutepage = 2

ed in effetti visualizza i record di quella pagina, ma non capisco perchè con il volore della variabile non funziona, neanche usando la funzione cint().

[Roby_72]

Devi testare che il recordset non sia vuoto prima di ciclarne i record, quindi questa
if objrs.eof then
va messa prima del do while...

Roby

[giannipie]

Ho fatto come hai detto tu, inserendo questo script:
if objrs.eof then
response.end()
end if
...prima di objrs.absolute = val_pagina

Il fatto che non esca errore interrompendosi lo script con response.end(), vuol dire che quando richiamo un'altra pagina, al ricaricarsi su se stessa non capisco come ma va alla fine del record, dandomi l'errore già detto alla riga di "objrs.absolute = val_pagina".
Sono ora che sto bloccato con questo script e non ne esco fuori...
Non posso che confidare nel vostro aiuto...

[Roby_72]

Nei link della paginazione non passi i parametri di ricerca cliente o codice cliente e quindi dalla pagina 2 non entra nel loop.

Roby

[giannipie]

mi hai anticipato di poco...
Infatti dopo un pomeriggio a capire quale fosse il problema, ho cancellato la seconda stringa sql e funziona.
grazie per l'aiuto, ora vedo come sistemare la stringa sql e far passare i valori del codice...