Ciao
Riesco a paginare bene il tutto
ma non riesco a eliminare il link che va ad una pagina successiva quando non serve più ossia quando non c'è più una pagina successiva
Ecco il mio codice
Qualcuno sa dirmi il problema?
<%
Set objConn = Server.CreateObject("ADODB.Connection")
objConn.Open(connessione)
set rsImmobili = objConn.Execute(SQL_Conta)
n_record = rsImmobili("n_record")
Response.Write (n_record)
rsImmobili.close
set rsImmobili = nothing
recXpag = 2
pagXpag = 3
n_pagine = int((n_record/recXpag)+1)
if n_record = recXpag then n_pagine = 1
n_pagina = int(request.QueryString("n_pagina"))
if inizio = 0 then ' INIIZALIZZO IL CONTATORE
inizio = 1
n_pagina = 1
end if
if n_pagina = 1 then inizio = 1
if inizio > 1 then
inizio = (request.QueryString("n_pagina") - 1 ) * recXpag + 1
end if
fine = inizio + recXpag - 1
s = request.QueryString("s")
if isnull(s) or s = "" then s = 1
s_prec = s - 1
s_succ = s + 1
if n_pagine > 1 then
inizio_link = (s-1) * pagXpag + 1
fine_link = s * pagXpag
if fine_link > n_pagine then fine_link = n_pagine
prima_nuova_pagina = fine_link + 1
prima_vecchia_pagina = inizio_link - pagXpag
if s_prec > 0 then
%>
<a href = ricerca.asp?n_pagina=<%=prima_vecchia_pagina%>&s=< %=s_prec%>><<</a>
<%
end if
if prima_vecchia_pagina <=0 then prima_vecchia_pagina = 1
for k = inizio_link to fine_link
if k = n_pagina then
response.write("" & k & "")
else%>
<a href = ricerca.asp?n_pagina=<%=k%>&s=<%=s%>><%=k%></a>
<%end if
next 'k
%>
<a href = ricerca.asp?n_pagina=<%=prima_nuova_pagina%>&s=<%= s_succ%>>>></a>
<%
response.write("
")
end if
set rsImmobili = objConn.Execute(SQL_ricerca)
n_trovati = 0
n_lista = 0
Do While not rsImmobili.eof
n_trovati = 1
n_lista = n_lista + 1
if (n_lista >= inizio) AND (n_lista <= fine) then
%>
</td>
<tr width="424" height="106">
<td width="507">
<%
if isnull(rsImmobili("img1")) then
immagine = "no_img.jpg"
else
immagine = rsImmobili("img1")
end if
%>
" ><img src=public/upload/<%=immagine%> width="93" height="93" border="0">
<div align="left" class="tipologia"> <%=rsImmobili("tipologia")%> | mq.<%=rsImmobili("mq")%> | " >COD. <%=rsImmobili("codice_immobile")%>
</div>
<div><%=rsImmobili("descrizione")%></div>
<div><%=rsImmobili("zona")%></div>
<div>€<%=formatnumber(rsImmobili("prezzo"), 2,-1)%>
</div>
<%
end if
rsImmobili.movenext
loop
%>
set rsImmobili = nothing
%>

Rispondi quotando