Helt otestat.
<%
set conn = server.createobject("ADODB.Connection")
conn.open connstr
set rs = server.createobject("ADODB.Recordset")
sql = "SELECT * FROM table"
rs.open sql, conn, 3, 3
iLoop = 0
lNumberOfTds = 3
lRowsInTd = round(rs.recordcount / lNumberOfTds,0)
%>
<table border="0">
<tr>
<td>
<%
do until rs.eof
response.write rs("fieldname") & "<br>"
iLoop = iLoop + 1
rs.movenext
loop
if iLoop = lRwsInTd Then
response.write "</td><td>"
iLoop = 0
end if
%>
</td>
</tr>
</table>
<%
set rs = nothing
set conn = nothing
%>

