paginazione

[KoRnNet]

ho già cercato, sto leggendo e rileggendo da + di 2 ore 3000 tutorial e roba varia ma non riesco a realizzare la paginazione dei record

PS: ho aggiunto una variabile che conta fino a 20, così almeno a 20 si ferma e non visualizza gli infiniti record

ecco il codice

<%

SQL="SELECT * FROM mensajes ORDER BY mensajes.codmen DESC"%>
  
    <% Set Conn = Server.CreateObject("ADODB.Connection")
     conn.open "Provider=Microsoft.jet.Oledb.4.0;data source="&Server.MapPath("mdb-database/db1.mdb")
     Set Rs = Server.CreateObject("ADODB.Recordset") %> 
   <%Set Rec=Conn.Execute(SQL)%> 
     
<%While (Not rec.EOF) and (i<20)%>
</font>
</p>
<table border="1" width="100%" bordercolor="#000000" cellpadding="2" style="border-collapse: collapse">
  <tr>
    <td width="34%" bgcolor="#99CCFF"><font face="Verdana" size="2">Socia: <%=Rec("socia")%></font></td>
    <td width="33%" bgcolor="#00CCFF"><font face="Verdana" size="2">Club <%=Rec("club")%></font></td>
    <td width="20%" bgcolor="#99CCFF"><font face="Verdana" size="2">
	<p align="center"><%=Rec("fecha")%></font></td>
  </tr>
  <tr>
    <td width="100%" colspan="3" bgcolor="#33CCCC"><font face="Verdana" size="2"><%=Rec("contenido")%></font></td>
  </tr>
</table>
<font face="Verdana" size="2">

<%rec.MoveNext
i=i+1
Wend
rec.close%>

penso che la connessione che uso non si può usare per la paginazione, ho provato a cambiarla ma niente. Qualcuno mi aiuta?

[santino83]

beh qual'era il problema?

cmq:

<%
perPagina=20

for i=1 to perPagina
if not rec.eof then
%>

<table><tr><td>....</td></tr></table>

<%
rec.movenext
end if
next
%>

[Roby_72]

Qui http://www.creamweb.it/script/mostra_script/?id_cat=4 trovi la mia.
Pagina i risultati come in questo forum.
C'è anche l'esempio!

Roby

[KoRnNet]

grazie roby, mo vedo un po =)

@santino: mi trovo che arrivi fino a 20 =) ciò che non mi trovo è l paginazione

[Galex]

con access dovrebbe funzionare una cosa del genere...hai provato?che errore ti da?

      Page=request("page")
      if Page="" then Page=1
      RecordsPerPage=10
      sql=""
      Set rs = Server.CreateObject("ADODB.Recordset")
      rs.Open sql, connDB ,3,3
      num = rs.RecordCount
      Rs.PageSize = RecordsPerPage
      Rs.AbsolutePage = Page
								
      For x = 1 To RecordsPerPage
         ....
      Next
      
      rs.close
      set rs=nothing

e cmq x limitare a 20 + che mettere for i=o to 20...

io metterei

SELECT TOP 20 * FROM mensajes ORDER BY mensajes.codmen DESC

se no ti mostra si solo 20 records...ma la query gli estrae cmq tutti!

[santino83]

e cmq x limitare a 20 + che mettere for i=o to 20...

io metterei

SELECT TOP 20 * FROM mensajes ORDER BY mensajes.codmen DESC

se no ti mostra si solo 20 records...ma la query gli estrae cmq tutti!

e poi come fai quando vai a pagina 2? ovvero a selezionare i secondi 2o record?

[Galex]

su access si può utilizzare il metodo illustrato con PageSize e AbsolutePage

su MySQL c'è LIMIT 0,20

su SQL si usa (io uso) un metodo basato sull'uso di TOP x recuperare di volta in volta solo i record necessari..

http://blogs.aspitalia.com/rickyvr/p...SQLServer.aspx

usando solo for i=0 to XX limiti solo la visualizzazione,non il recordset,quindi su query di dimensioni un pò + importanti di 100 record la cosa diventa pesante...

[KoRnNet]

ok ragà, ho un'altro problema che non c'entra molto con l'asp

la cartella nell'ftp del sito che pensavo fosse per mettere i database aggiornabili, non lo è, e non so dove devo mettere il database, ma sopratutto pur sapendo la cartella non so come ci si arriva visto che il server ha al suo interno le cartelle: WWW, cert, Config, data, manager, Log, images, _private, ftp

lo devo mettere in "data"?


edit: la cartella era data =)
vabbè, uno dei problemi soluzionati :P