side til visning af adresselabels

Hej...
jeg er ved at lave en side til udskrift af labels... jeg har roddet lidt med nogen lykker og andet og er kommet frem til følgende: (der ikke virker)

<table class="avery">
<%
'    intPage = Request("page")
'    If isNumeric(intPage) = False Or intPage < 1 Then
'      intPage = 1
'    End If

    Set rs = Server.CreateObject("ADODB.RecordSet")
    strSQL = "SELECT * FROM bruger"
    strDSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("../../db/familielunden.mdb")
    rs.Open strSQL, strDSN, 1

'    If Not rs.BOF Then
'     Counter = 0
'      rs.PageSize = 21
'      rs.AbsolutePage = intPage
'      intRecCount = rs.PageSize
'      intPageCount = rs.PageCount
'      Response.Write "<p><b>Side " & intPage & " af " & intPageCount & "</b></p>"

'for r = 0 to 6
' response.write "<tr>"

'    for k = 0 to 2
'  Do While Not rs.EOF And intRecCount > 0

'    If Counter Mod 3 = 0 then Response.Write "<tr>"
'    Response.Write "<td>" & Rs("id") & "</td>"
'    Counter = Counter + 1
'    If Counter Mod 3 = 0 then Response.Write "</tr>"
'        if Counter Mod 21 = 0 then
'      Response.Write "</table><div style=""page-break-before: always;""></div><table>"
'    end if

for r = 0 to 6
response.write "<tr>"

    for k = 0 to 2
    response.write "<td>test 1&nbsp;"& rs("id") &"</td>"
    next

'        intRecCount = intRecCount - 1
'        Rs.MoveNext
'      loop
    response.write "</tr>"
    next
'    end if

'Counter = Counter Mod 3
'if Counter > 0 then
'  for i = Counter to 3
'    Response.Write "<td>&nbsp;</td>"
'  next
'  Response.Write "</tr>"
'end if
'Response.Write "</table>"


    rs.Close
    Set rs = Nothing
'Response.Write "<p>Gå til side "
'For intNum = 1 To intPageCount
'  Response.Write "<a href=paging.asp?page=" & intNum & ">" & intNum & "</a> "
'Next

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

    %>
</table>

Er der nogen der kan få det til at virke?