scorrimento db prev/next

[Rak]

sto cercando di fare in modo di poter scorrere gruppi di record tramite due link: "prev" e "next", come avete sicuramente visto in giro.

Ora, nella prima pagina che carico (dove ci sono i post più recenti per capirci ) appaiono regolarmente i due link, di cui uno è disabilitato (prev) mentre l'altro (next) funziona correttamente portandomi alla seconda pagina. Nella seconda pagina però i due link non vengono più visualizzati... perché?

ho pensato di fare cs:

pagina = Request.QueryString("page")

if pagina= "" then
pagina = 1
End if

if pagina = 1 then
%>
<font class="testo">prev next</font>
<%
Elseif pagina >1 and pagina < ipagecount then
%>
<font class="testo">prev next</font>
<%
Elseif pagina = ipagecount then
%>
<font class="testo">prev</font>
<%
End if

Nota:
iPageCount = RS.PageCount


sapete darmi una mano?

grazie

[imente]

troppo poco codice...

in ogni caso non sarebbe più semplice

<%if pagina <> ipagecount then %>
STAMPA IL NEXT
<% end if
if pagina <> 1 then %>
STAMPA IL PREV
<% End if %>

[Rak]

mettendolo come mi hai suggerito oltre che essere più leggibile funziona anche meglio, ma non del tutto:
scorre tutte le pagine ma poi, arrivato a "ipagecount" non fa sparire il next, cs continua ad incrementare la vriabile pagina

Ho fatto un respone.write del valore ipagecount per vedere se questo veniva caricato correttamente e in effetti prende il valore giusto... non capisco quindi xché quando pagina = ipagecount continua a scrivermi il next...
riposto il codice...

DATEMI UNA MANO

pagina = Request.QueryString("page")
ipagecount = Cint(RSblog.pagecount)

if pagina= "" then
pagina = 1

End if

if pagina <> 1 then
%><font class="testo">prev</font><%
end if
if pagina <> ipagecount then
%><font class="testo"> next</font><%
End if
Response.Write(ipagecount)
%>

----------- qui posto tutto l'asp della pagina

<% response.Expires=0 %>
.....


<%



' NUMERO DI MESSAGGI PER PAGINA
iPageSize = 5

If Request.QueryString("page") = "" Then
iPageCurrent = 1
Else
iPageCurrent = CInt(Request.QueryString("page"))
End If

If Request.QueryString("order") = "" Then
strOrderBy = "id"
Else
strOrderBy = Request.QueryString("order")
End If

' PERCORSO DEL DATABASE
url_DBblog = "driver={Microsoft Access Driver (*.mdb)};dbq=" & server.mappath("public/blog.mdb")
Set Connblog = Server.CreateObject("ADODB.Connection")
Connblog.Open url_DBblog

Set RSblog = Server.CreateObject("ADODB.Recordset")

' FA LA RICHIESTA AL DATABASE
sqlblog = "SELECT * FROM tab ORDER BY " & strOrderBy &" DESC;"
RSblog.Open sqlblog, connblog, adOpenKeyset
RSblog.PageSize = iPageSize

RSblog.CacheSize = iPageSize

iPageCount = RSblog.PageCount
If iPageCurrent > iPageCount Then iPageCurrent = iPageCount
If iPageCurrent < 1 Then iPageCurrent = 1

' NESSUN MESSAGGIO INSERITO -> VIENE VISUALIZZATO UN MESSAGGIO CHE INFORMA CHE NON E' PRESENTE
' NEMMENO UN MESSAGGIO NEL GUESTBOOK

If iPageCount = 0 Then
%>

<p align="center"><font class="txtnews" >Non è presente alcuna nota nel blog</font></p>


<%
Else

RSblog.AbsolutePage = iPageCurrent
iRecordsShown = 0

' SE I MESSAGGI SONO PRESENTI NEL GUESTBOOK, LI MOSTRA

Do While iRecordsShown < iPageSize And Not RSblog.EOF
%>


<table width="90%" border="0" cellspacing="0" cellpadding="2" >
<tr>


<td width="100%"><font class="data"><%=RSblog("Data")%></font></td>
</tr>
<tr>
<td width="100%"><font class="titolo"><%=RSblog("Titolo")%></font></td>
</tr>
<tr>
<td width="100%">
<font class="txtblog"><%=RSblog("Messaggio")%></font></td>
<div id=bar></div>
</tr>
</table>



<%
' COMPLETA LA VISUALIZZAZIONE DEI MESSAGGI E CHIUDE LA CONNESSIONE
' AL DATABASE

iRecordsShown = iRecordsShown + 1
RSblog.MoveNext
Loop
End If

%>

<%
' MOSTRA IL NUMERO DELLE PAGINE
' DATO CHE VERRANNO MOSTRATI
' IN QUESTO ESEMPIO 5 MESSAGGI PER PAGINA

pagina = Request.QueryString("page")
ipagecount = Cint(RSblog.pagecount)

if pagina= "" then
pagina = 1
End if

if pagina <> 1 then
%><font class="testo">prev</font><%
end if
if pagina <> ipagecount then
%><font class="testo"> next</font><%
End if
Response.Write(ipagecount)
%>

<% RSblog.Close
Set RSblog = Nothing
Connblog.Close %>

[imente]

cambierei due cose

------

if pagina <> ipagecount then

if pagina < ipagecount then

----------

if pagina= "" then
pagina = 1
End if

if isInt(pagina) then
  if pagina < 1 then pagina = 1
else
  pagina = 1
end if

[Rak]

logico... la variabile NON DEVE assumere valori maggiori di i page count.... giusto! grazie
isINT serve per dire "se è un intero"?

[Rak]

ok funzia tutto anche se con qlc modifica... tutto il problema stava sul fatto che non convertivo in intero "pagina" prima di utilizzarla e cs quando era ora di fare il confronto tra ipagecount (che è un intero) e pagina (che era una stringa, benché avesse il valore di un intero ) dava dei problemi...

That's all folks!!
Grazie

[imente]

si...

era la prossima cosa che ti avrei detto

in ogni caso fai sempre attenzione a confrontare tipi UGUALI...

puoi esserne certo facendo il casting con

cint, clng, cstr...

e poi anche controllando se lo sono

isint, islng...