Paging med tabel

Jeg skal lave en paging med tabelfelter.
Det jeg gerne vil have er 3 felter på langs og 3 felter højt
Hvor jeg gerne ville kunne smide forskellige ting ind i de felter
Min kode som jeg ikke kan få til at virke ser sådan ud:
Håber i kan hjælpe.

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

Set rs = Server.CreateObject("ADODB.RecordSet")
strSQL = "SELECT * FROM varetabel "
strDSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="& sti &""
rs.Open strSQL, strDSN, 3
If Not (rs.BOF Or rs.EOF) Then
    rs.PageSize = 3
    rs.AbsolutePage = intPage
    intRecCount = rs.PageSize
    intPageCount = rs.PageCount
    ' Do While Not rs.EOF And intRecCount > 0

max_pr_row = 3 'Max antal kolonner pr række
no_pr_row = 0 'Tæller som bruges til at tælle antal kolonner pr række
response.write "<table border=1>"
Do While Not rs.EOF And intRecCount > 0
  if no_pr_row = 0 then
    response.write "<tr>"
  end if
%>
  <td>


<a href="kurvmereinfo.asp?varenummer=<% =rs("varenummer")%>&kategori=<%=kategori%>"  class=tilbage><img  width="100px" src="grafik/vare/<% =rs("billed01")%>" border=0  ></a>

<br>

Pris: <% =rs("pris")%> DK kr.
</td>
<%
  no_pr_row = no_pr_row + 1
  if no_pr_row = max_pr_row then
    no_pr_row = 0
    response.write "</tr>"
  end if
  intRecCount = intRecCount - 1
  rs.MoveNext
Loop
if no_pr_row > 0 then
  response.write "</tr>"
end if
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=kurveindexnew.asp?page=" & intNum & "&kategori=" & kategori & " class=link>" & intNum & "</a> "
Next

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

Response.Write "&nbsp;"

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