Ändra i paging (framåt / tillbaka)

har för tillfället ett fullt fungerande pagingscript!
Dock har den inte den funktionen jag vill ha!
Funktionen som 'ingick' var Framåt / tillbaka. det jag istället vill är:

Visa 10 länkar (om så många behövs) INTE över 10 st även om allt skulle hamna på 20 sidor så ska den visa 1 - 2 - 3 - 4 osv osv fram till 10.
Om man sedan trycker på 10 och kommer till sidan 10 så ska den visa 6-7-8-9-10-11-12-13-14-15, fast endast om dokumentets längd kommer att bli över 15.
Om 15 är sista sidan, och man befinner sig på den sidan ska det stå i stil med 6-7-8-9-10-11-12-13-14-15

Det som är rött och fetmarkerat är det jag vill ändra på, på något vis, men dock vet jag inte hur jag ska göra det. Några som helst tips som kan vägleda mig på rätta vägar?

Det är med andra ord en likadan funktion som webforum har på ett ungefär.

<%
strCategoryId = request.querystring("CategoryId")

pageSize = 20

If Request.QueryString("page") = "" OR NOT IsNumeric(Request.QueryString("page")) Then
    Page = 1
Else
    Page = CInt(Request.QueryString("page"))
End If

strSQL = "select count(*) from tblForumThread WHERE Thread_type = 1" 
set RScount = Conn.execute(strSQL)
pages = (RScount(0)-1)/pageSize + 1

strSQL = "SELECT * FROM tblForumThread WHERE Category_id = " & strCategoryId & " AND Thread_type = 1 ORDER BY sticky DESC, Thread_lastpost DESC limit " & (page-1)*pagesize & "," & pageSize

set RSThread = Conn.execute(strSQL)
do until RSthread.eof
%>

Lite HTML

<%
RSthread.movenext
loop
%>
[b][red]
<%if  page > 1 then
    response.write "<a href=""Forum_show_thread.asp?page=" & page - 1 & """>Tillbaka</a>"
else
    response.write "Tillbaka"
end if
%>

<%if page < pages then
response.write "<a href=""Forum_show_thread.asp?page=" & page + 1 & """>Frammåt</a>"
else
response.write "Frammåt"
end if
%>
[/red][/b]

Det här kodstycket förstår jag mig, Men den listar som sagt ut alla sidor, medans jag vill ha en wF variant som jag beskrev en bit ovan.

    For i = 1 To objRS.Pagecount
        If i <> pageNo Then
            Response.Write "<a href=""paging.asp?pNum=" & i & """>" & i & "</a> | "
        Else
            Response.Write i & " | "
        End If
    Next