Sideskift system udskirves til venstre.

Jeg har et sideskift system. Men vil gerne ha den skal udskrive 4 mod venstre og så der efter lave nyt linjeskift.

// Koden er udskriver 4 mod venstre.
<%
Set connect = Server.CreateObject("ADODB.Connection")
Connect.Open "DRIVER={Microsoft Access Driver (*.mdb)};UID=; PWD=;DBQ=" & Server.Mappath("base.mdb")
sql = "select * from images where billedesti=true ORDER BY id desc"
Set rs = Server.CreateObject("ADODB.Recordset")
set rs = Connect.execute(SQL)

bredde = 4
i = 0
Do while not RS.EOF
  If i = 0 then
  response.write("<table>")
    response.write("<tr>")
  End If

  response.write("<td>")
  response.write("Indhold")
  response.write ("</td>")

  i = i + 1
  If i = bredde then
    response.write("</tr>" & vbcrlf)
  response.write("</table>")
    i = 0
  End If
  RS.movenext
Loop
%>

// Koden jeg bruger til linjeskift.

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

Set rs = Server.CreateObject("ADODB.RecordSet")
strSQL = "SELECT * from images order by ID desc;"
strDSN = "DRIVER={Microsoft Access Driver (*.mdb)};UID=; PWD=;DBQ=" & Server.Mappath("base.mdb")
rs.Open strSQL, strDSN, 1

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

  response.write("<table>")
  response.write("<tr>")
  response.write("<td>")
  response.write("Indhold")
  response.write("</td>")
  response.write("</tr>")
  response.write("</table>")

  intRecCount = intRecCount - 1
  rs.MoveNext
  Loop
End If
rs.Close
Set rs = Nothing

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

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

En der vil være flink og forklare hvordan jeg kan få disse to koder sat sammen til en.
På forhånd mange tak.