这是一个投票程序的一部分，我加入了cook监测，但实在不明白问题处在哪里。
按下面的程序执行，在Sub research()的判断中，既没有对tgp重新赋值，也没有增加投票，怎么会这样？请帮忙看看。

Option Explicit
%>

<%
dim action,id,tpNum,tgp
id=request("id")
tgp="谢谢你的投票！"
action=Lcase(Trim(Request("action")))
Select Case action
Case "research" Call research
Case "result" Call result(id)
Case Else Call result(id)
End Select
Call objend()

Sub research()
dim selected
selected=request("selected")
tpNum = Request.Cookies("toupiao")("t" & id)
if tpNum=id then
tgp="对不起，你已经投过票了！"
else
conn.execute("update research set res"&selected&"=res"&selected&"+1 where id="&id)
Response.Cookies("toupiao")("t" & id) = id
Response.Cookies("toupiao").Expires = Date + 365
end if
response.redirect "research.asp?id="&id&""
End Sub

就是在执行的时候这个判断：
if tpNum=id then
tgp="对不起，你已经投过票了！"
else
conn.execute("update research set res"&selected&"=res"&selected&"+1 where id="&id)
Response.Cookies("toupiao")("t" & id) = id
Response.Cookies("toupiao").Expires = Date + 365
end if

既没有对tgp赋值，也没有执行下面的投票累加部分

SQL语句写错了，改一下吧
conn.execute("update research set res("selected")=res("selected")+1 where id="&id)，另外，你有定义过recordset记录集吗