asp 横排显示数据

<% 
sql="select * from serr where order by id asc" 
set rs=server.createobject("adodb.recordset") 
rs.open sql,conn,1,1 
%><style type="text/css"> 
<!-- 
body,td,th { 
font-size: 12px; 
} 
--> 
</style> 
<table width=""100%"" align='center'> 
<% 
for i=1 to rs.recordCount '变量i从1循环到数据庫中的全部记录数 
if (i mod 4 =1) then '每个tr显示4个记录,可根据需要自行修改 
response.write "<tr>" 
end if 
response.write "<td width=200>"&rs("title")&"<br>"&rs("con")&"<br>"&rs("www")&"<br>"&rs("keyword")&"</td>" 
if (i mod 4 = 0) then 
response.write "</tr>" 
end if 
rs.movenext 
next 
rs.close 
%> 
</table>