paginazione quasi completa

[scura]

salve a tutti
ho fatto una funzione per paginare i record in un db, ma manca una cosa che non riesco a fare...ore vengono visualizzati tutti i link a tutte le pagine e quando le pag sono molte è decisamente brutto...io vorrei visualizzare al max 10 link a 10 pagine e potermi spostare alle precedenti e alle successive tramite i classici link ai lati...madonna come mi esprimo male!!!
per es. << 4|5|6|7|8|9|10|11|12|13 >>


la mia funzione è:


Function navigatore(rs)
dim str, i, Linkpag

str=str&"<p class=""testichiara"">Pag. "&rs.absolutePage&"di "&rs.pageCount&" "

if rs.pagecount<>1 then
str=str&"</p>Pagine:"

for i=1 to rs.pageCount

if i = rs.absolutePage then
Linkpag = "<font color=""#990000"">"&i&"</font>"
else
Linkpag= i
end if

str=str&""&Linkpag&" | "

next

end if


if rs.absolutepage = 1 and rs.absolutepage<>rs.pagecount then
str = str&"
<input type=""button"" onClick=""inviaForm3('"&rs.absolutepage+1&"')"" value="">>"">"
end if
if rs.absolutepage>1 and rs.absolutepage<rs.pagecount then
str = str&"
<input type=""button"" onClick=""inviaForm3('"&rs.absolutepage-1&"')"" value=""<<""><input type=""button"" onClick=""inviaForm3('"&rs.absolutepage+1&"')"" value="">>"">"
end if
if rs.absolutepage <> 1 and rs.absolutepage=rs.pagecount then
str = str&"
<input type=""button"" onClick=""inviaForm3('"&rs.absolutepage-1&"')"" value=""<<"">"
end if

navigatore= str
End Function




che mi sapete dare qualche dritta???

[xxfuma85xx]

potresti provare così:

min=rs.absolutepage-4
max=rs.absolutepage+5

for i=1 to rs.pageCount 

if i>=min and i<=max then
if i = rs.absolutePage then 
Linkpag = "<font color=""#990000"">"&i&"</font>" 
else 
Linkpag= i 
end if 

str=str&""&Linkpag&" | " 
end if
next

[scura]

grazie ora provo