Microsoft JET Database Engine '80040e14' 

FROM 子句语法错误。 

\wwwroot\index.asp, line 76
76行是rs.open sql,conn,1,3
问题出在哪呢？？？？

<% 
Dim user,pass

user=Trim(Request.Form("user"))
pass=Trim(Request.Form("pass"))

Dim data,conn,connstr
        data="admin.mdb"
    Connstr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(data)
    set conn = Server.CreateObject("adodb.connection") 
    conn.open connstr
    
Dim rs,sql

  set rs=server.createobject("adodb.recordset")
  sql="select * from admin whenr pass='" & pass & "'"
  rs.open sql,conn,1,3

if not rs.eof then
  response.Write("index.asp?帐号密码错误")
  response.End()
else

session("id")=cstr(rs.fields("id"))
session("user")=user
session("class")=rs.fields("class")
session("pass") = true

if rs.fields("class") = "2" then
   session("admin") = true
eles
   session("admin") = false
end if

if Request.Form("checkrem") ="1" then
   response.Cookies("user") = user
   response.Cookies("checkrem") = "1"
   
   response.Cookies("user").expires = data+365
   response.Cookies("checkrem").expires = data+365
 end if
end if
                      
  rs.close
set rs=nothing
Conn.Close
    Set Conn = Nothing
    response.write "<p>登陆成功：" & user & "</p>"
 %>