<table align="center" border="0" width="100%" cellspacing="0" cellpadding="0">
<%
dim rs,sql,topbest
sql="select * from pic WHERE tuijian = true order by hits desc"
Set rs= Server.CreateObject("ADODB.Recordset")
rs.open sql,conn,1,1
topbest=1
if rs.eof and rs.bof then
response.write "<p align='center'>没有任何图片</p>"
else
i=0
do while not rs.eof or rs.bof
if not rs.eof then
%>
<tr>
<td align="center"><a href="list.asp?id=<%=rs("id")%>"> <img src="<%=rs("pic")%>" width="120" height="130" border="0"></a><br><%=rs("name")%></td>
<% rs.movenext%>
<td align="center"><a href="list.asp?id=<%=rs("id")%>"> <img src="<%=rs("pic")%>" width="120" height="130" border="0"></a><br><%=rs("name")%></td>
</tr>
<%rs.movenext
end if
topbest=topbest+2
if rs.eof or topbest>8 then
exit do
end if
loop
rs.close
set rs=nothing
end if%>
</table>


上面的代码怎么让他4X2排列了
如：

---------------------------------------------

晕~~那怎么改啊~~我老改不来啊~~
上面的代码是2X4
我想4X2就是2行4张图片~~不知道怎么改`~帮忙下啊

谢谢~~这个我知道~~我就是想让代码少一点

我想用这样但这样不成功

<table>
<%
for i=1 to 4
     if rs.eof then exit for
%>
<tr>
<%
     for i=1 to 2
%>
<td><img ......></img></td>
<%
          rs.movenext
          if rs.eof then exit for
     next
%>
</tr>
<%
next
%>
</table>