关于asp调用数据库，换列的问题，请高手指点！
asp调用数据库，我现在需要将这些数据分成多列显示，如何改？请高手指点！<html>
<head>
<meta http-equiv="Content-Language" content="zh-cn">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title></title>
<SCRIPT language="javascript" src="canlendar.js">
</SCRIPT>
<style type="text/css">
<!--
A{TEXT-DECORATION: none}
BODY {FONT-FAMILY: 宋体; FONT-SIZE: 9pt; LINE-HEIGHT: 16px}
TD {
FONT-FAMILY: 宋体;
FONT-SIZE: 9pt;
LINE-HEIGHT: 16px;
}
A:link {COLOR: #9999FF;TEXT-DECORATION: none}
A:visited {COLOR:#9999FF; TEXT-DECORATION: none}
A:active {TEXT-DECORATION: none}
A:hover {COLOR:#FF0000; TEXT-DECORATION: underline}
-->
</style>
</head>
<body leftmargin=0 topmargin=0 >
<%
date1 = mid(Trim(Request("date1")),2,len(Trim(Request("date1")))-2)
Const CONNECT = "FILEDSN=AHCYWEB_ORA"
%>
<form method="POST" action="qkoil.asp">
<table align="center" bgcolor="#EBF3F1" bordercolor="#EBF3F1" bordercolorlight="#CCCCCC" bordercolordark="#FFFFFF" width="450" border="1" cellspacing="0" cellpadding="0" >
<tr>
<td width="50%">生产信息</td>
<td width="20%">日期</td>
<td width="20%"><INPUT id="Text1" onclick='popUpCalendar(this, this, "yyyy-mm-dd")' readOnly type="text" size="16" name="Text1" value="<%=date1%>"></td>
<td><input type="submit" value="查询" name="B3"></td>
</tr>
</table>
<table align="center" bgcolor="#EBF3F1" bordercolor="#EBF3F1" bordercolorlight="#CCCCCC" bordercolordark="#FFFFFF" width="450" border="1" cellspacing="0" cellpadding="0" >
<tr>
<td width="150" rowspan="2" ><div align="center">单位</div></td>
<td colspan="2" ><div align="center">生产车间</div></td>
<td width="45" rowspan="2" ><div align="center">日计划<br>
(t)</div></td>
<td width="45" rowspan="2" ><div align="center">日产量<br />
(t)</div></td>
<td width="45" rowspan="2" ><div align="center">月计划<br />
(t)</div></td>
<td width="45" rowspan="2" ><div align="center">月累计(t)</div></td>
<td width="45" rowspan="2" ><div align="center">完成率%</div></td>
</tr>
<tr>
<td width="45" ><div align="center">总开机<br>
(台)</div></td>
<td width="45" ><div align="center">开机<br>
(台)</div></td>
<%
set cn = Server.CreateObject( "ADODB.Connection" )
cn.Open CONNECT
SQL = "{call pkg_oil_cycweb.p_get_fqcyzs('1460130000','" & date1 & "',{resultset 3000, :s})}"
set cmd = server.CreateObject (")
with cmd
set .ActiveConnection = cn
.CommandText = SQL
.CommandType = 1 'adCmdText
end with
set rs = server.CreateObject ( "ADODB.Recordset" )
set rs = cmd.execute
Do until rs.EOF
%>
<tr>
<td ><div align="left"><%=rs(0).Value%></div></td>
<td ><div align="right"><%=rs(2).Value%></div></td>
<td ><div align="right"><%=rs(4).Value%></div></td>
<td ><div align="right"><%=rs(6).Value%></div></td>
<td ><div align="right"><%=rs(7).Value%></div></td>
<td ><div align="right"><%=rs(8).Value%></div></td>
<td ><div align="right"><%=rs(9).Value%></div></td>
<td ><div align="right"><%=rs(10).Value%></div></td>
</tr>
<%
rs.MoveNext
loop
Set cmd = Nothing
Set param = Nothing
rs.close
Set rs = Nothing
cn.close
Set cn = Nothing
%>
</table>
</form>
</body>
</html>
