这段代码和首页是一个文件，
只要我访问首页就提示“密码错误”
但不影响我登陆
怎样改为密码错误的时候，才提示呢
<% 
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] where pass='" & pass & "'"
  rs.open sql,conn,1,1
  
if  rs.eof then
  response.Write"<script>alert('密码错误');</script>"
  response.End()
end if  
 
     session("id")=rs.fields("id")
     session("user")=user
     session("class")=rs.fields("class")
     session("pass") = true

if rs.fields("class") = "2" then
     session("admin") = true
else
     session("admin") = flase
end if

if Request.Form("checkrem") = "1" then
   response.Cookies("user") = user
   response.Cookies("checkrem") = "1"
   
   response.Cookies("user").expires = date+365
   response.Cookies("checkrem").expires = date+365
end if             
                     
  rs.close
 set rs=nothing
Conn.Close
    Set Conn = Nothing

%>