Mi ritrovo a dover impaginare un dataset.
Il mio problema è che nonostante passo la richiesta di visualizzare pagina 1 o pagina 2
il risultato a video sono sempre i primi due record...


sicuramente sbaglio qualcosa.


codice:
<%
RecordsPerPage = 2
Page = Request.QueryString("page")
If Len(page) > 0 And IsNumeric(page) Then
page = CLng(page)
Else
Page = 1
End If

Set DataList = CreateObject("ADODB.Recordset")
DataList.Fields.Append "nome", "200", 50
DataList.Open

'faccio le mie operazioni e creo il dataset
DataList.AddNew
DataList("nome_hotel") = nome_hotel
DataList("id_htl") = id
DataList("ctg") = ctg
DataList.Update

if datalist.eof then
response.write "<div id='titleCerca'>"
Response.write "Nessuna Struttura disponibile per il periodo richiesto in localita"
response.write "</div>"
else
'''''''''''''''''PAGINAZIONE PARAMETRI'''''''''''''''

DataList.AbsolutePage = Page
DataList.PageSize = RecordsPerPage

''''''''''''''''''BARRA NAVIGAZIONE''''''''''''''''''''''

For f = 1 To DataList.PageCount
If f = page Then
Response.Write "<span>[" & f & "] </span>"
Else
Response.Write "<a href='index.asp?page=" & f & ">" & f & "</a> "
End If
Next

'''''''''''''''''''''''''''''''''''''''''''''''''''''
response.write "Sono state trovati " & DataList.RecordCount & " voci "
DataList.Sort = "ctg"
For g = 1 To RecordsPerPage
response.write "DataList.Fields.Item("nome") &"
"
DataList.MoveNext
next

end if

%>