difetto in paginazione

[soundforgers]

ciao a tuti ho una pagina asp che mi restituisce dei valori presi da un db, e li inpagina in diverse pagine da 25 record.
il mio problema è che sotto ho una barra di navigazione e l'ho fatta in modo tale che non mi permetta di andare nella pagina dove l'utente è gia.
in pratica se l'utente sta a pagina 2 il numeretto 2 non deve essere cliccabile.
fino a qui tutto ok ma il problema è che l'ultima pagina che ho è sempre cliccabile e non me la da mai non cliccabile. potete darmi una mano?
vi posto il codice:
p.s. vi prego aiutatemi sto diventando pazzo!!!
[...]
<%
openconn
RecordsPerPagina = 25
page = Request("pag")
if request.form("regione") <> "" then session("ricerca_regione")= request.form("regione") end if
if page="" then page=1
SQL = "SELECT * FROM hotel_provvisorio INNER JOIN citta ON hotel_provvisorio.id_citta = citta.id_citta WHERE id_regione='" & session("ricerca_regione") & "' order by capoluogo DESC , hotel_provvisorio.citta"
set rs= createobject("ADODB.recordset")
rs.cursorlocation=3
rs.open SQL, cn
rs.PageSize = RecordsPerPagina
rs.AbsolutePage = page
If rs.Eof=True then
Response.Write "

Siamo spiacenti ma non è stato trovato nessuna risultato per la sua ricerca.</P>"
Else
For i=1 to RecordsPerPagina
if Not rs.EOF then
if citta <> rs.fields("citta") then
%>
<tr>
<td>
<%
citta=rs.fields("citta")
response.write "
" & citta & "
"
%>
</td>
</tr>
<%
end if
%>
<tr>
<td>
<%
response.write "" & rs.fields("nome")
%>
</td>
</tr>
<%
rs.MoveNext
end if
Next
End if
%>
<tr>
<td align="center">

<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="33%" align="center">
<%
if page-1 < 1 then
response.write "Indietro"
else
%>
Indietro
<%
end if
%>
</td>
<td width="33%" align="center"><%
'Barra di navigazione
Response.Write "

Pagine: "
For p=1 to rs.PageCount
if p +1 =rs.AbsolutePage then
response.write page & " "
else
Response.Write "<A href='stampa_hotel.asp?pag=" & p
Response.Write "&" & Server.UrlEncode(strRicerca)
Response.write "'>"
Response.Write p '& rs.Absolutepage
Response.Write "</A> "
end if
Next
Response.Write "</P>"
%>
</td>
<td width="33%" align="center">
<%
if page+1 > rs.pagecount then
response.write "Avanti"
else
%>
Avanti
<%
end if
%>

[...]

[soundforgers]

dai su un'ideuzza!!!

[mosquito70]

fino a qui tutto ok ma il problema è che l'ultima pagina che ho è sempre cliccabile e non me la da mai non cliccabile. potete darmi una mano?

puoi spiegarti meglio?

[Santino83_02]

For p=1 to rs.PageCount
if p +1 =rs.AbsolutePage then

questa non l'ho capita....perchè "p+1" e non p deve essere uguale a AbsolutePAge?