这段怎么样才能让他横着显示最多6条信息横着2条其它的往下显示直到6条信息为止
<%
set rs=server.CreateObject("adodb.recordset"
rs.open "cp order by id desc ",conn,1,3
i=0
Dim picarray,pic
pic=rs("picname"
picarray = Split(pic,"|",-1)
%>
<%do while not rs.eof and i<2 %>
<table width='230' height='148' border='0' cellspacing='3'><tr><td height="142" valign="top"><table width="225" height="140" border="0" cellpadding="0" cellspacing="2"><tr><td width="10%" height="66" valign="top"><img src="soft/<%=picarray(0)%>" width="76" height="66"></td><td width="90%" valign="top"><table width="148" border="0" align="center" cellpadding="0" cellspacing="0"><tr><td width="123"><%=rs("class_id"
%></td><td width="27" rowspan="3" valign="top"><img src="images/news.gif" width="27" height="46"></td></tr><tr><td><%=rs("cpname"
%></td></tr><tr><td>点击数:<%=rs("mun"
%></td></tr></table></td></tr><tr valign="top"><td height="24" colspan="2">产品规格:<%=rs("cpxh"
%></td></tr><tr><td colspan="2" valign="top"><div align="right"><font color="#CCCCCC">上传日期:<%=rs("now"
%></font></div></td></tr></table></td></tr></table><%
i=i+1
rs.movenext
loop
%>