asp登录程序总提示用户名不存在

我的代码运行后，如果第一次使用正确的用户名和密码登录可以，如果第一次用一个正确的用户名，密码错了，登录后提示密码错误，然后返回登录页面，再输入正确的密码却提示用户名不存在，以后不管输入用户名和密码正不正确都会提示用户名不存在。代码如下
<!-- #include file="conn.asp" -->
<%
dim namestr,passstr
namestr=trim(request.Form("name"))
passstr=trim(request.Form("password"))
set rs=server.CreateObject("adodb.recordset")
sql="select * from admin where name='"& namestr & "'"
rs.open sql,conn,1,1
if rs.eof then
rs.close
set rs=nothing
conn.close
set conn=nothing
%>
<script language="javascript">
alert("用户名不存在");
history.back();
</script>
<%
response.End()
else
if rs("password")<>passstr then
rs.close
set rs=nothing
conn.close
set conn=nothing
%>
<script language="javascript">
alert("密码错误");
history.back();
</script>
<%
response.End()
end if
session("admin")=namestr
end if
%>