如何修改下面的语句既不出错又最简练呢？？下面“红色”的部分。。。。
——————————————————————————————————————————————
<%
i=1
if i mod 2=1 then
%>
<tr>
<% end if%>
<%set rsh=server.CreateObject("adodb.recordset")
rsh.open "select pinpai_name,count(pinpai_name) from pinpai group by pinpai_name order by pinpai_name",conn,1,1
do while not rsh.eof
ppname=rsh("pinpai_name")%>
<%set rsj=server.CreateObject("adodb.recordset")
rsj.open "select pinpai_logo,count(pinpai_logo) from pinpai group by pinpai_logo order by pinpai_logo",conn,1,1
do while not rsj.eof
pplogo=rsj("pinpai_logo")%>
<%set rsk=server.CreateObject("adodb.recordset")
rsk.open "select pinpai_content,count(pinpai_content) from pinpai group by pinpai_content order by pinpai_content",conn,1,1
do while not rsk.eof
ppcontent=rsk("pinpai_content")%>
<td width="50%"><p style="line-height: 120%">
<a href="pinpainame.asp?action=search&pinpai_name=<%=ppname%>"><img border="0" src="<%=pplogo%>" align="left" width="100"></a><b><%=ppname%></b>：<br><%=ppcontent%>
</td>
<% if i mod 2=0 then%>
</tr><tr><td colspan="2" height="10"></td></tr>
<%
end if
i=i+1
rsh.movenext
rsj.movenext
rsk.movenext
loop
rsh.close
rsj.close
rsk.close
%>
—————————————————————————————————————————————
说真的，我边写边笑，因为我的基本就是常理思维，我想：发明ＡＳＰ的人看了会很痛苦，他会请我吃饭，劝我以后在家里自己写写就算了，不要放到论坛里来，要考虑影响。。。。。。
哈哈。。哈。。。还是靠朋友们。。。。来给一个最精炼的段子吧。。。。
哪位先来？？？：）～～
[此贴子已经被作者于2006-9-12 20:51:35编辑过]
，这么写就算逻辑上正确。运行时也会相当的消耗资源（系统内存)。