这段网页怎么编写？
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="105%" id="AutoNumber1" height="604">
<tr>
<td width="100%" height="110">
<p align="right">
<img border="0" src="IMAGES/ad0.jpg" width="549" height="110"></td>
</tr>
<tr>
<td width="100%" height="32">
<p align="center"><%=dreamsun_sitename%>
<%set rs2=server.CreateObject("adodb.recordset")
sql="select * from zhuanti order by id DESC"
rs2.open sql,conn,1,1
%>
</td>
</tr>
<tr>
<td width="100%" height="462" valign="top" valign="top">
<table border="0" width="100%" id="table1" bordercolorlight="#000000" bordercolordark="#000000">
<tr>
<td width="26"> </td>
<td width="147">专题名称</td>
<td>专题介绍</td>
</tr>
<tr>
<td width="26"><%=rs2("id")%></td>
<td width="147"><a href="?zhtid=<%=rs2("id")%>&cz=edit"><%=rs2("zhtname")%> </a></td>
<td><%=left(trim(rs2("zhtnote")),100)%></td>
</tr>
</table>
请问怎样改才可以让zhuanti里的数据 用表格的方式列出来！
大家帮我改改,改的好,可以多加分！！！
参考答案:分析：
出现这样的问题的原因是你记录集中只有一条记录，recordset是一次取一个记录的，而你用了sql="select * from zhuanti order by id DESC" 得到的数据就是最后那条数据了。
方法：
不用急，应该用一个循环语句，让它取了一个数据之后，再改变指针取下面的数据，……
<%
dim i,sql
set rs2=server.CreateObject("adodb.recordset")
sql="select * from zhuanti order by id DESC"
rs2.open sql,conn,1,1
i=1 /*用来做循环*/
do while not (rs2.eof or err)
%>
<tr> …你的表格数据…<td>
<%
i=i+1
if i>PageSize then exit do /*如果你设置了页面显示记录最大数的话*/
rs2.MoveNext
loop
%>
%>