多列 数据库 asp

请教各位,这段代码查询出来的结果是单列显示,我想让它分4列显示,应该如何做,能否给出完整代码,谢谢各位了,急!<!--#include file="mycartconn/page.asp" --><%set s = Server.CreateObject("testobj")if request("lbid")="" or request("lbid")="0" or not isnumeric(request("lbid")) then lbid="" else lbid="lbid="&s.shuzi("lbid")&" and"if request("key")<>"" then key="bt like ✀%"&s.txt("key")&"%✀ and"else key=""Set rs=Server.CreateObject("ADODB.Recordset")sql="select top 300 bt,ly,sj,html from news where "&lbid&" "&key&" zt=1 order by id desc"rs.open sql,conn,3,1 page1("30")%><table width="760" border="0" align="center" cellpadding="0" cellspacing="0"> <tr> <td height="5"></td> </tr> <tr> <td height="25" bgcolor="#f1f1f1">   您的位置：首页 >> 搜索</td> </tr></table><table width="760" border="0" align="center" cellpadding="0" cellspacing="0"> <%i=1do while not rs.eof and i<=rs.pagesize%><tr> <td width="35"> </td> <td width="700" height="25" valign="middle"> <%Response.Write(" ·<a href=/html/"&rs("html")&" target=_blank>"&rs("bt")&"</a> <font color=#aaaaaa>("&rs("ly")&","&month(rs("sj"))&"月"&day(rs("sj"))&"日)</font><br>")%> </td> <td width="35"> </td> </tr><%i=i+1rs.MoveNext loop%> <tr> <td width="35"> </td> <td width="700" height="25" align="center"> <%page2("lbid="&request("lbid")&"&key="&request("key")&"&")rs.closeset rs=nothingset s=nothingconn.close:set conn=nothing%> </td> <td width="35"> </td> </tr></table>