*************************************************************
<%
on error resume next
dim conn
dim rs
obg = Request("textfield")
set conn = server.CreateObject("ADODB.Connection")
set rs = server.CreateObject("ADODB.Recordset")
conn.open "DSN=LIBRI"
RecordsPerPagina = 7
page = Request("page")
if page = "" then page=1
SQL = "SELECT * FROM libri WHERE "
Ricerca = Split(Trim(Request("textfield")), " ")
for i = 0 to ubound(Ricerca)
SQL = SQL & " titolo LIKE '%" & Ricerca(i) & "%' OR autore LIKE '%" & Ricerca(i) & "%' OR genere LIKE '%" & Ricerca(i) & "%' AND "
next
SQL = Mid(SQL, 1, Len(SQL)-4)
SQL = SQL & " ORDER BY genere"
response.Write(SQL)
rs.Open SQL, conn, 1, 3
rs.PageSize = RecordsPerPagina
rs.AbsolutePage = page
if rs.EOF=True or rs.BOF=True then
Response.Write("<p align=""center"">LIBRO NON TROVATO! Tentare la ricerca con altri parametri</p>")
else
for i=1 to RecordsPerPagina
if Not rs.EOF then
%>
<tr>
<TD><%=rs(0)%></TD>
<TD width="25%"><%=rs(1)%></TD>
<TD width="25%"><%=rs(2)%></TD>
<TD width="25%"><%=rs(3)%></TD>
<td><a href="modifica2.asp?Id=<%=rs(0)%>"><img src="immagini/modifica.jpg"></a></td>
<td><a href="cancella2.asp?Id=<%=rs(0)%>" onClick="return elimina()"><img src="immagini/elimina.jpg"></a></td>
</tr>
<%
rs.movenext
End If
Next
End If
Response.Write("</table>")
Response.Write("<p align='center'>Pagine: ")
for pag = 1 to rs.PageCount
Response.Write(" <a href='find.asp?page=" & pag)
Response.Write("&" & Server.URLEncode(obg))
Response.Write("'>")
Response.Write(pag)
Response.Write("</a>")
next
Response.Write("</p>")
rs.close
set rs = nothing
conn.close
set conn = nothing
%>
*************************************************************
Quando lo uso per impagninare tutti i record del DB (SELECT * FROM libri ) funziona alla grande...
quando lo uso per mostrtare i risultati di una ricerca (SQL sopra) crea non pochi problemi:
la prima pagina di risultati è corretta, ma quando vado a visualizzare la seconda l'SQL si "spacca" e l'applicazione si pesca tutti i record.
consigli?