Newsgroup: it.comp.www.asp
Titolo: aiuto paginazione

Uso questo codice che ho trovato in rete,per visualizzare nella pagina
ricerchesiti.asp
i risultati della selezione della tabella "siti"attraverso la form "ric"
nella quale inserisco una parola e attraverso
questa seleziono i records della tabella "siti".
I records vengono divisi 15 per ogni pagina e fin qui la cosa funziona.Il
problema è che
quando seleziono il blocco di pagina successivo alla prima
(1-15|15-30|30-|45ecc)
mi ritornano tutti i records della tabella indipendentemente dalla selezione
fatta.
Mi potete aiutare per favore.
<% @ LANGUAGE="VBScript" %>
<%Response.Buffer = True
Const adOpenForwardOnly = 0
Const adLockReadOnly = 1
Const adUseClient = 3
Const adCmdText = 1
Dim conn, rs, connString, qString
connString = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" &
Server.MapPath("fpdb\dbase.mdb")
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open connString
%>
<table border="0" width="100%">
  <tr>
    <td width="100%">
    </td>
  </tr>
</table>
<table border="0" width="100%" cellspacing="0">
  <tr>
    <td width="15%" height="33" valign="top">
    </td>
    <td width="84%" height="33" valign="top">
      <table border="0" width="100%">
        <tr>
          <td width="100%" valign="top" height="15"><%
  Dim mypage, numpages, numrecs, pagesize
  mypage = CInt( Request("page") )
  If mypage=0 Then mypage=1
  pagesize = CInt( Request("recs") )
  If pagesize = 0 Then pagesize = 15
  Set rs = Server.CreateObject("ADODB.RecordSet")
  rs.PageSize = pagesize
  rs.CursorLocation = adUseClient
 dim key
  key = request.form("ric")
  qString = "SELECT * FROM siti WHERE titolo LIKE '%"&key&"%'or categoria
like '%"&key&"%' order by voto"
  rs.Open qString, conn
  if rs.EOF then
  response.write "Spiacente, non ci sono siti che
contengono:"&UCASE&request.form("ric")
  ELSE
  numpages = rs.PageCount
  numrecs = rs.RecordCount%>
            <font face="Verdana" size="1"
color="#800000"><%Response.Write("<B>"&"ho cercato nei siti:   "&
request.form("ric") &" - "&numrecs &" Siti selezionati"&" -Pagina "& mypage
&" di " & numpages&"</b></font>")%>
            <hr size="1" color="#000000">
            <%If mypage > numpages Then mypage = numpages
  If mypage < 1 Then mypage = 1
  rs.AbsolutePage = mypage
  Dim i
  For i=1 To pagesize
    If NOT rs.EOF Then%>
            <font face="Verdana" size="2"><a href="<%= rs.fields("http")%>"
target="_blank"><%response.write "<img border=0
src=quad.gif>"&"Categoria:"&rs("categoria")&"-"&rs("titolo")&"</a><br>"
      rs.MoveNext
    End If
  Next%>
            <hr color="#000080" size="1">
            <%Dim x, lb, ub
  For x=1 To numpages
    lb = (x-1) * pagesize + 1
    ub = x * pagesize
    If ub > numrecs Then ub = numrecs
    If x <> mypage Then
    Response.Write("<A HREF=ricerchesiti.asp?page=" & x & "&recs=" &
pagesize & ">" & lb & "-" & ub & "</A>")
    Else
      Response.Write(lb & "-" & ub)
    End If
    If x <> numpages Then Response.Write(" | ")
  Next
  END IF
  rs.Close
  conn.Close
  Set rs = Nothing
  Set conn = Nothing
            %>
            </font></font></a><font size="2" face="Arial" color="000000">
            <p>&nbsp;</font>
      </table>
    </td>
    <td width="1%" bgcolor="#FFCC00" height="33">&nbsp;</td>
  </tr>
</table>
<hr color="#000080" size="1">
<p>&nbsp;&nbsp; </p>

 pagesize & ">" & lb & "-" & ub & "</A>")
Solo che quando clicchi sul link, "key" non viene passato alla pagina,
quindi la tua select diventa una select *....
Davide