ho trovato e provato questo script per la paginazione
funziona e tutto.codice:<% 'recupero la pagina page = Request.QueryString("page") ' imposto il numero di record per pagina perpage = 10 'connessione al db Set Conn = Server.CreateObject("ADODB.Connection") Conn.open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("percorso/database.mdb") Set Rs = Server.CreateObject("ADODB.Recordset") sql = "SELECT * FROM messaggi ORDER BY id" Rs.Open sql, Conn, 1, 3 'imposto la variabile in modo da ottenere l'ultima se non ne viene specificata un'altra If page = "" then page = (rs.PageCount) End if 'imposto la dimensione della pagina Rs.PageSize = perpage ' mi sposto all'ultima pagina Rs.AbsolutePage = page 'scrivo i link ai 10 record For i = 1 to perpage If Not Rs.EOF then if Rs("id") < 10 then Response.Write ("[0" & Rs("id") & "] ") else Response.Write ("[" & Rs("id") & "] ") end if Rs.MoveNext end if next 'scrivo i numeri delle pagine Response.Write " Pagine: " For pag= 1 to rs.PageCount if page = pag then 'grassetto per la pagina corrente Response.Write "" Response.Write "<A href='questapagina.asp?page=" & pag Response.write "'>" Response.Write pag Response.Write "</A> " Response.Write "" else 'normale per le altre pagine Response.Write "<A href='questapagina.asp?page=" & pag Response.write "'>" Response.Write pag Response.Write "</A> " end if Next Response.Write "</P>" 'chiudo la connessione Rs.Close Set Rs = Nothing Conn.Close Set Conn = Nothing %>
Solo non riesco a capire (ovviamente a causa della mia ignoranza) il perchè di questa riga:
Perchè si fa un controllo sull'id?codice:if Rs("id") < 10 then
Se qualcuno mi illumina lo ringrazio.

Rispondi quotando