甲骨文释读第一人:ASP朋友帮我改下，在线等...

懂ASP代码的朋友看过来
说明：这是一段网页中商品分类的asp代码，能在后台添加新的商品分类。现在是自上而下自动添加排列的，想请懂ASP代码的朋友帮我改成自左到右的排列方式（一行）。先谢过啦。哈哈！

<TABLE align="center" cellSpacing=0 cellPadding=0 width=100% border=0>
<TBODY>
<TR>
<TD vAlign=top>
<TABLE width=100% border=0 align="center" cellPadding=0 cellSpacing=0 bordercolor="#FFFF00">
<TR>
<TD vAlign=top>
<TABLE height=20 cellSpacing=0 cellPadding=0 width=100% border=0>
<TBODY>
<TR>
<td width=110 height="30" align="right" bgColor=#009141><font color="#009141"><b>商品分类<b></font></td>
</TR>
<tr><td colspan="3" background=images/bg_04.gif border=0></td></tr>
</TBODY>
</TABLE>

<table cellspacing=0 cellpadding=0 width="100%" border=0>
<tbody>
<%
set rs = server.CreateObject("adodb.recordset")
rs.open "select categoryid,category from category where first=0 order by categoryorder",conn,1,1
if rs.eof and rs.bof then
response.Write "<tr><td align=center>还没有商品分类</td></tr>"
else
do while not rs.eof %>
<tr align="left">
<td height=20 colspan="3" valign=center> <a href=cat.asp?catid=<% = rs("categoryid") %>><font color="#009141">--><B><% = rs("category") %></B></font></a></td>
</tr>
<tr><td colspan="3" background=images/bg_04.gif border=0></td></tr>
<%
Dim rs1
set rs1 = server.CreateObject("adodb.recordset")
rs1.open "select categoryid,sortsid,sorts from sorts where sorts.categoryid="&rs("categoryid")&" order by sortsorder",conn,1,1
do while not rs1.eof %>
<tr>
<td valign="top" width="80" align="right"> <a href=class.asp?aid=<% = rs1("categoryid") %>&nid=<% = rs1("sortsid") %>>
<% = rs1("sorts") %>
</a></td>
<td align="center" valign="top"> </td>
<%
rs1.movenext %>
<% if rs1.eof then %>
<%
exit do
else %>
<td valign="top" width="80"><a href=class.asp?aid=<% = rs1("categoryid") %>&nid=<% = rs1("sortsid") %>>
<% = rs1("sorts") %>
</a></td>
</tr>
<% rs1.movenext
end if
loop
rs1.close
set rs1 = nothing %>
<%
rs.movenext
loop
rs.close
set rs = nothing
end if
%>
</tbody>
</table> </TD>
</TR>

</TABLE>