paging i repeater men MAX 5 side tal af gangen.

Hej

Har fundet denne stump kode som virker ang. noget paging i en Repeater men skal lige have hjælp til en lille ting.

Code
        Dim NavigationText As String = ""
        If CurrentPage > 1 Then
            NavigationText += "<a href=" & Request.ServerVariables("SCRIPT_NAME") & "?Page=" & CurrentPage - 1 & "><<</a> "
        End If
        For i = 1 To intTotalPages
            If CurrentPage = i Then
                NavigationText += "<b>" & i & "</b>    "
            Else
                NavigationText += "<a href=" & Request.ServerVariables("SCRIPT_NAME") & "?Page=" & i & ">" & i & "</a> "
            End If
        Next i
        If CurrentPage < intTotalPages Then
            NavigationText += "<a href=" & Request.ServerVariables("SCRIPT_NAME") & "?Page=" & CurrentPage + 1 & ">>></a> "
        End If

Det den gør er at den laver
<< 1 2 3 4 >>
Altså hvis jeg får vist 40 recorder delt op med 10 på hver side så laver den 4 sider... fint nok.

Men hvis jeg nu har 500 recorder hvor der vises 10 på hver side så giver det 50 sider.

Det er ret mange kan jeg gøre noget i
        For i = 1 To intTotalPages
            If CurrentPage = i Then
                NavigationText += "<b>" & i & "</b>    "
            Else
                NavigationText += "<a href=" & Request.ServerVariables("SCRIPT_NAME") & "?Page=" & i & ">" & i & "</a> "
            End If
        Next i
så den evt. MAX viser 5 tal. så den vil vise dette
<< 1 2 3 4 5 >> og hvis jeg så trykker på >> så viser den
<< 2 3 4 5 6 >> osv... op til << 46 47 48 49 50 >>.