如何制作每日更新值班表代码

<%
dim conn,connstr
const db="xxx.mdb" '此处换为你的数据文件名
connstr="provider=microsoft.jet.oledb.4.0;data source=" & server.mappath(db)
set conn = server.createobject("adodb.connection")
conn.open connstr
d=date()
sql="select 日期，值班领导，值班人员，值班车辆 from 值班表 where 日期=#" & d & "#"
set Rs=Server.CreateObject("adodb.recordset")
Rs.open Sql,conn,1,1
rs.movefirst
duty=""
duty="今日值班：
" & "值班领导:" & rs("值班领导") & "
值班人员:" & rs("值班人员") & "
值班车辆:" & rs("值班车辆")
response.write d
rs.close
'db.close
%>

=======================
把最后一句的db.close删除.因为写代码时我没有建库,所以有很多细节错误对不起啊!
=======================
请查收百度个人消息
========================
请查收邮件