各位看客，这段竖排循环的代码如何不能运行

各位看客，这段竖排循环的代码怎么不能运行？
<%
dim tmp,tmp1,tmp2,tmp3
tmp="<table>"
while not rs.eof
  tmp1=tmp1 & "<td>"&rs("0")&"</td>"
  tmp2=tmp2 & "<td>"&rs("1")&"</td>"
  tmp3=tmp3 & "<td>"&rs("2")&"</td>"
rs.movenext
wend
tmp1="<tr>" & tmp1 & "</tr>"
tmp2="<tr>" & tmp2 & "</tr>"
tmp3="<tr>" & tmp3 & "</tr>"
tmp=tmp & tmp1 & tmp2 & tmp3
tmp=tmp & "</table>"
%>


说是缺少rs。怎么搞都不行，求解。。。

------解决方案--------------------
rs是查询数据库返回的记录集，你创建了吗？

Set rs = conn.Execute("select * from table")