昨天的问题发现的新问题！

<%

dim regname,myname,email,pass,qq,ip

regname=request.Form("regname")

myname=request.Form("myname")

email=request.Form("email")

pass=request.Form("pass")

qq=request.Form("qq")

ip=request.Form("ip")

set conn=server.createobject("adodb.connection")

conn.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=d:\database\test.mdb;Mode=ReadWrite|Share Deny None;Persist Security Info=False"

set rs=server.createobject("adodb.recordset") 

sql="select * from reguser where usename='"&regname&"'and email='"&email&"'" 

rs.open sql,conn,1,1

if rs.eof then    '如果没找到 

sqlstr="insert into reguser(usename,myname,email,pass,qq,ip)values('"&regname&"','"&myname&"','"&email&"','"&pass&"','"&QQ&"','"&IP&"')" 

conn.execute(sqlstr) 

Response.Write("<script>alert('您已经成功注册成为本站的会员!');location='login.asp';</script>") 

response.end

else '否则 

response.write("<script>alert('您输入的用户名或email已经存在，请使用其他的注册！');history.back(-1); </script>")

response.end

end if

%>

<%

rs.close

set rs=nothing

conn.close

set conn=nothing

%>

昨天也是这个代码，昨天是我把字段搞错了！现在字段都已经改过来，也可以运行了！但是我要的结果不是这种情况，我要的是检查数据库中的注册用户名（usename）和email两项是否存在，存在则提示出错，不存在则插入！
这段代码运行后只对用户名起作用，对email这一项起不了作用，也就是说还是允许相同的email注册！
大家能不能帮我把这段代码改一下,谢谢！