vorrei attivare questa funzione di paginazione risultati dei record di un database, tipo la paginazione di google.
Attualmente utilizzo le automazioni di dreamweaver per creare una paginazione che fa solo "avanti" o indietro" nei record trovati, ma il problema è che i record sono tantissimi e la funzione avanti e indietro non mi è molto utile.
Di seguito allego una pagina modello a cui vorrei applicare una paginazione tipo: "pagine > 1 2 3 4 5 ecc..." questa pagina attualmente non fa latro che prendermi i dati da un DB e visualizzarli, ma vorrei implementare una paginazione come ho citato prima
la pagina è la seguente:
<%@LANGUAGE="VBSCRIPT"%>
<!--#include virtual="Connections/barzelletteconnekt.asp" -->
<%
Dim Recordsetbarz__MMColParam
Recordsetbarz__MMColParam = "1"
If (Request.QueryString("varbarz") <> "") Then
Recordsetbarz__MMColParam = Request.QueryString("varbarz")
End If
%>
<%
Dim Recordsetbarz
Dim Recordsetbarz_numRows
Set Recordsetbarz = Server.CreateObject("ADODB.Recordset")
Recordsetbarz.ActiveConnection = MM_barzelletteconnekt_STRING
Recordsetbarz.Source = "SELECT * FROM [barzellette Query] WHERE categoria = '" + Replace(Recordsetbarz__MMColParam, "'", "''") + "'"
Recordsetbarz.CursorType = 0
Recordsetbarz.CursorLocation = 2
Recordsetbarz.LockType = 1
Recordsetbarz.Open()
Recordsetbarz_numRows = 0
%>
<%
Dim Repeat1__numRows
Dim Repeat1__index
Repeat1__numRows = 3
Repeat1__index = 0
Recordsetbarz_numRows = Recordsetbarz_numRows + Repeat1__numRows
%>
<% While ((Repeat1__numRows <> 0) AND (NOT Recordsetbarz.EOF)) %>
<%=(Recordsetbarz.Fields.Item("testo").Value)%></td>
<%
Repeat1__index=Repeat1__index+1
Repeat1__numRows=Repeat1__numRows-1
Recordsetbarz.MoveNext()
Wend
%>
<%
Recordsetbarz.Close()
Set Recordsetbarz = Nothing
%>
