ASP - Paginazione

[cirmas]

Buongiorno ragazzi, mi servirebbe una paginazione un po' particolare, ovvero mi deve presentare 5 pagine alla volta
es: 1 | 2 | 3 | 4 | 5 Successive
Premendo su "Successive" mi dovrebbe presentare le prossime 5 pagine come da esempio
es: Precedenti 6 | 7 | 8 | 9| 10 Sìuccessive
Ovviamente premendo su "Precedenti" mi ripresenterà le pagine dalla 1 alla 5
Qualcuno mi può aiutare!?!?

Aiutooooooooooooooooo...

grazie
ciao

[santino83]

dim serie
serie=1
if len(trim(request.querystring("s")))>0 then
serie=cint(request.querystring("s"))
end if

dim page
page=1
if len(trim(request.querystring("pag")))>0 then
page=cint(request.querystring("page"))
end if

showPage=10   'numero di pagine visualizzate

dim lpage,tpage
lpage=((serie*showPage)-showPage)+1
tpage=serie*showPage

if page<lpage then page=lpage

if serie>1 then response.write "Precedenti"

for i=lpage to tpage
if i=page then 
response.write i
else
response.write "& n b s p;" & i & ""
end if
next 

response.write "Successive"

se non ho fatto errori dovrebbe andare


edit: si funziona, a te l'onere di sapere quante serie devono essere visualizzate

[cirmas]

Grazie 1000 santino83, ora ci provo!!

ciao