弄了很久还是报错，呜。。

楼上的老兄，帮我看看这代码可以吗？
<%
dim conn,param,rs
Set conn = Server.CreateObject("ADODB.Connection")
DBPath = Server.MapPath("user.mdb")
conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DBPath

user=request.form("username")
pwd=request.form("password")
sql = "SELECT * FROM user where user='" & username& "'"
set rs=server.createobject("adodb.recordset")
set rs=conn.execute(sql)
if not (rs.BOF or rs.eof) then
if rs("password") = pwd then
Session("username") = user
Session("password") = pwd
response.redirect("admin.asp")
else
response.write("")
end if
else
response.write("")
end if

conn.close
rs.close
set rs=nothing
set conn=nothing
%>

还是不太明白
这是一个登陆界面，我输了密码和用户，跳到上面那页面时还是报错。就算我把数据库数据清只有一条记录，还是报错，这样，我给你以上几个文件源代码帮我丑丑
不胜感谢

你把login.asp改为如下代码试试
<%
Set conn = Server.CreateObject("ADODB.Connection")
DBPath = Server.MapPath("user.mdb")
conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DBPath
user=request.form("username")
pwd=request.form("password")
sql = "SELECT * FROM user where user='" & username& "'"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1

Do while not rs.eof

if rs("password") = pwd and rs("username") = user then
Session("username") = user
Session("password") = pwd
conn.close
rs.close
set rs=nothing
set conn=nothing
response.redirect("admin.asp")
else
rs.movenext
end if
loop
response.write("")
conn.close
rs.close
set rs=nothing
set conn=nothing
%>