100分解决一个循环输出问题

[oldwatch]

问题是这样的，我想在两个<td>里面循环输出同一个表的两个不同数据
具体如下：
<%dim i
i=0
set rs=server.CreateObject("adodb.recordset")
rs.open "select top 9 newsname,newscontent,adddate,newsid from news order by adddate desc",conn,1,1
if rs.eof and rs.bof then%>
<TABLE WIDTH="100%" ALIGN="center" BORDER="0" CELLSPACING="0" CELLPADDING="0">
<!--DWLayoutTable-->
<tr>
<TD width="165" height="65" valign="top"> <%response.write "目前还没有新闻！"%> <%else
do while not rs.eof
i=i+1%> <%=trim(rs("newsname"))%> <%=trim(rs("newscontent"))%> <%if i>=9 then exit do
rs.movenext
loop
end if
rs.close
set rs=nothing%> </TD>
<TD width="604" valign="top"><!--DWLayoutEmptyCell-->  </TD>
</tr>
</TABLE>
上面的只是在一个<td>输出两个数据，怎样写才能把<%=trim(rs("newscontent"))%>放到第二个<TD width="604" valign="top"><!--DWLayoutEmptyCell-->  </TD>里面啊？请帮帮忙～

[Reker熊]

<%
Dim i
i=0
set rs=server.CreateObject("adodb.recordset")
rs.open "select top 9 newsname,newscontent,adddate,newsid from news order by adddate desc",conn,1,1
if rs.eof and rs.bof then
%>
<TABLE WIDTH="100%" ALIGN="center" BORDER="0" CELLSPACING="0" CELLPADDING="0">
<tr>
<TD width="165" height="65" valign="top">
<%
Response.write "目前还没有新闻！"
Else
Do while not rs.eof
i=i+1
Response.Write trim(rs("newsname"))
If i>=9 then exit do
Rs.movenext
Loop
%>
</TD>
<TD width="604" valign="top">
<%
Rs.MoveFirst
Do while not rs.eof
i=i+1
Response.Write trim(rs("newscontent"))
If i>=9 then exit do
Rs.movenext
Loop
%>
 
</TD>
<%
rs.close
set rs=nothing
End If
%>
</tr>
</TABLE>

[oldwatch]

很好～接分