89 messaggi dal 25 novembre 2001
verrei trasformare questo script che mi crea la paginazione dei records :

<%

' RISULTATI TOTALI
SQLCount = "SELECT COUNT(*) as totale FROM Ricerca WHERE Descrizione" &_
" LIKE '%" & strRicerca & "%'"

set rsCount = Conn.Execute(SQLCount)
totale = rsCount("totale")
rsCount.Close
set rsCount = Nothing

' PAGINE TOTALI
maxpages = totale \ RecordsPerPagina

' correzione di eventuali imprecisioni
if totale mod RecordsPerPagina <> 0 then
maxpages = maxpages + 1
end if

' TUTTE LE PAGINE

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

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

Response.Write pag

Response.Write "</A> "

Next

Response.Write "</P>"

%>

Dovrei fare in modo che la barra delle pagine mi visualizzi 5 pagine alla volta.
es: << < ... 3 4 5 6 7 ... > >>
ho provato in questo modo :



code:--------------------------------------------------------------------------------' PAGINE TOTALI
maxpages = totale \ RecordsPerPagina

' correzione di eventuali imprecisioni
if totale mod RecordsPerPagina <> 0 then
maxpages = maxpages + 1
end if
Dim pages, da_pag, fino_a_pag, I
pages = Request.QueryString("page")
If pages = 0 Then
pages = 1
End If
%>
<b>[
<%if pages-2 > 0 and maxpages > 2 then%>
<a href="catalogo_tutti.asp?tscat=<%=TSCategoria%>&scat=<%=QSSCategoria%>&cat=<%=QSCategoria%>&ordinaper=<%=QSOrdinaPer%>&page=1&tipo=<%=tipo%>&provincia=<%=provincia%>"><img border="0" src="images/first.gif" valign="middle" alt="Prima"></a>
<%end if%>
<%if pages > 1 then%>
<a href="catalogo_tutti.asp?tscat=<%=TSCategoria%>&scat=<%=QSSCategoria%>&cat=<%=QSCategoria%>&ordinaper=<%=QSOrdinaPer%>&page=<%=pages-1%>&tipo=<%=tipo%>&provincia=<%=provincia%>"><img border="0" src="images/pre.gif" valign="middle" alt="Precedente"></a>
<%end if%>
<%if maxpages > 2 then
if pages-2 < 1 then da_pag = 1 else da_pag = pages-2
if pages+2 > maxpages then fino_a_pag = maxpages else fino_a_pag = pages+2
else
da_pag = 1
fino_a_pag = maxpages
end if%>
<%for i = da_pag to fino_a_pag%>
<%if i = pages then%>
<font color="red"><%=i%></font>
<%else%>
<a href="catalogo_tutti.asp?tscat=<%=TSCategoria%>&scat=<%=QSSCategoria%>&cat=<%=QSCategoria%>&ordinaper=<%=QSOrdinaPer%>&tipo=<%=tipo%>&provincia=<%=provincia%>&page=<%=i%>"><%=i%></a>
<%end if%>
<%next%>
<%if pages > 0 and pages < maxpages then%>
<a href="catalogo_tutti.asp?tscat=<%=TSCategoria%>&scat=<%=QSSCategoria%>&cat=<%=QSCategoria%>&ordinaper=<%=QSOrdinaPer%>&tipo=<%=tipo%>&provincia=<%=provincia%>&page=<%=pages+1%>"><img border="0" src="images/next.gif" valign="middle" alt="Successiva"></a>
<%end if%>
<%if pages < maxpages then%>
<a href="catalogo_tutti.asp?tscat=<%=TSCategoria%>&scat=<%=QSSCategoria%>&cat=<%=QSCategoria%>&ordinaper=<%=QSOrdinaPer%>&tipo=<%=tipo%>&provincia=<%=provincia%>&page=<%=maxpages%>"><img border="0" src="images/last.gif" valign="middle" alt="Ultima"></a>
<%end if%>
]</b>
</font>--------------------------------------------------------------------------------


Ma non funziona bene.
un aiuto perfavore

Mino
guarda lo #261

Daniele Bochicchio | ASPItalia.com | Libri
Chief Operating Officer@iCubed
Microsoft Regional Director & MVP

Torna al forum | Feed RSS

ASPItalia.com non è responsabile per il contenuto dei messaggi presenti su questo servizio, non avendo nessun controllo sui messaggi postati nei propri forum, che rappresentano l'espressione del pensiero degli autori.