凡登陆一次在数据库里记录+1，并保存登陆时的日期，还要防止刷访问次数，此语句如何编写，谢谢

我现在是用的获取别人IP来控制登陆次数，但老是出错，我看了半天多了都没看出错是什么，以下是我编写的，请帮忙看下，谢谢了

<%
Dim m_ip
m_ip=Request.Servervariables("REMOTE_HOST")
sql="select* from tb1 where 日期=#"&date()&"#"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn
if rs.eof then
sees="insert into tb1(记数,日期,IP) values(1,#"&date()&"#,'m_ip')"
else if rs("IP")=m_ip then
sees="update tb1 set 记数=记数 where 日期=#"&date()&"#"
else
sees="update tb1 set 记数=记数+1,IP=m_ip where 日期=#"&date()&"#"
end if
end if
conn.execute(sees)
rs.close
rs.open sql,conn
%>

有，下面就是

Microsoft JET Database Engine 错误 '80040e07'

标准表达式中数据类型不匹配。

/counts/index.asp，行16