paging hjälp

har ett problem med ett script

<%
Sub PageNavigation(ByVal Page, TotalPages)
    Dim strScriptName

    '## -- denna sidas namn --
    strScriptName = Request.ServerVariables("SCRIPT_NAME")

    '## -- länk till föregående sida --
    '## -- kontrollera att det inte är första sidan som visas --
    If CInt(Page) > 1 Then
         '## -- inte första sidan som visas så gör en länk --
        Response.Write "<A href=""" & strScriptName & "?page=" & Page - 1 & """><< Föregående</A> "
    Else
        '## -- det är första sidan som ska visas. gör ingen länk --
        Response.Write "<< Föregående "
    End If

    '## -- bygg upp själva pagebaren, dvs varje sidnummer ska ha en länk
    '## -- så att besökaren snabbt kan ta sig till rätt sida --
    For N = 1 To CInt(TotalPages)
        If N <> CInt(Page) Then
            '## -- ej aktuell sida, länka --
            Response.Write "<A href=""" & strScriptName & "?page=" & N & """>" & N & "</A> "
        Else
            '## -- aktuell sida, länka ej -- 
            Response.Write "<B>" & N & "</B> "
        End If
    Next

    '## -- länk till nästa sida. om vi står på sista sidan ska den ej vara länkad --
    If CInt(Page) < CInt(TotalPages) Then
        '## -- vi är inte på sista sidan --
        Response.Write "<A href=""" & strScriptName & "?page=" & Page + 1 & """>Nästa >></A>"
    Else
        '## -- vi är på sista sidan. länka ej --
        Response.Write "Nästa >>"
	
    End If
	

End Sub
%>

Det är så att jag vill att efter man har 20 sidor länkade så ska en radbrtning komma med

..........19,20
..........29,30
..........39,40

nånsom fattar vad jag menar?