asp中控制输出图片的排列

代码如下：
<!--#include file="admin/conn.asp" -->
<%
exec="select top 8 * from flash order by id asc"
set rs=server.createobject("adodb.recordset")
rs.open exec,conn,1,1
if rs.eof and rs.bof then
response.write("没有flash")
end if
%>
<%do while not rs.eof%>
<table width="33%" border="0">
<tr>
<td><a href="flash.asp?id=<%=rs("id")%>"><img src="admin/<%=rs("images")%>" width="140" height="105"></a><a href="flash.asp?id=<%=rs("id")%>"><%=rs("flashname")%></a></td>
</tr>
</table>

<%
rs.movenext
loop
%>
<%
rs.close
set rs=nothing
conn.close
set conn=nothing
%>
以上代码没有错误，现在想实现一行显示4张图片，显示2行，这样

<!--#include file="admin/conn.asp" -->
<%
exec="select top 8 * from flash order by id asc"
set rs=server.createobject("adodb.recordset")
rs.open exec,conn,1,1
if rs.eof and rs.bof then
response.write("没有flash")
end if
%>

<table width="33%" border="0">
<tr>
<%
i=0
do while not rs.eof
i=i+1
%>
<td><a href="flash.asp?id=<%=rs("id")%>"><img src="admin/<%=rs("images")%>" width="140" height="105"></a><a href="flash.asp?id=<%=rs("id")%>"><%=rs("flashname")%></a></td>
<%
if i mod 4=0 then
response.write"</tr>"
end if
rs.movenext
loop
%>
</table>

<%
rs.close