<table width="100%" border="0" cellpadding="1" cellspacing="1">
<%
set adrs=server.createobject("adodb.recordset")
sql="select * from ad order by adnum asc,id desc"
adrs.open sql,conn,1,1
if not adrs.eof then
f=0
%>
<tr aling="center">
<td>
<%
while not adrs.eof
response.write f '此处可以改成你要显示的东东
response.Write " </td>" & vbnewline
f=f+1
adrs.movenext
response.write "<td>"
if f mod 5=0 then response.write "</tr><tr><td>"
wend
end if
adrs.close
set adrs = nothing %>
</tr>
</table>
<table>
<tr>
<%
dim i
i=0
do while not rs.eof
if i mod 5 =0 then response.write"</tr><tr>"
response.write "<td>"&rs("name")&"</td>"
i=i+1
rs.movenext
loop