舌战群儒音频课件:ASP 的统计一张图片每天的点击，每周的点击，每月的点击的程序

我写的这个有错各位大侠帮我改一下
<%
set conn=server.CreateObject("adodb.connection")
conn.open "driver={microsoft access driver (*.mdb)}; dbq="&server.MapPath("data/photo.asp")
dim sql,sql1,sql2
nian=year(date())
yue=month(date())
monthdate=nian&"-"&yue
yue1=yue-1
DelMonth=nian&"-"&yue1
conn.begintrans
sql="select count(djtime) from picmap where djtime=#"&date()&"#"
sql1="select count(djtime) from picmap where djtime like #"&monthdate&"%#"
sql2="select count(djtime) from picmap where djtime>#"&dateadd("d",-7,date())&"# and djtime<=#"&date()&"#"
delmonth="delete * from picmap where djtime like #"&DelMonth&"%#"
dayhit=conn.execute(sql)(0)
weekhit=conn.execute(sql2)(0)
monthhit=conn.execute(sql1)(0)
conn.execute(delmonth)
conn.CommitTrans
set rs=server.createobject("adodb.recordset")
rs.open conn,1,3
rs.absolutepage=id
rs("dayhit")=rs("dayhit")+1
rs("weekhit")=rs("weekhit")+1
rs("monthhit")=rs("monthhit")+1
rs.update
%>