ho utilizzato questo script per paginare i risultati di un recordset.
programmazione ASP e database MySQL.
ma non mi prende l'istruzione 'Rs.AbsolutePage = Page e se la tolgo non mi fa vedere i numeri delle pagine.
sapete aiutarmi?
<%
RecordsPerPage = 10
Page = Request.QueryString("page")
If Len(page) > 0 And IsNumeric(page) Then
page = CLng(page)
Else
Page = 1
End If
'connessione al db
Set Rs = Server.CreateObject("ADODB.Recordset")
sql = "SELECT * FROM prodotti ORDER BY idprodotto"
Rs.Open sql, Conn, 1, 3
If Rs.EOF Then
Response.Write "La categoria selezionata, al momento non ha prodotti."
Else
Rs.PageSize = RecordsPerPage
'Rs.AbsolutePage = Page
%>
pagine prodotti:</span>
<%
'script che crea i link delle pagine
For i = 1 To Rs.PageCount
If i = page Then
Response.Write "<span>[" & i & "]</span>"
Else
Response.Write "" & i & ""
End If
Next
%>
<%
For x = 1 To RecordsPerPage
If Not Rs.EOF Then
%>
<%
Response.write rs.fields("nomeprodotto").value & "
"
%>
<%
Rs.MoveNext
End If
Next
end if
%>

Rispondi quotando