请高手帮忙解决一下
<%   
sql = "select * from b_name order by id desc"
set rs=server.CreateObject("adodb.recordset")
rs.Open " b_name ", Session("ObjConn"), , ,2  
%>
<%
    n=0
   do while not rs.EOF
%>
<a href= "dt.asp?id=<%=rs("id")%>""><%=trim(rs("title"))%></a>
<%
response.Write("<br>")
n=n+1
if n>11 then
exit do
end if
rs.movenext
loop
rs.close()
set rs=nothing
%>


现在输出时成一列显示如下
11
22
33
44
55
66
77
88
99
00


我想让显示为
11    22    33
44    55    66
77    88    99
00


请问怎么能实现！  谢谢了!

<%
   Dim i
    n=0
   i=1
   do while not rs.EOF
   i=i+1
   IF i Mod 3 = 0 Then
      response.Write("<br>")
   Else
%>   
<a href= "dt.asp?id=<%=rs("id")%>""><%=trim(rs("title"))%></a>
<%
   End IF
n=n+1
if n>11 then
exit do
end if
rs.movenext
loop