problema paginazione

[agenti]

ho questo codice:

RecordsPerPagina = 5 
page = Request("page") 
if page="" then page=1

 Set rec1 = Server.CreateObject("ADODB.Recordset")
 SQL="SELECT codoff from tabella1 WHERE tipo="& Chr(39) & request("tipo") & Chr(39) &" GROUP BY CODOFF "
 rec1.open SQL, conn, 1 , 3

if rec1.Eof=True or rec1.Bof=True then
response.write "nessun record"

else

rec1.PageSize = RecordsPerPagina
rec1.AbsolutePage = page

For i=1 to RecordsPerPagina


 Set rec = Server.CreateObject("ADODB.Recordset")
 strSql="SELECT * from tabella1 WHERE codoff="& rec1("codoff") &" "
 rec.open strsql, conn

response.write rec("codoff")
response.write "
"

rec1.movenext
next

Response.Write "

Pagine:" 
For pag=1 to rec1.PageCount
  Response.Write "<A href='"&istring&"?page=" & pag 
  Response.Write "&ricerca=" & Server.UrlEncode(strRicerca)
  Response.Write "&giorno=" & request("giorno")
  Response.Write "&mese=" & request("mese")
  Response.Write "&anno=" & request("anno")
  Response.Write "&posti=" & request("posti")
  Response.Write "&destinazione=" & request("destinazione")
  Response.Write "&tipoofferta=" & request("tipoofferta")
  Response.Write "&view=last"
  Response.Write "&disp=" & request("disp")
  Response.Write "&localita=" & request("localita")
  Response.Write "&inserisci="&ins&"" 
  Response.write "'>" 
  Response.write "<font size=1 color=#000080>"
  Response.Write pag
  Response.Write "</A> " 
Next
Response.Write ">>"
Response.Write "</P>" 
end if

il problema è che quando voglio visualizzare la pagina 2
mi da questo errore:

Tipo di errore:
(0x80020009)
Eccezione.
/lastfinale4/public/test_query.asp, line 55

linea 55 = strSql="SELECT * from tabella1 WHERE codoff="& rec1("codoff") &" "
Attenzione:
ho controllato il valore di rec1("codoff") non è nullo!

hai avete qualche idea??

[Roby_72]

Stampa la query a video.

Roby

[agenti]

Originariamente inviato da Roby_72
Stampa la query a video.

Roby

SELECT * from tabella1 WHERE codoff=189

[Roby_72]

Apri il recordset nella for ma non lo distruggi prima del Next.
Quindi lo apri sempre...

Roby

[agenti]

ho cercato di semplificare approcciando la cosa secondo il tuo suggerimento:

errore:
Tipo di errore:
(0x80020009)
Eccezione.
/lastfinale4/public/test_query.asp, line 51

riga 51 =strSql="SELECT * from offerte WHERE codoff="& rec1("codoff") &" "

non è questo il problema credo sia un problema di
questa parte del codice:
rec1.PageSize = RecordsPerPagina
rec1.AbsolutePage = page

di seguito la soluzione che va in errore.


<%
RecordsPerPagina = 5
page = Request("page")
if page="" then
page="1"
end if

Set rec1 = Server.CreateObject("ADODB.Recordset")
SQL="SELECT codoff from offerte WHERE tipoofferta="& Chr(39) & request("tipoofferta") & Chr(39) &" and destinazione="& Chr(39) & request("destinazione") & Chr(39) &" and localita="& Chr(39) & request("localita") & Chr(39) &" GROUP BY CODOFF "
rec1.open SQL, conn, 1 , 3

rec1.PageSize = RecordsPerPagina
rec1.AbsolutePage = page

For i=1 to RecordsPerPagina

Set rec = Server.CreateObject("ADODB.Recordset")
strSql="SELECT * from offerte WHERE codoff="& rec1("codoff") &" "
rec.open strsql, conn


%>

<%
response.write rec("codoff")
response.write "
"

rec1.movenext
rec.close
set rec=Nothing

next

Response.Write "

Pagine:"
For pag=1 to rec1.PageCount
Response.Write "<A href='"&istring&"?page=" & pag
Response.Write "&ricerca=" & Server.UrlEncode(strRicerca)
Response.Write "&giorno=" & request("giorno")
Response.Write "&mese=" & request("mese")
Response.Write "&anno=" & request("anno")
Response.Write "&destinazione=" & request("destinazione")
Response.Write "&tipoofferta=" & request("tipoofferta")
Response.Write "&localita=" & request("localita")
Response.write "'>"
Response.write "<font size=1 color=#000080>"
Response.Write pag
Response.Write "</A> "
Next
Response.Write ">>"
Response.Write "</P>"

rec1.close
set rec1 = Nothing

%>