Paging 3x3 på hver side

Jeg har 2 stumper kode som hverisær gør hver det de skal, men samme kan jeg ikke få det til at virke.

Og det jeg vil er at jeg har et recordset med x antal records. Disse records vil jeg gerne have vist med max 9 på hverside, 3 rækker med 3 ihver.

Først har jeg noget kode til paging (snuppet fra activedeveloper.dk):

                                    Dim intPage, intRecCount, intPageCount, intNum

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

                                    If Not (resBruger.BOF And resBruger.EOF) Then
                                      resBruger.PageSize = 3
                                      resBruger.AbsolutePage = intPage
                                      intRecCount = resBruger.PageSize
                                      intPageCount = resBruger.PageCount
                                      Response.Write "<p><b>Side " & intPage & " af " & intPageCount & "</b></p>"
                                      Do While Not resBruger.EOF And intRecCount > 0
                                        Response.Write "<p>Gå til side "
                                        For intNum = 1 To intPageCount
                                          Response.Write "<a href=brugerprofil.asp?page=" & intNum & ">" & intNum & "</a> "
                                        Next

                                        Response.Write "<p>"
                                        If Clng(intPage) > 1 Then
                                          Response.Write "<a href=brugerprofil.asp?page=" & intPage - 1 & ">&lt;&lt;</a>"
                                        Else
                                      Response.Write "&lt;&lt;"
                                        End If

                                        Response.Write "&nbsp;"

                                        If Clng(intPage) < Clng(intPageCount) Then
                                          Response.Write "<a href=brugerprofil.asp?page=" & intPage + 1 & ">&gt;&gt;</a> "
                                        Else
                                          Response.Write "&gt;&gt;"
                                        End If


Også har jeg noget kode som henter det der skal, men med max 3 i hver rækker.
Det jeg får nu er alle records ordnet i rækker med 3.

                                Dim a, i

                                    i = 1
                                    If IsArray(arrProfil) Then
                                        For a = 0 To uBound(arrProfil,2)
                                            Response.Write("<td width='33%' align='center'")%>
                                                <td align="center"><a href="brugerprofil.asp?Profil=<%=arrProfil(0,a)%>"><img src="<%=arrprofil(27,a)%>" width="140" height="200" align="bottom" alt="Foto af <%=arrProfil(3,a)%>&nbsp;<%=arrProfil(5,a)%>"><br>Klik for at se profil</a></td>
                                <%
                                        If i mod 3 = 0 Then
                                            Response.Write("</tr><tr>")
                                        End If
                                        i = i + 1
                                        Next
                                    End If

Der der driller er den dynamiske opbygning af tabellen