al bakalım daha henüz yeni olduğundan sana yanyana listeleme yapabilmen için kodu veriyorum ama buna alışmasan iyi olur

<% Set baglanti = Server.CreateObject("ADODB.Connection")
baglanti.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("data#.mdb")
Set rs = Server.CreateObject("ADODB.Recordset")
	rs.open "select * from tablo",baglanti,1,3 %>
<table border="0" align="left" cellpadding="0" cellspacing="0">
<tr>
<% for i = 1 to rs.recordcount %>
    <td><%=rs("veri")%></td>
<% if i mod 3 = 0 then
Response.Write "</tr><tr>"
end if
rs.movenext
next
rs.close()
Set rs = Nothing
baglanti.close()
Set baglanti = Nothing %>
</tr>
</table>

"if i mod 3 = 0 then" buradaki 3 yerine kaç yazarsan okadar yanyana listeleme yapmış olursun hadi kolay gelsin