Problema :
uso un database per le news e vorrei che dopo 15 news vada in un altra pagina (insomma uscire un link prossime 15 news / precedenti 15 news...)
come faccio ?

ciao e grazie in anticipo :)

Questo è los cript base per la paginazione .... adesso sta a te personalizzarlo !!!
Per wualsasi problema posta pure o nel form o nella mia e-mail !!!
-----------------------
<%dim conn, strConn

strConn = "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("annunci.mdb")

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

'PAGINAZIONE

Dim page, strRicerca, SQL, RecordsPerPagina, TotalRecords

RecordsPerPagina = 2

page = Request("page")
if page="" then page=1

SQL = "SELECT * FROM elenco"

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

rs.Open SQL, conn, 1, 3

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

' record attivi
TotalRecords = rs.RecordCount

If TotalRecords=0 then
Response.Write "<P>Nessun risultato trovato</P>"
Else


For i=1 to RecordsPerPagina

'Fino a che non ci sono piu record...
if Not rs.EOF then %>

------------ CONTENUTO DELLA TUA PAGINA ----

<%=rs("testo")%>
------------ FINR CONTENUTO ------------

<%'mi sposto al record successivo
rs.MoveNext
end if

Next

End if

%><%

If TotalRecords > 0 then

Response.Write "<P><B>Pagine:</B> "

For p=1 to rs.PageCount

If p <> CInt(Page) then
Response.Write "<A href='catalogo.asp?page=" & p
Response.Write "&" & Server.UrlEncode(strRicerca)
Response.write "'>"
Else
' pagina attuale
Response.Write "<B>"
End if

Response.Write p

If p <> CInt(Page) then
Response.Write "</A> "
Else
Response.Write "</B> "
End if

Next

Response.Write "</P>"

End if

%><%

' liberiamo le risorse
Rs.Close
Set Rs = Nothing

conn.Close
set conn = Nothing


%>
-----------------------

Saluti




********************
Webmaster Nationaldjteam
www.nationaldjteam.com
webmaster@nationaldjteam.com
********************

Ciao, ho provato questo script per la paginazione... funzia tutto ok, ma non mi è chiaro come faccia lo script a stamapare scritta "pagine: 1 2 3 x " nella posizione in cui appare.

Grazie in anticipo.


A