巴黎到马赛:急！这样写有什么错误（用户登录）

Dim UserName,password
UserName=replace(trim(Request.Form1("Username")),"'","‘")
password=replace(trim(Request.Form1("password")),"'","‘")

If UserName="" or password="" Then
Response.Write ("<script>alert(' 会员登陆失败!\n\n 请输入用户名和密码。');history.back();</script>")
Response.end
End If

set rs=server.createobject("adodb.recordset")
conn="DBQ="+server.mappath("data.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
sql="select password from user where username='"&UserName&"' and lockuser=0"
rs.open sql,conn,1,3
if rs.eof then
Response.Write ("<script>alert(' 会员登陆失败!\n\n 用户名不存在。');history.back();</script>")
Response.end
else
if rs("password")<>password then
rs.close
set rs=nothing
Response.Write ("<script>alert(' 会员登陆失败!\n\n 密码输入错误。');history.back();</script>")
Response.end
else
response.write "success!"
end if
end if

rs.close
set rs=nothing
我是这样写的，USERLOGIN.ASP，为什么打开时总出现错误！