Navigare tra i record

[Cream]

eccomi scusa telefono

<% if page = "" then
page= 1
end if
RecordsPerPagina = 40
SQL = "SELECT * FROM"
Set objrs = Server.CreateObject("ADODB.Recordset")
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 bolle inserite<%
else
if Not objrs.EOF then
response.write "" & objrs("ID") &""
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
%>

[Games]

<%
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è?

[Mems]

<% 
page = request.queryString("page")
if page = "" then 
page= 1 
end if

manca la parte in grassetto... te l'avevo postato prima... ciao.

[Games]

Grazie adesso funziona.
Mi potresti solo spiegare cosa fa questo?

objrs.PageSize = RecordsPerPagina
objrs.AbsolutePage = page

Grazie infinite

[Mems]

Originariamente inviato da Games
Grazie adesso funziona.
Mi potresti solo spiegare cosa fa questo?

objrs.PageSize = RecordsPerPagina
objrs.AbsolutePage = page

Grazie infinite

Il primo indica quanti record vengono visualizzati dal recordset in base al posizionamento in esso fatto con il secondo parametro.

[Games]

<%
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?

[Mems]

Response.Write "PAGINA " 
Response.Write page 
Response.Write " DI " 
Response.Write objrs.PageCount 
Response.Write "

" 

if page < objrs.PageCount then

%> 
[img]images/avanti.gif[/img] 

<% 
end if
if page - 1 > 1 then
%>

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

[Games]

Edit: Risolto

[Games]

Mi accade una cosa stranissima.
Se vado avanti si un record funziona correttamente, se vado indietro mi torna indietro di 2 o 3 record.

<%
  page = request.queryString("page")
  azione=request.querystring("azione")
  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 not azione="indietro" and not azione="avanti" then
    response.write "Prezzo:"&objrs("prezzo")&"" %>
    [img]images/avanti.gif[/img]
    [img]images/indietro.gif[/img]
 <% else
    if azione ="indietro" then
     if not objrs.bof then
      objrs.moveprevious
      response.write "Prezzo:"&objrs("prezzo")&"" %>
      [img]images/avanti.gif[/img]
      [img]images/indietro.gif[/img]
   <% else
      objrs.movelast
      response.write "Prezzo:"&objrs("prezzo")&"" %>
      [img]images/avanti.gif[/img]
      [img]images/indietro.gif[/img]
 <%  end if
    else
     if not objrs.eof then
      objrs.movenext
      response.write "Prezzo:"&objrs("prezzo")&"" %>
      [img]images/avanti.gif[/img]
      [img]images/indietro.gif[/img]
 <%   else
       objrs.movefirst
       response.write "Prezzo:"&objrs("prezzo")&"" %>
       [img]images/avanti.gif[/img]
       [img]images/indietro.gif[/img]
<%   end if
    end if
   end if
  Next %>

 <%
    objrs.Close
    Set objrs = Nothing
    objconn.close
    Set objconn=nothing
%>

Dove sbaglio? :master: :master:
In più non riesco a capire perchè non capisce quando arriva alla fine del file!

[Games]

Nessuno?