ciao,
ho provato ad utilizzare questo script:
<%
' CONNESSIONE AL DATABASE
' Modificare nome db in file backup / Logout
Set Conn = server.createobject("ADODB.connection")
Conn.ConnectionString = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & server.MapPath("mdb-database/AG_PIRELLI.mdb")
Conn.open
RecordsPerPagina = 5
page = Request("page")
if page="" then page=1
' STRINGA SQL
strRicerca = Request("ricerca")
SQL = "SELECT * FROM ana_regione"
'apri recordset
Set rs = Server.CreateObject("ADODB.Recordset")
rs.open SQL, Conn, 3,3
' paginazione
rs.PageSize = RecordsPerPagina
rs.AbsolutePage = page
If rs.Eof=True or rs.Bof=True then
Response.Write "
Nessun risultato trovato</P>"
Else
For i=1 to RecordsPerPagina
if Not rs.EOF then
response.write rs("nome")
rs.MoveNext
end if
Next
End if
%>
Infine, per aggiungere una barra di navigazione tra le pagine con risultati:
<%
Response.Write "
Pagine: "
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>"
%>
Ma non riesco a farlo funzionare, nel senso che non mi da un vero e prorpio errore , ma non estrae tutti i record.
es www.doppioclick.net/pagina.asp
qualcuno mi aiuta?..
grazie
Rispondi quotando
