paging side liste over 600 sider

jeg har:

For i = 1 to intPages
  if i = intPage then
    Response.Write "<b>" & i & "</b> "
  else
    %><a href="default.asp?SetPreferences=<%=Request.Querystring("SetPreferences")%>&p=<%=i%>"><%
    Response.Write i
    Response.Write "</a> "
  end if
 
next

som skriver en side liste ud, det virker ganske fint men problemet er at der er over 600 sider så det fylder en del i bunden af siden.
Hvordan kan man lave det lidt mere smart?
Jeg har set nogle steder hvor de laver noget ala dette

1 2 3 4 5 6 7 8 9 10 20 30