<%
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,Offerte Where Prodotti.id_offerta=Offerte.id_offerta"
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("offerte.prezzo") &""
objrs.MoveNext
end if
end if
Next
Response.Write "PAGINA "
Response.Write page
Response.Write " DI "
Response.Write objrs.PageCount
Response.Write "
"
For pag=1 to objrs.PageCount
Response.Write "<span><A href='prova.asp?page=" & pag
Response.write "'>"
Response.Write pag
Response.Write "</A> </span>"
Next
objrs.Close
Set objrs = Nothing
objconn.close
Set objconn=nothing
%>
Mi visualizza sempre lo stesso prezzo e non quello dopo, perchè?

Rispondi quotando