一行n列显示代码

<table>
<tr>
<% set rs=......
sql=...
rs.open .....
dim i
i=0
do while not rs.eof
i=i+1
%>
<td>.....新闻标题等显示内容</td>
<% if (i mod n)=0 then
response.write "</tr><tr>"
end if
rs.movenext
loop
%>
</tr>
</table>