步进式开水器品牌排行:access连接asp,出现问题?

<%
Option Explicit
Dim username, password

username = trim(Request.Form("username"))
password = trim(Request.Form("password"))

set cn=server.createobject("adodb.connection")
cn.open"provider=microsoft.jet.oledb.4.0;data source="&server.mappath("dlcts.mdb")
set rs=server.createobject("adodb.recordset")
sql="select * from Admin where Username='" + username + "' and Password='" + password + "'"
rs.open sql,cn,1,1
if rs.eof then

response.write "<script language=javascript>alert('用户名或密码错误 !');window.location='login.asp';</script>"
response.end
else
response.write "<script language=javascript>alert('恭喜您，您已登陆成功!');window.location='success.asp';</script>"
response.end
end if
%>

从login页面跳不到设置的页,那里有毛病吗?
<%
set conn=Server.CreateObject("ADODB.Connection")
dbpath=Server.MapPath("DB/dlcts.mdb")
conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&dbpath

username = trim(Request.Form("username"))
password = trim(Request.Form("password"))

set rs = server.createobject("adodb.recordset")
sql="select * from Admin where Username='"+ username +"' and Password='"+ password + "'"
rs.open sql,conn,1,1

if rs.eof then
response.write "<script language=javascript>alert('用户名或密码错误 !');window.location='login.asp';</script>"
response.end
else
response.write "<script language=javascript>alert('恭喜您，您已登陆成功!');window.location='success.asp';</script>"
response.end
end if
%>
改了,还是不可以.