padding limit

Hej

Jeg har pt denne side

http://www.billundfodbold.dk/bif/news&info/news.asp

i bunden kan i pt se 3 sider men med tiden kommer der jo flere til det jeg ønsker er at man kun kan se 5 tal, altså hvis vi siger vi er på side 5 så vil den vise
2 3 4 [5] 6 sltså når man når den 4. sidste så viser den, den næste i rækken. betyder så at hvis vi er på side 10 ud af 20 så er det.
7 8 9 [10] 11  og hvis vi når går til side 11 så er det så
8 9 10 [11] 12 det samme skal gælde hvis vi ønsker at gå tilbage så er det den 2. første som styrrer det altså

6 [7] 8 9 10.

samt kan man lave noget hvor hvis det er 20 sider og man er på side 15 så viser den side 1 og den sidste.

1 - 12 13 14 [15] 16 - 20
er det krævende at lave eller lige til !?
min kode i bunden er pt:
Response.Write "<table width='100%' border='0' cellpadding='1' cellspacing='1'>"
Response.Write "<tr><td width='70%' colspan='2'>"
Response.Write "<div class='sidetal'>Gå til side "
For intNum = 1 To intPageCount
    Response.Write "<b><a class=link href=?dato=" & dato & "&newstype=" & newstype & "&word=" & word & "&side=" & intNum & ">" & intNum & "</a></b> "
Next

Response.Write "</div></td><td width=""30%"">"
If Clng(intPage) > 1 Then
    Response.Write "<a class=de href=?dato=" & dato & "&newstype=" & newstype & "&word=" & word & "&side=" & intPage - 1 & "><b>&#8592; Tilbage</b></a> "
Else
    Response.Write ""
End If

Response.Write space(2)

If Clng(intPage) < Clng(intPageCount) Then
    Response.Write "<a class=de href=?dato=" & dato & "&newstype=" & newstype & "&word=" & word & "&side=" & intPage + 1 & "><b>Frem &#8594;</b></a>"
   
Else
    Response.Write ""
End If
Response.Write "</td></tr></table>"