数控加工工艺品图纸:这段代码显示的是一行16条，怎么改成4行4条显示？请大虾帮忙

<table cellspacing=5 cellpadding=0 width="100%" align=center border=0>
<tbody>
<tr valign=top>
<%
show=0
forci=0
show=16
set rs=server.createobject("adodb.recordset")
sql="SELECT ID,小图,分类,人气,出产地,影片名,主演,显示,加入时间 FROM 影片 where 显示='是' and 分类='"&rst("id")&"' order by 加入时间 desc"
rs.Open sql,conn,1,1
if not rs.eof then
if rs.recordcount>show then
forci=show
else
forci=rs.recordcount
end if
for i=1 to forci
%>
<tr>
<%
for y=1 to 4
%>
<td align=middle>
<%
if not rs.eof then
if site_runscript="asp" then
Rw "<a title='影片名："&rs("影片名")&" 所属类："&readtype(rst("id"))&" 出产地："&rs("出产地")&" 日 期："&datevalue(rs("加入时间"))&" 人 气："&rs("人气")&"' href=film_view.asp?id="&rs("id")&"><br>"&rs("影片名")&"</a>"
else
Rw "<a title='影片名："&rs("影片名")&" 所属类："&readtype(rst("id"))&" 出产地："&rs("出产地")&" 日 期："&datevalue(rs("加入时间"))&" 人 气："&rs("人气")&"' href=film_view_"&md5(rs("id"),32)&".html><br>"&rs("影片名")&"</a>"
end if
end if
%>
</td>
<%rs.movenext
next
i=i+4
%>
</tr>
<%
next
else
Rw " 暂无"
end if
%>
</tr>
</tbody>
</table>