eof问题，，求助~~~~~~~~~~~~
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%><!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>查询数据库</title>
</head>
<body>
<h2 align="center">我的通讯录</h2>
<%
Dim conn
set conn=server.CreateObject("ADODB.connection")
conn.open "Driver={microsoft Access Driver (*.mdb)};Dbq="&server.MapPath("address.mdb")
'显示实例rs
Dim rs
rs=conn.Execute("select * From straddress")
'显示数据表中的记录集
%>
<table align="center" border="1">
<tr>
<td><p align="center">编号</a></td>
<td><p align="center">名字</a></td>
<td><p align="center">性别</a></td>
<td><p align="center">年龄</a></td>
<td><p align="center">电话</a></td>
<td><p align="center">邮箱</a></td>
<td><p align="center">简介</a></td>
<td><p align="center">添加日期</a></td>
</tr>
<%
i=0
do while not rs.eof
i=i+1
%>
<tr>
<td><%response.Write(i)%></td>
<td><%=rs("strname")%></td>
<td><%=rs("str易做图")%></td>
<td><%=rs("strage")%></td>
<td><%=rs("strtel")%></td>
<td><%=rs("strE-mail")%></td>
<td><%=rs("strintro")%></td>
<td><%=rs("dtmsubmit")%></td>
</tr>
<%
re.move next
Loop
%>
</table>
</body>
</html>
数据库为address.mdb,表名为straddress，有两行记录，怎么输出是只有一行，并且在添加eof语句后提示eof错误，
请求大虾帮忙 --------------------编程问答-------------------- re.movenext
--------------------编程问答-------------------- 连你的问题都没看明白
补充：VB , 基础类
