Loop af record i tabel

Hejsa,

Jeg har et rigtig godt script som smider x antal poster i en tabel i 2 spalter.

Jeg vil nu meget gerne have den til at smide den i 3 spalter.. Men efter en del forsøg - må jeg erkende at jeg ikke kan finde ud af det selv..

Mit script ser således ud:
----------------------------------------------
<%
Set rs = Server.CreateObject("ADODB.Recordset")
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open  MM_webdatabase_STRING
SQL = "SELECT * FROM cmsmodules WHERE Cactivestatus = 'zfrontpage' ORDER BY Cmodules ASC"
Set rs = Conn.Execute(SQL)

lastID = ""
response.write "<table width=""80%"">"
colPrRow = 0
maxPrRow = 2
do while not rs.EOF
  if colPrRow = 0 then Response.write "<tr>"

  if lastID <> rs("CID") then
    Response.Write "<td valign=""top"">"
    response.write "<table width=""100%"">"
    response.write "<tr><td>"
   
'------------------------------------------------------------------------------------------

' her indsættes data

'------------------------------------------------------------------------------------------   
   
    response.write "</td></tr>"
    lastID = rs("CID")
    colPrRow = colPrRow + 1
  end if

  rs.Movenext

  if not rs.EOF then
    if lastID <> rs("CID") then
      Response.Write "</table>"
      Response.Write "</td>"
    end if
  else
    Response.Write "</table>"
    Response.Write "</td>"
  end if

  if colPrRow = maxPrRow then
    colPrRow = 0
    response.write "</tr>"
  end if
loop
if colPrRow > 0 then response.write "</tr>"
response.write "</table>"
%>

På forhånd tak for hjælpen!