ciao Daniele;
ho provato lo script #208 ( Utilizzare la paginazione come i motori di ricerca ) e funziona bene; volevo però integrare lo script #261 (Mostrare solo n pagine con la paginazione ) ma il risultato è stato scadente in quanto anzicchè vedere il link >>, ottengo una serie di TrueTrueTrueFalse;
Saresti così gentile da spiegarmi precisamente come inserirlo?
Grazie

Ric

<%
RecordsPerPagina = 5
page = Request("page")
if page="" then page=1

Set Conn = Server.CreateObject("ADODB.Connection")
conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("fpdb\users.mdb")

' STRINGA SQL
'strRicerca = Request("ricerca")
Set rs = Server.CreateObject("ADODB.Recordset")
SQL = "SELECT * FROM ordini "

'apri recordset con valore 1,3
rs.open sql, conn, 1, 3

' paginazione
rs.PageSize = RecordsPerPagina
rs.AbsolutePage = page

If rs.Eof=True or rs.Bof=True then
Response.Write "<P>Nessun risultato trovato</P>"
Else

For i=1 to RecordsPerPagina

if Not rs.EOF then
'mostra record
%>
<%=rs("ID")%><br>
<%
rs.MoveNext
end if
Next
End if
%>
<%
page = rs.AbsolutePosition
totPag = rs.PageSize
Max = 10

startPage = page
EndPage = page + max

' qualche controllo
if EndPage> totPage then EndPage = totPage

for i = StartPage to EndPage

Response.write "<a href=""prova_paginazione.asp?page="" & i & """>"" &_
i & "</a> "
next

if page <= totpage then
Response.write "<a href=""prova_paginazione.asp?page="" & page+1 & """>"" &_
">></a> "

end if

%>
<%

Response.Write "<P><B>Pagine:</B> "
For pag=1 to rs.PageCount

Response.Write "<A href='prova_paginazione.asp?page=" & pag
Response.Write "&ricerca=" & Server.UrlEncode(strRicerca)
Response.write "'>"

Response.Write pag

Response.Write "</A> "

Next

Response.Write "</P>"

%>


Ric

..grazie per l'aiuto, comunque non va ugualmente, nel senso che non mi appare più la scritta TrueTrueTrue, però è come se lo script #261 non ci fosse;
comunque non fa niente, ho risolto diversamente. Grazie

Ric