检查用户名是否已经被注册

[raalf]

<%
dim txt_name
txt_name=trim(request.form("txt_name"))
dim name
name=trim(request.form("name"))
dim txt_pass
txt_pass=trim(request.form("txt_pass"))
dim txt_sfzh
txt_sfzh=trim(request.form("txt_sfzh"))
set dblink=server.createobject("adodb.connection")
dblink.mode=3
dblink.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("news.mdb")
set rs=server.CreateObject("adodb.recordset")
rs.LockType=3
rs.CursorType=0
rs.Open "select * from dthy where yhm='&txt_name&'",dblink
if rs.eof then

rs.AddNew
rs("yhm")=txt_name
rs("xm")=name
rs("mm")=txt_pass
rs("sfz")=txt_sfzh
rs.update
rs.close
dblink.close
response.redirect "success.htm"
response.end

else
response.redirect "rlzy.htm"
response.end
end if
%>
问题是这样的,在代码的最后的"else"后的代码总是不执行,也就是说在检查出数据库里已经有这个用户时,总是不转到"rlzy.htm",而是出现错误页面,问题出在什么地方?

[kutang]

if rs.eof and rs.bof then呢

[raalf]

没有用

[zzsdream]

<%
dim txt_name
txt_name=trim(request.form("txt_name"))
dim name
name=trim(request.form("name"))
dim txt_pass
txt_pass=trim(request.form("txt_pass"))
dim txt_sfzh
txt_sfzh=trim(request.form("txt_sfzh"))
set dblink=server.createobject("adodb.connection")
dblink.mode=3
dblink.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("news.mdb")
set rs=server.CreateObject("adodb.recordset")
rs.LockType=3
rs.CursorType=0
rs.Open "select * from dthy where yhm='&txt_name&'",dblink
if rs.eof then

rs.AddNew
rs("yhm")=txt_name
rs("xm")=name
rs("mm")=txt_pass
rs("sfz")=txt_sfzh
rs.update
rs.close
dblink.close
response.redirect "success.htm"
'response.end

else
response.redirect "rlzy.htm"
'response.end
end if
%>

试下呢？

[shine64]

select 语句有问题
"select * from dthy where yhm='"&txt_name&"'"

[raalf]

谢谢大家, shine64(鱼)是对的,谢谢,加分.