aiuto paginazione

[mrstex]

chi mi può aiutare a fare una paginazione di una query con link sui risultati con asp?

grazie a ki mi risponde....

[X_Gold*]

Originariamente inviato da mrstex
chi mi può aiutare a fare una paginazione di una query con link sui risultati con asp?

grazie a ki mi risponde....

se per te aiutare significa aiutare e non farlo di sana pinta allora ok

[mrstex]

se hai qualcosa di già prornto da propormi te ne sarei davvero grato!!!

[teorema55]

Beh.....posta la query e l'attuale presentazione del recordset .... altrimenti, cosa paginiamo?

[99eros9]

Ho il dubbio che sia proprio "di sana pianta"!

[teorema55]

:maLOL:

[mrstex]

Dim strSql
strSql = "SELECT * FROM Notizie where idcategoria like "& a &" ORDER BY data desc"
Dim RSNotizie
Set RsNotizie = Server.CreateObject("AdoDB.RecordSet")
RSNotizie.Open strSql ,objConn

<div id="Layer1" style="position:absolute; width:131; height:115; z-index:1; left: 39px; top: 166px;">
<div align="center">
<table width="130" border="2">
<tr>
<td><div align="center"></div></td>
</tr>
<td bordercolor="#000099"><div align="center">
<%
Do while not RSCategorie.Eof%>
<tr>
<td height="20" align="center" bordercolor="#000099">
<% Response.Write("[img] & rscategorie([/img]
") %> </td>
</tr>
<% RSCategorie.Movenext
Loop
%>
</div></td>

</table>
</div>



quando estraggo i record dal db questi diventano link per muovermi all'interno del sito come si evince dal codice ke vi ho mandato!!!

Spero sia comprensibile
aspetto vostre risposte!

[99eros9]

Hai provato a dare uno sguardo, prima, a qualche tutorila [edito: tutorial ] come questo?
http://www.simply4you.it/articoli/asp/art0004a.asp

[teorema55]

Nel tuo caso va benissimo la classe di paginazione pubblicata qui
Scaricati la cartella zippata e segui le istruzioni, è facilissimo (poche modifiche per inserire l'url e gli altri dati del tuo database)
Poi memorizzi la classe nella stessa cartella dove tieni la pagina e ce la includi all'inizio (<!--# include file= ecc. ecc.).
Buon lavoro.

[X_Gold*]

buttato giu' cosi' di botto senza testarlo...

Dim strSql 
  strSql = "SELECT * FROM Notizie where idcategoria like "& a &" ORDER BY data desc"
Dim RSNotizie
 Set RsNotizie = Server.CreateObject("AdoDB.RecordSet")
 RSNotizie.Open strSql ,objConn

<div id="Layer1" style="position:absolute; width:131; height:115; z-index:1; left: 39px; top: 166px;">
  <div align="center">
       <table width="130" border="2">
         <tr>
           <td><div align="center"></div></td>
         </tr>
         <td bordercolor="#000099"><div align="center">
             <%
   'qui scrivi il numero di record che vuoi visualizzare per pagina
   '****************************
   Nrecord=10
   '****************************
   counter = RSCategorie.recordcount
   page = request.querystring("page")
   RSCategorie.pagesize= cint(Nrecord)
   RSCategorie.absolutepage=cint(page)
   Do while not RSCategorie.Eof
   %>
   <tr>
    <td height="20" align="center" bordercolor="#000099">
            <% Response.Write("[img] & rscategorie([/img]
") %>     </td>
   </tr>
<%	RSCategorie.Movenext
   Loop
 %>
           </div></td>
         
    </table>
<% for h = 1 to RSCategorie.pagecount %>
<a href ="<%=request.servervariables("SCRIPT_NAME")&"?page="&h%>"> | <%=h%> | </a>
<%next%>
  </div>