Udskrive recordset i tabel

Jeg har følgende recordset som bliver udskrevet i hver sin række:

<%
    If not Res.EOF then
    Res.movefirst
    while not Res.eof
%>     
      <tr>
          <td valign="top" width="370">
          <h2><%= res("titel")%> - <%= res("navn")%></h2>
          <%= replace(res("txt"),vbcrlf,"<br>") %><br /><br />
          </td>
        <td valign="top" width="210" align="right">
        <% if res("billede") <>"" then %><img src="image/upload/<%=res("billede")%>" border="0" /><br /><br /><% end if %>
        </td>
      </tr>
<%
Res.MoveNext
wend
End if
%>   
-----------------------------------

Jeg vil dog gerne have det lavet således, at det bliver udskrevet på følgende måde i en tabel:

1    2
3    4
5    6

osv osv.

Håber det er til at forstå. På forhånd tak!. :)