Visa 10 sidor

Sida: << « 1 2 3 4 5 6 7 8 9 10 11 12 13 » >>

där visas 13 sidor.. men jag vill bara att den ska visa max 10 sidor.. om inte du är på sidan 13.. då ska det visas 7 till 19(+-5) alltså ska 10 vara max skillnaden... förstår ni?

<%
for i = 1 to RS2.pagecount
  If i = CInt(intPageId) Then
    strNavigation = strNavigation & " <b>" & i & "</b>"
  Else
    strNavigation = strNavigation & " <a href=""?ID="&request.querystring("ID")&"&pageid=" & i & """>" & i & "</a>"
  End If
next
%>

kör jag nu..

Skriver det här väääldigt tydligt nu.. men nåt sånt här kan du ju göra ;)

page_middle = INT(RS2.pagecount/2)
page_start = page_middle - 5
page_end = page_middle + 5
if page_start < 1 then
    page_start = 1
end if
if page_end > RS2.pagecount then
    page_end = RS2.pagecount
end if

For i = page_start To page_end
o.s.v

-Eitraz