<%
sql="select top 8 * from zt where sortid='11' order by ID desc"
set rs=server.createobject("ADODB.recordset")
rs.open sql,conn,1
row=1
do while not rs.eof and row<10
Response.Write("<tr>")
Response.Write("<td class='middletxt'>·<a href='list_zt.asp?ztid="&rs("id")&"' target='_blank' title='"&cutStr(rs("sm"),80)&"'>"&HTMLEncode(left(rs("Title"),16))&"</a></td>")
rs.MoveNext
row=row+2
loop
Response.Write("</tr>")
%>
<%
sql="select top 8 * from zt where sortid='11' order by ID desc"
set rs=server.createobject("ADODB.recordset")
rs.open sql,conn,1
%>
<tr>
<%
Dim m
do while not rs.bof and not rs.eof
m = m + 1
%>
<td class="middletxt">·<a href="list_zt.asp?ztid=<%=rs("id")%>" target="_blank" title=<%=cutStr(rs("sm"),80)%>><%=HTMLEncode(left(rs("Title"),16))%></a></td>
<%
If m Mod 3 = 0 Then Response.Write("</tr><tr>")
rs.movenext
loop
rs.close
%>
</TR>