Paging med 1-2-3-4 osv

Jeg har et paging system, hvor jeg efterhånden har så mange sider, at min liste i bunden med sideantal, er enorm lang.

Så har forsøgt med lidt "slamkode" at gøre, den kun viser max 10 før og efter aktuel side..

Dette virker, men er bestemt ikke optimalt

Nogen der kan hjælpe med at omkrive min kode til den der er lidt mere fornuftig..?



<table border="0" cellpadding="3" cellspacing="0" class="forumtabel" style="width:100%;font-size:14px;color:#761616;">
    <tr>
       
        <td>
       
        <% If Clng(intPage) > 1 Then%>
        <a href="default.asp?s=Forum&count=1">Første</a> |
        <a href="default.asp?s=Forum&count=<%=intPage - 1%>">Forrige</a>
        <%else%>
        Første | Forrige
        <%end if %>
        </td>
                    <%
                   
                    if intPage+10 > intPageCount then
                    strTil = intPageCount
                    else
                    strTil = intPage+10
                    end if
                   
                    if intPage-10 > intPageCount then
                    strFra = 1
                    else
                    strFra = intPage-10
                    end if
                   
                    if strFra < 1 then
                    strFra = 1
                    end if
                   
                    'response.write strFra & "|" & strTil
                   
                    'For intNum = 1 To intPageCount
                    For intNum = strFra To strTil
                    if intNum = intPage - 0 then
                    bgcolor = "#4C0E0E"
                    link = "<b>" & intNum & "</b>"
                    else
                    bgcolor = ""
                    link = "<a href=""default.asp?s=Forum&count=" & intNum & """>" & intNum & "</a>"
                    end if
                    %>
                    <td width="10" bgcolor="<%=bgcolor%>"><%=link%></td>
                    <%Next%>
                   
       
        <td style="text-align:right;">
        <%If Clng(intPage) < Clng(intPageCount) Then%>
        <a href="default.asp?s=Forum&count=<%=intPage + 1%>">Næste</a> |
        <a href="default.asp?s=Forum&count=<%=intPageCount%>">Sidste</a>
        <%else%>
        Næste | Sidste
        <%end if %>
        </td>
       
    </tr>
</table>
<!-- / navigate -->