ASP调用代码优化，高分重谢

以下代码用于调用MSSQL用户表中的两个字段，并截取前16条记录显示。
其中：“table”为表名，“name”为用户名字段，“易做图”为该用户性别字段。
原代码如下，感觉调用很慢，请高手优化，高分重谢：

<!--#include file="conn.asp"-->
<%'调用
dim rs1,sql1
set rs1=server.createobject("adodb.recordset")
sql1= "Select * from table order by id desc"
rs1.open sql1,conn,1,1
if err.number <> 0 then
response.write "数据调用错误"
else
response.write ""
if rs1.bof and rs1.eof then
rs1.close
response.write ""
response.write ""
else
dim a
response.write ""
for a=1 to 16
%>

<table>
<tr>
<td>
<a href="web.asp?userid=<%=rs1("userid")%>&yx=0&name=<%=rs1("name")%>" name=<%=rs1("name")%> target="_top">
<%=rs1("name")%></a>
</td>

<td>
<div align="right">
<%=rs1("易做图")%>
</div>
</td>
</tr>
</table>

<%rs1.movenext
if rs1.eof then exit for
next
rs1.close
set rs1=nothing
end if
response.write ""
end if
%>

追问：哥们，你这个好像不行哟，在浏览器运行一片空白，是不是哪里疏忽了什么？请检查一下，继续完善，写全面，待我测试成功后采纳最佳答案并给分。拜托。哥们，还是不行，在浏览器运行一片空白。请再调试一下，问题出在哪里？
尽管用不了，你费心了。谢谢。
提问时忘了给分，现在追加20分给你。谢谢你，我已经解决了，楼上的运行不了，关键是缺少这行：
set rs1=server.createobject("adodb.recordset")
考虑他花了不少功夫，且先作答，我还是采纳他的答案，20分给他了。

答案：<!--#include file="conn.asp"-->
<%'调用
dim rs1,sql1
sql1= "Select  top 16 * from table order by id desc"
set rs1=conn.execute(sql)
if rs1.bof and rs1.eof then
rs1.close
else
do while not rs.eof
%>

<table>
<tr>
<td>
<a href="web.asp?userid=<%=rs1("userid")%>&yx=0&name=<%=rs1("name")%>" name=<%=rs1("name")%> target="_top">
<%=rs1("name")%></a>
</td>

<td>
<div align="right">
<%=rs1("易做图")%>
</div>
</td>
</tr>
</table>

<%
rs1.movenext
loop
rs1.close
set rs1=nothing
end if
%>

其他：请高手传授点方法，200分，采纳后还重谢！ 易做图：分为“PC技术”、“信息管理技术”、“数据库技术”和“网络技术”四个类别。“PC技术”考核PC机 怎么绕了半天啊 哥哥们，sql 语句按id倒序排，取前 16条 循环读取就可以了哦
<!--#include file="conn.asp"-->
<%'调用
dim rs1,sql1
set rs1=server.createobject("adodb.recordset")
sql1= "Select top 16 * from table order by id desc"
rs1.open sql1,conn,1,1
if rs1.eof or rs1.bof then
  response.write "没有任何记录。"
else
	do while not (rs1.eof or rs1.bof)
%>
	 <table cellpadding="0" cellpadding="0" border="0" style="margin-top:10px;">
		<tr>
		<td>
		<a href="web.asp?userid=<%=rs1("userid")%>&yx=0&name=<%=rs1("name")%>" name=<%=rs1("name")%> target="_top">
		<%=rs1("name")%></a>
		</td>
		<td>
		<div align="right">
		<%=rs1("易做图")%>
		</div>
		</td>
		</tr>
	 </table>
<%  
	rs1.movenext
	loop
end if
rs1.close
set rs1=nothing
%>

上一个：asp.net 怎样在web table控件上弄背景图片
下一个：asp上传空间之后读取不了数据，在本地调试没有错误，。上传之后也没有错误