Paging

Jeg har et helt almindelige paging system:

<%
intPage = Request(\"page\")
If isNumeric(intPage) = False Or intPage < 1 Then
intPage = 1
End If

strDSN = \"DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\"&Server.MapPath(\"min_db.mdb\")
Set rstemp = Server.CreateObject(\"ADODB.RecordSet\")
strSQL = \"SELECT * FROM News ORDER by date desc\"
rstemp.Open strSQL, strDSN, 1

If Not (rstemp.BOF Or rstemp.EOF) Then
rstemp.PageSize = 5
rstemp.AbsolutePage = intPage
intRecCount = rstemp.PageSize
intPageCount = rstemp.PageCount
%>
<table border=\"0\">
<tr>
<td>
<%
If Clng(intPage) > 1 Then
Response.Write \"<a href=index.asp?mode=news&page=\"& intPage - 1 &\">&lt;&lt; Previous</a>\"
Else
Response.Write \"&nbsp;\"
End If
%>
</td>
<td>
<%
For intNum = 1 To intPageCount
Response.Write \"<a href=index.asp?mode=news&page=\" & intNum & \">\" & intNum & \"</a> - \"
Next
%>
</td>
<td>
<%
If Clng(intPage) < Clng(intPageCount) Then
Response.Write \"<a href=index.asp?mode=news&page=\"& intPage + 1 &\">Next &gt;&gt;</a> \"
Else
Response.Write \"&nbsp;\"
End If
%>
</td>
</tr>
</table>
<% Do While Not rstemp.EOF And intRecCount > 0 %>
Her skal alt andet på siden være...
<%
intRecCount = intRecCount - 1
rstemp.movenext
loop
else
%>
End If
%>
<%
rstemp.Close
Set rstemp = Nothing
%>

Det skulle gerne være nogenlunde det jeg bruger, ved ikke om det er sat rigtigt op, men det er heller ikke relevant her.

<%
For intNum = 1 To intPageCount
Response.Write \"<a href=index.asp?mode=news&page=\" & intNum & \">\" & intNum & \"</a> - \"
Next
%>

Det som er lige ovenover udskriver følgende:

1 2 3 4 5 6 7 8 9 10, det er jo så efter hvor mange sider man har, men ville spørge om det var muligt at man kunne gøre sådan her:
1 2 3 4 5 6 7 8 9 10 ... de 3 prikker skal så være link til de næste 10 sider, så den altså kun skriver links til 10 sider af gangen.

håber at der er nogen der forstår hvad jeg mener med det.

MvH. Jesper