<TABLE width="99%" height="75"
border=0 align=center cellPadding=0 cellSpacing=2>
<TBODY>
<%
set rs1=server.createobject("adodb.recordset")
sql1="select top 30 * from date where typename= '"&"试验报告"&"' order by dateandtime desc"
rs1.open sql1,conn,1,3
%>
<TR>
<%
Dim m
do while not rs1.bof and not rs1.eof
m = m + 1
%>
<TD width="3%" class=b12><div align="center">·</div></TD>
<TD height=19 colspan="2" width="47%"><span class="style33"><a href="/date/showwz/show.asp?id=<%=rs1("newsid")%>" class="title_list" target="_blank"><%=left(rs1("title"),20)%></a></span> </TD>

<%
If m Mod 2 = 0 Then Response.Write("</tr><tr>")
rs1.movenext
loop
rs1.close
%>
</TR>

</TBODY>
</TABLE>

自己参考一下.