帮忙看看这段代码的错误

[wlwwd]

if request.QueryString("action")="add" then
voteid=request.querystring("voteid")
fip=Request.ServerVariables("Remote_Addr")
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from ks_ip where ipaddr='"&fip&"'",conn,1,3
if rs("ipaddr")=fip and Datediff("n",rs("vtime"),now)=30 then
response.write("<script>alert('同一IP在半个小时内只能投一次票')</script>")
else
rs.addnew
rs("vtime")=now()
rs("voteid")=voteid
rs("ipaddr")=fip
rs.update
rs.close
set rs=nothing
response.redirect("index.asp")
response.End
end if
end if

老是报错 第八行 发生意外

[wlwwd]

红色部分是第8行，我是想同一IP半个小时投票一次

[hookee]

要判断一下 If rs.EOF And rs.BOF Then 看看 是不是有记录返回
有的话，判断 IsDate(rs("vtime").Value) 看看vtime是不是可识别的时间格式
另外是 <=30 吧

[wlwwd]

数据库现在没有记录，没有记录我就执行添加操作啊，但是不执行添加数据操作，不解