伴我看看这段ASP分页代码,要怎么改？

<%
Set conn=Server.CreateObject("ADODB.Connection")
conn.open "DSN=shop"
Set rs=Server.CreateObject("ADODB.Connection")
Sql="Select * from users"
rs.CursorLocation = 3
rs.Open Sql Conn,1,1,1
if request("page")="" then
page=1
elseif request("page")<1 then
page=1
else
page=request("page")
end if
rs.PageSize=2
rs.AbsolutePage=page
if rs.RecordCount=0 then
Response.write"没有记录"
else
%>
<%
if rs.eof then
Response.Write"没有相关记录"
else
for ipage=1 to rs.pagecount
%>
<%=rs("id")%>&nbsp;
<%=rs("login")%>&nbsp;
<%=rs("name")%>&nbsp;
<%=rs("email")%>&nbsp;
<%=rs("address")%>&nbsp;
<%=rs("yb")%>&nbsp;
<%=rs("phone")%>&nbsp;
<br>
<%
rs.movenext
if rs.eof then exit for
next
end if
%>
<br>
共有<%=rs.RecordCount%>条记录
当前是第<%=page%>页/共有<%=rs.pagecount%>页
<a href="fenye.asp?page=1">第一页</a>
<% if page <> 1 then %>
<a href="fenye.asp?page=<%=page-1%>">下一页</a>
<%end if%>
<%if page <> rs.pagecount then%>
<a href="fenye.asp?page=<%page+1%>">上一页</a>
<%end if%>
<a href="fenye.asp?page=<%=rs.pagecount%>">最后一页</a>
<%
end if
rs.close
set rs=nothing
conn.close
set conn=nothing
%>

%>

无法显示网页

请尝试执行下列操作：

• 单击刷新按钮，或稍后重试。
  
• 打开 localhost 主页，然后查找与所需信息相关的链接。

技术信息（用于支持人员）

• 错误类型：
  Microsoft VBScript 编译器错误 (0x800A0401)
  语句未结束
  /fenye/images/fenye.asp, line 16, column 12
  rs.Open Sql Conn,1,1,1
  -----------^
  

• 浏览器类型：
  Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1; .NET CLR 3.0.4506.2152; .NET CLR 3.5.30729; .NET CLR 2.0.50727)

• 网页：
  GET /fenye/images/fenye.asp

• 时间：
  2009年12月2日, 18:27:02

• 详细信息：
  Microsoft 支持