numerazione pagine

[dpal]

Ciao,
ho una pagina che interroga il database.

La pagina dei risultati contiene n. 5 risultati:
se i risultati della ricerca sono superiori, vengono indicate, progressivamente, le pagine successive.

In linea di massima tutto funziona bene ma, quando i risultati, per esempio, sono 100, appaiono n.20 pagine.

esempio:
1, 2, 3, 4, 5, 6, 7, ecc.ecc.


Ci sarebbe la possibilità di eliminare i numeri che, progressivamente, indicano le varie pagine dei risultati ed avere una risposta che indichi il numero della pagina presenti e il numero di pagine totali con la possibilità d andare avanti - indietro?

esempio:
<- pag. 2 di 20 ->

Grazie

[maximum]

Cerca "paginazione" qui nel forum.
Ce ne stanno valanghe di script che fanno al caso tuo.

[dpal]

Grazie per il suggerimento.

In effetti avevo già scaricato e modificato uno script

<center>
<table>
<tr valign="middle">
<td width="50%" align="center" valign="middle"><font face="verdana" size="1" color="#000000">
[[img]../images/first.gif[/img]
<%if iPageCurrent > 1 then%>
[img]../images/pre.gif[/img]</a>
<%end if%>

<%for i = da_pag to fino_a_pag%>
<%if i = iPageCurrent then%>
<font color="red"><%=i%></font>
<%else%>
<%end if%>
<%next%>
<%if iPageCurrent > 0 and iPageCurrent < iPageCount then%>

[img]../images/next.gif[/img]
<%end if%>
<%if iPageCurrent+1 < iPageCount then%> [img]../images/last.gif[/img]
<%end if%>]
</font></td>
</tr>
<tr>
<td colspan="2" align="center"><font face="verdana" size="1" color="#000000"
<center>
Pagina
<font color="#FF0000"><%=iPageCurrent%></font>
di
<font color="#FF0000"><%=iPageCount%></font>
</center>
</font></td>
</tr>
</table>
</center>


Il problema è che lo script visualizza un numero di righe pari alle pagine risultanti dalla ricerca; mi spiego meglio:
se la la query ha come risultato 5 pagine, vengono visualizzate 5 righe :master:
vedi la pagina:
http://www.dirittoeprogetti.it/temi/pa_doc_1.asp


Puoi indicarmi l'errore o uno script simile?
(anche quello che visualizza le pagine del Forum andrebbe a pennello)

Ringrazio anticipatamente.

[maximum]

Non è che prima dello script che hai postato sopra, c'è un ciclo for da qualche parte.
Perchè quello che hai postato non restituisce quello che vedo e cioè la visualizzazione di 5 volte la paginazione.

[dpal]

Si, in effetti c'è questo ciclo

<%
For x=1 to iPageCount
%>

Come faccio a correggere X=1????

Grazie. :master:

[santino83]

prima del ciclo for

[code]
<%
for i=1 to rs.pagecount
%>
<%= i %>
<%
next
%>
[/cod]
e dopo ti troverai

<%
For x=1 to iPageCount 
%>

[supergeniux]

<% 
response.write "Pagina "&recordset.AbsolutePage&" di "&recordset.PageCount&"
%>

[dpal]

Ciao,
ringrazio tutti per l'aiuto ma... proprio non vuol funzionare.

Mi date una mano?
Grazie in anticipo



<%
iPageSize = 10

If Request.QueryString("page") = "" Then
iPageCurrent = 1
Else
iPageCurrent = CInt(Request.QueryString("page"))
End If

If Request.QueryString("order") = "" Then
strOrderBy = "id"
Else
strOrderBy = Request.QueryString("order")
End If

url_DB = "driver={Microsoft Access Driver (*.mdb)};dbq=" & server.mappath("/mdb-database/database.mdb")

Set Conn = Server.CreateObject("ADODB.Connection")
conn.Open url_DB

Set RS = Server.CreateObject("ADODB.Recordset")

pa_doc = "pa_doc"
sql = "SELECT * FROM GIURIS WHERE AT_3 = '"& pa_doc &"' ORDER BY data DESC;"

RS.Open sql, conn, adOpenKeyset
RS.PageSize = iPageSize

RS.CacheSize = iPageSize

iPageCount = RS.PageCount
If iPageCurrent > iPageCount Then iPageCurrent = iPageCount
If iPageCurrent < 1 Then iPageCurrent = 1

If iPageCount = 0 Then
%></p>

<%
Else

RS.AbsolutePage = iPageCurrent
iRecordsShown = 0
%>
<table border="0" cellpadding="0" cellspacing="10" width="98%" style="border-collapse: collapse" bordercolor="#111111">
<%
Do While iRecordsShown < iPageSize And Not RS.EOF
%>
<tr>
<td width="2%" valign="top">

<color="#000080">
<font SIZE="2">
<span style="font-style: normal; font-weight: 700">

<b [img]../box/images1/new.gif[/img]

[img]../box/fisco/ICI/puntoelenco_1.gif[/img][/b]</span></font></td>
<td width="86%"><font face="Verdana" size="1">"><%=RS("titolo")%>

<%=RS("titolo_1")%> </font></td>
<td width="12%">
<p align="right"><font face="Verdana" size="2"> <%=RS("data")%></font></td>
</tr>
<%
iRecordsShown = iRecordsShown + 1
RS.MoveNext
Loop
%>
</table>

<%
for i=1 to rs.pagecount
%>
<%= i %>
<%
next
%>
[/cod]

[code]
<%
For x=1 to iPageCount
%>

<center>
<table>
<tr valign="middle">
<td width="50%" align="center" valign="middle"><font face="verdana" size="1" color="#000000">
[[img]../images/first.gif[/img]
<%if iPageCurrent > 1 then%>
[img]../images/pre.gif[/img]</a>
<%end if%>

<%for i = da_pag to fino_a_pag%>
<%if i = iPageCurrent then%>
<font color="red"><%=i%></font>
<%else%>

<%end if%>
<%next%>
<%if iPageCurrent > 0 and iPageCurrent < iPageCount then%>
[img]../images/next.gif[/img]
<%end if%>
<%if iPageCurrent+1 < iPageCount then%> [img]../images/last.gif[/img]
<%end if%>
]
</font></td>
</tr>
<tr>
<td colspan="2" align="center"><font face="verdana" size="1" color="#000000">
<center>
Pagina
<font color="#FF0000"><%=iPageCurrent%></font>
di

<font color="#FF0000"><%=iPageCount%></font>
</center>
</font></td>
</tr>
</table>
</center>
<%
next
%>

[maximum]

Prova così:

<% 
iPageSize = 10 

If Request.QueryString("page") = "" Then 
iPageCurrent = 1 
Else 
iPageCurrent = CInt(Request.QueryString("page")) 
End If 

If Request.QueryString("order") = "" Then 
strOrderBy = "id" 
Else 
strOrderBy = Request.QueryString("order") 
End If 

url_DB = "driver={Microsoft Access Driver (*.mdb)};dbq=" & server.mappath("/mdb-database/database.mdb") 

Set Conn = Server.CreateObject("ADODB.Connection") 
conn.Open url_DB 

Set RS = Server.CreateObject("ADODB.Recordset") 

pa_doc = "pa_doc" 
sql = "SELECT * FROM GIURIS WHERE AT_3 = '"& pa_doc &"' ORDER BY data DESC;" 

RS.Open sql, conn, adOpenKeyset 
RS.PageSize = iPageSize 

RS.CacheSize = iPageSize 

iPageCount = RS.PageCount 
If iPageCurrent > iPageCount Then iPageCurrent = iPageCount 
If iPageCurrent < 1 Then iPageCurrent = 1 

If iPageCount = 0 Then 
%></p> 

<% 
Else 

RS.AbsolutePage = iPageCurrent 
iRecordsShown = 0 
%> 
<table border="0" cellpadding="0" cellspacing="10" width="98%" style="border-collapse: collapse" bordercolor="#111111"> 
<% 
Do While iRecordsShown < iPageSize And Not RS.EOF 
%> 
<tr> 
<td width="2%" valign="top"> 

<color="#000080"> 
<font SIZE="2"> 
<span style="font-style: normal; font-weight: 700"> 

<b [img]../box/images1/new.gif[/img] 

[img]../box/fisco/ICI/puntoelenco_1.gif[/img][/b]</span></font></td> 
<td width="86%"><font face="Verdana" size="1">"><%=RS("titolo")%> 

<%=RS("titolo_1")%> </font></td> 
<td width="12%"> 
<p align="right"><font face="Verdana" size="2"> <%=RS("data")%></font></td> 
</tr> 
<% 
iRecordsShown = iRecordsShown + 1 
RS.MoveNext 
Loop 
%> 
</table> 

<% 
for i=1 to rs.pagecount 
%> 
<%= i %> 
<% 
next 
%> 
<center> 
<table> 
<tr valign="middle"> 
<td width="50%" align="center" valign="middle"><font face="verdana" size="1" color="#000000"> 
[ [img]../images/first.gif[/img]  
<%if iPageCurrent > 1 then%> 
 [img]../images/pre.gif[/img]</a>  
<%end if%> 

<%for i = da_pag to fino_a_pag%> 
<%if i = iPageCurrent then%> 
 <font color="red"><%=i%></font>  
<%else%> 

<%end if%> 
<%next%> 
<%if iPageCurrent > 0 and iPageCurrent < iPageCount then%> 
 [img]../images/next.gif[/img]  
<%end if%> 
<%if iPageCurrent+1 < iPageCount then%>  [img]../images/last.gif[/img]  
<%end if%> 
] 
</font></td> 
</tr> 
<tr> 
<td colspan="2" align="center"><font face="verdana" size="1" color="#000000"> 
<center> 
Pagina  
<font color="#FF0000"><%=iPageCurrent%></font> 
 di  

<font color="#FF0000"><%=iPageCount%></font> 
</center> 
</font></td> 
</tr> 
</table> 
</center>

[dpal]

Ok, provo e ti faccio sapere,
comunque grazie in anticipo.