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>