PAginazione record disconnesso

[agenti]

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.

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

%>

[agenti]

Up... please....

[agenti]

re up....

[Santino83_02]

Ai posteri un esempio di impaginazione di un recordset disconnesso

set rs=server.CreateObject("adodb.recordset")
'CREO IL RECORDSET DISCONNESSO
rs.Fields.Append "prova", 200, 255
rs.open

'LO RIEMPIO CON QUALCOSA
for i=0 to 99
	rs.addnew
	rs("prova")="s" & i
	rs.update
next

pag=1
if request.QueryString("pag")<>"" then pag=cint(request.QueryString("pag"))

'LO IMPAGINO
rs.pagesize=10
rs.absolutepage=pag

'STAMPO I RECORD DELLA PAGINA "PAG"
for j=1 to 10
	if not rs.eof then
		response.write rs(0) & "
"
		rs.movenext
	end if
next

'STAMPO IL MENU DELLE PAGINE
response.Write("

pag:")
for i=1 to rs.PageCount
	response.write "" & i & " - "
next