ho questo codice:

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??