Lettura dati

Script per leggere i dati contenuti in un database:

<% 
RecordsPerPagina = 10 
page = Request("page") 
if page="" then page=1 
strRicerca = Request("ricerca") 
SQL = "SELECT * FROM Ricerca WHERE Descrizione LIKE '%" 
& strRicerca & "%'" 
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 
%>

Barra di navigazione tra le pagine <% 
Response.Write "<P><B>Pagine:</B> " 
For pag=1 to rs.PageCount 
Response.Write "<A href='pagina.asp?page=" & pag 
Response.Write "&" & Server.UrlEncode(strRicerca) 
Response.write "'>" 
Response.Write pag 
Response.Write "</A> " 
Next 
Response.Write "</P>" 
%>