Ok so at about 12 (very late) I came up with a solution
<table width="300" border="1" cellspacing="0" cellpadding="0">
<tr>
<% Dim nextline, todisplay, endof
todisplay = 2
nextline = 0
endof = 0
%>
<% do while endof <> (Recordset1_total) AND (NOT Recordset1.EOF)%>
<% endof = endof + 1 %>
<% If nextline = todisplay Then %>
<% nextline = 0 %>
</tr>
<tr>
<% End If %>
<% nextline = nextline + 1 %>
<td><%=(Recordset1.Fields.Item("ID").Value)%></td>
<% Recordset1.MoveNext() %>
<% loop %>
</tr>
</table>
The "Recordset1_total" is the amount of total records in the recordset