威克提姆:标准表达式中数据类型不匹配

<%
dim num,votename,vtime
num=request.Form("num")
votename=request.form("votename")
title_id=request.form("title_id")
dim flag(90),idd(90)
for j=0 to num
flag(j)=request.Form("vote(j)")
idd(j)=request.Form("idd(j)")
flag(j)=cint(flag(j))
idd(j)=cint(idd(j))
next
vtime=now()
set rs1=server.createobject("adodb.recordset")
sql = "select * from vote_control where vote_lname= '"&votename&"' and title_id='"&title_id&"' "
rs1.open sql,conn,1,1

if not rs1.eof then
Response.write"<script>alert(""对不起，您只能对每位公示人投一次票！"");javascript:history.go(-1);</script>"
Response.end

else
for i=0 to num
dim constr
constr="Insert into vote_control(vote_id,vote_lname,vote_value,vote_time,title_id) values('"&idd(i)&"','"&votename&"','"&flag(i)&"','"&vtime&"','"&title_id&"')"
conn.execute(constr)

set rs=server.createobject("adodb.recordset")
sql = "select * from vote_list where vote_id='"&idd(i)&"'"
rs.open sql,conn,1,1
if flag(i)="1"then
voteflag(i)=rs("voteyes")+1
voteflag(i)=cint(voteflag(i))
sql="update vote_list set voteyes='"&voteflag(i)&"' where vote_id='"&idd(i)&"'"
conn.execute sql
elseif flag(i)="2"then
voteflag(i)=rs("voteno")+1
voteflag(i)=cint(voteflag(i))
sql="update vote_list set voteno='"&voteflag(i)&"' where vote_id='"&idd(i)&"'"
conn.execute sql
elseif flag(i)="3"then
voteflag(i)=rs("votenone")+1
voteflag(i)=cint(voteflag(i))
sql="update vote_list set votenone='"&voteflag(i)&"' where vote_id='"&idd(i)&"'"
conn.execute sql
end if
next

Response.write"<script>alert(""投票成功！"");javascript:history.go(-1);</script>"
Response.end

end if
%>

Microsoft JET Database Engine 错误 '80040e07'

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

/addvote.asp，行 31