Newsgroup: it.comp.www.asp
Titolo: Problema con paginazione

Ciao a tutti, ho questo codice e ci vorrei inserire la paginazione, ho
tentato di inserirgliela usando quella di ASPITALIA ma senza successo, chi č
cosě gentile da potermi aiutare?
Grazie mille
Luigi
<html>
<head>
<meta name="GENERATOR" content="Microsoft FrontPage 5.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<title>Nuova pagina 1</title>
<meta name="Microsoft Border" content="lb">
</head>
<body bgcolor="#FFFFFF">
<table border="0" width="600">
  <tr>
    <td width="598" align="center" colspan="2">
      <h2 align="left"><font face="Arial">Mini Bus</font></h2>
    </td>
  </tr>
  <tr>
    <td width="247" align="center">
      <p align="left"><a href="../../stock_list.htm">
      <img border="0" src="../../images/back.gif" alt="Back"></a></td>
    <td width="351" align="center"></td>
  </tr>
  <tr>
    <td width="598" align="center" colspan="2">
      <hr color="#000080">
    </td>
  </tr>
</table>
<%
' Apro la connessione con il Db
dim conn, strConn
strConn = "Provider = Microsoft.Jet.OLEDB.4.0; Data Source = " &_
    Server.MapPath("/fpdb/dbboss.mdb")
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open StrConn
SQL = "SELECT * FROM mbus"
Set rs = Server.CreateObject("ADODB.Recordset")
Rs.Open SQL, Conn
%>
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse:
collapse" bordercolor="#111111" width="600" id="AutoNumber2">
  <%
'Inizio il ciclo di loop per inserire tutto il contenuto della tabella
Do Until rs.Eof = True
%>
    <td align="center">
      <a href="../../product/mbus/mbus2.asp?rf=<%=rs("rfn")%>">
      <img border="0"
src="../../product/mbus/images/<%=rs("fotopic")%>"></a>
    </td>
    <td width="414" align="center">
    <table border="0" width="100%">
      <tr>
        <td width="101%" align="right" colspan="2">
          <p align="left">
      <b><font face="Arial"><a href="mbus2.asp?rf=<%=rs("rfn")%>">
      <img border="0" src="../../images/more2.gif" alt="More
Details"></a></font></b>
        </td>
      </tr>
      <tr>
        <td width="35%" align="right"><font face="Arial" size="2"
color="#000080"><b>
    Ref. Number :&nbsp;</b></font></td>
        <td width="65%" align="left" bgcolor="#CECFCE">
<font face="Arial" size="2"><b><%=rs("rfn")%></b></font>
        </td>
      </tr>
      <tr>
        <td width="35%" align="right"><font face="Arial" size="2"
color="#000080"><b>Model
          :&nbsp;</b></font></td>
        <td width="65%" align="left" bgcolor="#CECFCE">
<font face="Arial" size="2"><b><%=rs("model")%></b></font>
        </td>
      </tr>
      <tr>
        <td width="35%" align="right"><font face="Arial" size="2"
color="#000080"><b>Year
          :&nbsp;</b></font></td>
        <td width="65%" align="left" bgcolor="#CECFCE">
<font face="Arial" size="2"><b><%=rs("year")%></b></font>
        </td>
      </tr>
      <tr>
        <td width="35%" align="right"><font face="Arial" size="2"
color="#000080"><b>Km :&nbsp;</b></font></td>
        <td width="65%" align="left" bgcolor="#CECFCE"><font size="2"
face="Arial"><b><%=rs("km")%></b></font>
        </td>
      </tr>
      <tr>
        <td width="35%" align="right"><font face="Arial" size="2"
color="#000080"><b>Engine
          :&nbsp;</b></font></td>
        <td width="65%" align="left" bgcolor="#CECFCE"><font face="Arial"
size="2"><b><%=rs("engine")%></b></font></td>
      </tr>
    </table>
    </td>
  </tr>
  <tr>
    <td align="center" colspan="2">
      <hr color="#000080">
    </td>
   </tr>
<%
 ' Vai alla prossima riga
 rs.movenext
Loop
%>
<%
' Chiudo la Connessione con il DB
rs.Close
set rs = Nothing
conn.Close
Set conn = Nothing
%>
</table>
<table border="0" width="600">
  <tr>
    <td width="598" align="center">
      <p align="left"><a href="../../stock_list.htm">
      <img border="0" src="../../images/back.gif" alt="Back"></a></td>
  </tr>
</table>
</body>
</html>

Ho provato ad inserire il codice qui riportato, ma alcune cose sono diverse
e non riesco a capire.
Perfavore aiutatemi!!!
Grazie 1k Luigi
<%
RecordsPerPagina = 5
page = Request("page")
if page="" then page=1
' STRINGA SQL
strRicerca = Request("ricerca")
SQL = "SELECT * FROM Ricerca WHERE Descrizione LIKE '%" & strRicerca & "%'"
'apri recordset
' paginazione
rs.PageSize = RecordsPerPagina
rs.AbsolutePage = page
If rs.Eof=True or rs.Bof=True then
  Response.Write "<P>Nessun risultato trovato</P>"
Else
For i=1 to RecordsPerPagina
  if Not rs.EOF then
    'mostra record
    rs.MoveNext
  end if
Next
End if
%>