<%
page = request.queryString("page")
if page = "" then
page= 1
end if
RecordsPerPagina = 1
SET objConn=Server.CreateObject("ADODB.Connection")
strconn="Provider=Microsoft.Jet.OLEDB.4.0; Data Source="
strconn= strconn + Server.MapPath("db\Negozio.mdb")
objconn.Open strconn
SET objrs=Server.CreateObject("ADODB.Recordset")
SQL="SELECT * FROM Prodotti"
objrs.Open SQL, objConn, 3,3
objrs.PageSize = RecordsPerPagina
objrs.AbsolutePage = page
For i=1 to RecordsPerPagina
IF objrs.EOF and objrs.BOF then
%>NON CI SONO DATI PRESENTI<%
else
if Not objrs.EOF then
response.write "" & objrs("prezzo") &""
objrs.MoveNext
end if
end if
Next
Response.Write "PAGINA "
Response.Write page
Response.Write " DI "
Response.Write objrs.PageCount
Response.Write "

" %>
[img]images/avanti.gif[/img]
[img]images/indietro.gif[/img]
<%objrs.Close
Set objrs = Nothing
objconn.close
Set objconn=nothing
%>

Ho 5 prodotti, sono arrivato a pagina 6 di 5, ma come mai non mi dice: NON CI SONO DATI PRESENTI?