有关asp用户登录系统的问题

这是我的logon.asp的代码？不知道哪里错了。
错误类型：
Microsoft OLE DB Provider for ODBC Drivers (0x80040E10)
[Microsoft][ODBC Microsoft Access Driver] 参数不足，期待是 1。
谁帮帮我！不行的化给我一个简单的用户登陆系统，适合初学者就可以了，最好是有一整套简单的代码下载。
<%@ Language=VBScript %>
<%
dim sql,rs,conn
name = Request.Form("name")
passwd = Request.Form("passwd")
sql = "select name,passwd,type from usertype where name =’" & name & "’"
set conn = server.CreateObject("adodb.connection")
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("date/xhbook.mdb")
set rs = server.CreateObject("adodb.recordset")
rs.Open sql,conn
if rs.EOF then
response.write "错误的用户名或密码！"
rs.Close
set rs = nothing
conn.Close
set conn = nothing
Response.End
end if
if not (rs("passwd") = passwd) then
response.write "错误的用户名或密码！"
rs.Close
set rs = nothing
conn.Close
set conn = nothing
Response.End
end if
session("username") = rs("name")
session("usertype") = rs("type")
rs.Close
set rs = nothing
sql = "update visit set visitnum = visitnum +1 "
conn.Execute sql
conn.Close
set conn = nothing
Response.Redirect "index.asp" %>
问题补充：改成这个后：1.rs.Open sql,conn,1,1 还是有错！
Microsoft OLE DB Provider for ODBC Drivers (0x80040E21)
ODBC 驱动程序不支持所需的属性。
2.把与数据库连接的代码单独放到一个文件里，在要用到数据库的文件里用include把数据库连接文件包含进来 ，还是有错。
用IIS打开logon.asp总是说“ 错误的用户名或密码！”
如果去了这句话on error resume next 错误还是一样的！
如，将它设为conn.asp，代码如下：
<%
dim conn,db
dim connstr
db="date/xhbook.mdb"
on error resume next
connstr="DBQ="+server.mappath(""&db&"")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
set conn=server.createobject("ADODB.CONNECTION")
if err then
err.clear
else
conn.open connstr
end if
sub CloseConn()
conn.close
set conn=nothing
end sub
%>