Paging - over 2 kolonner á 4 rækker pr. side

Hej!

Jeg har en kode, der "pager" 8 records pr. side. Jeg ønsker dog at splitte de 8 records over to kolonner, altså en tabel med to kolonner a 4 rækker.

Er der nogen, der kan hjælpe med at redigere koden, således at det fungerer som overnfor beskrevet. Jeg har lidt problemer med den anden kolonne.

--start på min kode--
<%
intPage = Request("page")
If isNumeric(intPage) = False Or intPage < 1 Then
    intPage = 1
End If

Set rs = Server.CreateObject("ADODB.RecordSet")
strSQL = "Select * from STUDENTS WHERE Incentives_sent='No' AND Login_start='4' AND Country='Norway'"
strDSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("../../../../../db/college.mdb")
rs.Open strSQL, strDSN, 1
If Not (rs.BOF Or rs.EOF) Then
    rs.PageSize = 8
    rs.AbsolutePage = intPage
    intRecCount = rs.PageSize
    intPageCount = rs.PageCount
    Response.Write "<p><b>Side " & intPage & " af " & intPageCount & "</b></p>"
    Do While Not rs.EOF And intRecCount > 0
        Response.Write "<table width=""50%"" border=""1"">" & "<tr><td>" & rs("Name") & "<br><br>" & "</td></tr>"
    intRecCount = intRecCount - 1
    rs.MoveNext
    Loop
    Response.Write "</table>"
End If
rs.Close
Set rs = Nothing

Response.Write "<p>Gå til side "
For intNum = 1 To intPageCount
    Response.Write "<a href=labels_pag.asp?page=" & intNum & ">" & intNum & "</a> "
Next

Response.Write "<p>"
If Clng(intPage) > 1 Then
    Response.Write "<a href=labels_pag.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=labels_pag.asp?page=" & intPage + 1 & ">&gt;&gt;</a> "
Else
    Response.Write "&gt;&gt;"
End If
%>
--slut på min kode--