关于投票检查ip地址是否已存在的问题

[zxlh]

我的代码
<!-- #include file="conn.asp"-->
<% IP=Request.ServerVariables("REMOTE_ADDR") %>
<%
dim rs
set rs=Server.CreateObject("ADODB.Recordset")
rs.open "select * from book where ip="&ip,conn,1,1
if not rs.eof then
if DateDiff("h",rs("时间"), now())<1 then
response.write "<script>alert('您已经投过票了，请不要重复投票');history.back();</script>"
else
SQL="update [book] set 时间=now() where ip=ip"
set rs=Server.CreateObject("ADODB.Recordset")
rs.Open SQL,conn,3,3
Dim ID,II
ID=Request.Form("SC004269")
II=Split(ID,",")
for i=0 to ubound(II)
//response.write II(i)
sSQL ="update [vote] set 票数=票数+1 where id="&II(i)
response.Write("<br> <br> <br> <div align='center'><font color='#990000' size='4'><b>数据写入成功！</b></font> ")
Conn.Execute(sSQL)
next
end if
else
SQL="select * from book"
set rs=Server.CreateObject("ADODB.Recordset")
rs.Open SQL,conn,3,3

rs.AddNew
rs("ip")=ip
rs("时间")=now()
rs.Update

%>
<%
Dim ID2,II2
ID2=Request.Form("SC004269")
II2=Split(ID2,",")
for i=0 to ubound(II2)
//response.write II2(i)
sSQL ="update [vote] set 票数=票数+1 where id="&II2(i)
response.Write("<br> <br> <br> <div align='center'><font color='#990000' size='4'><b>数据写入成功！</b></font> ")
Conn.Execute(sSQL)
next
end if
%>

运行时的错误：
Microsoft JET Database Engine error '80040e14'

Syntax error in number in query expression 'ip=219.232.0.4'.

/vote/votes.asp, line 6

我用的是access库 ip 的数据类型是文本

[jingxiaoping]

rs.open "select * from book where ip="&ip,conn,1,1

将以上语句改为
rs.open "select * from book where ip='"&ip&"'",conn,1,1

[ygjwjj]

rs.open "select * from book where ip='"&ip&"'",conn,1,1
.....
SQL="update [book] set 时间=now() where ip='"&ip&"'"

[whb147]

ip是字符型的，需要用单引号'
rs.open "select * from book where ip='"&ip&"'",conn,1,1

[whb147]

SQL="update [book] set 时间=now() where ip='"&ip&"'"