初学编程，想请各位前辈给予指点。下面是一段纵向多列代码，我想改

初学编程，想请各位前辈给予指点。下面是一段纵向多列代码，我想改为横向多列显示并每列显不数据不同。怎样改？谢谢了。
<td>
    <table border=1 cellspacing=0 cellpadding=0 style="border-collapse: collapse" bordercolorlight="#FFFFFF" bordercolordark="#FFFFFF">  
<%dim ns2
set rsfox=server.createobject("adodb.recordset")
sqlfox="select top 18 * from POC_suju where yz=1 and ts=0 and tj=1 order by fbsj desc"
rsfox.open sqlfox,conn,1,1
if rsfox.eof then
response.write "还没有...！"
else
do while not rsfox.eof
%>
<tr>
<td class="tdtxt06" style="font-size: 12px">
<%if not rsdian.eof then%>
<table border="1" width="100%" bordercolorlight="#cccccc" bordercolordark="#cccccc" style="border-collapse: collapse">
<tr><td height="22"><A href="kdag.asp?fox=<%=rsfox("id")%>" title="<%=rsfox("adc")%>"><%=left(rsfox("abc"),10)%></a>
</td></tr>
</table>
<%rsdian.movenext
end if
%></td>
<%
ns2=ns2+1
if ns2>=5 then exit do
rsfox.movenext
loop
end if
rsfoxf.close
set rsfoxf=nothing
rsfox.close
set rsfox=nothing
%></table></td>