Paging

Jeg har denne side med paging, som også fungere fint.
Øverst på siden kommer der en række tal man trykker på for at komme til f.eks. side 15. Problemet er at der kan ske det at der fremkommer så mange tal at siden bliver alt for bred. Hvordan får jeg tal rækken til at <br> after tallet 25 ?

Jeg ved sgu ikke om det var til at forstå ????

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

Set rs = Server.CreateObject("ADODB.RecordSet")
sql = "Select * from Products where product_producent = '" & Request.QueryString("producenter") & "';"
rs.Open sql, DSN, 1
%>


<center>
<%
If Not (rs.BOF Or rs.EOF) Then
    rs.PageSize = 10
    rs.AbsolutePage = intPage
    intRecCount = rs.PageSize
    intPageCount = rs.PageCount
    Response.Write "<p><b>Side " & intPage & " af " & intPageCount & "</b></p>"
End If
%>
</center>
<%
Dim color
color = "#FF99CC"

i = 1

%>
<table cellspacing="0" cellpadding="5" border="0" width="100%">
<tr bgcolor="<%=color%>">
<td width="50%" align="left"><b><u>Filmtitel</u></b></td>
<td width="22%" align="center"><b><u>Pris</u></b></td>
<td width="22%" align="center"><b><u>Indkøbskurv</u></b></td>
</tr>
<% Do While Not rs.EOF And intRecCount > 0%>
<tr bgcolor="<%=color%>">
    <td valign="top"><b><a href="produkter.asp?pid=<%=rs("product_id")%>"><%=rs("product_name")%></a></b><br><%=rs("product_shortdesc")%></td>
    <td align="center" valign="top">kr.<%=rs("product_price")%>,-</td>
    <td align="center" valign="top"><a href="viskurv.asp?pid=<%=rs("product_id")%>&productname=<%=rs("product_name")%>&productvhsdvd=<%=rs("product_vhsdvd")%>"><img src="kurv-tilfoj.gif" width="24" height="22" alt="Læg i kurv" border="0"></a></td>
<%
If color = "#FF99CC" Then
  color = "#FFCCFF"
Else
  Color = "#FF99CC"
End If

i = i + 1

intRecCount = intRecCount - 1

rs.MoveNext
Loop
Conn.Close
Set Conn = Nothing

Response.Write "<b>Gå til side</b> "
For intNum = 1 To intPageCount
    Response.Write "<a href=film.asp?producenter=" & Request.QueryString("producenter") & "&page=" & intNum & ">" & intNum & "</a>&nbsp;"
Next
%>
</table>