急急急！！！ASP问题

[xinguanpanlongfeng]

问题：做了一个登录网站，注册没有问题，然后登陆的时候它就一直显示无此用户！！！

贴出我的检查代码和连接数据库的代码
<!--#include file="conn.asp"-->
<%
dim username,userpass
username = trim(request("username"))
userpass = trim(request("userpass"))
Set rs =Server.CreateObject("Adodb.RecordSet") ''定义查询指针
sql = "select * from users where username ='" & username & "'"
rs.open sql,conn,1,1
if rs.eof then
response.Redirect("err.asp?info=无此用户")
rs.close
end if
Set rs =Server.CreateObject("Adodb.RecordSet") ''定义查询指针
sql = "select * from users where username ='" & username & "' and userpass = '" & userpass & "'"
rs.open sql,conn,1,3
if rs.eof then
response.Redirect("err.asp?info=密码不对")
else
rs("logincount") = rs("logincount") +1
rs("lasttime") = now()
rs.update
session("userid") = rs("id")
session("username") = rs("username")
response.Redirect("loginok.asp")
rs.close
end if
%>
数据库连接：
<%
DIM CONNSTR,CONN
DIM SQL,RS
DIM I
CONNSTR = "DBQ=" + SERVER.MAPPATH("Database1.MDB") + ";DRIVER={MICROSOFT ACCESS DRIVER (*.MDB)}"
SET CONN=SERVER.CREATEOBJECT("ADODB.CONNECTION")
CONN.OPEN CONNSTR
%>

[文盲老顾]

1、检查注册页面数据提交后，连接的哪个数据库 2、检查注册信息提交后插入的是哪个表 3、检查表字段类型是否是 nvarchar或varchar类型，如果是 nchar或char类型，数据库会给字段补空格造成比较失败 4、检查注册后，表中是否成功插入了注册的信息 5、检查登录页的数据库是否与注册页的一致 6、检查登录信息读取的表是否和注册信息表一致

[斯洛文尼亚旅游]

sql = "select * from users where username ='" & username & "'"
response.,write sql'输出sql看看就知道了