Erro ao inserir e atualizar o Voto em outra coluna

[BrunoHP 0]

Boa noite F.I.

 

Não sei aonde estou errando para inserir e atualizar qdo necessário poderiam me ajudar aonde estou errando?

 

Bom seria assim... se não existir registro na tabela auxiliar ele da o insert existindo ele da o update... bom estou qse lá... só que ele está apenas dando inser e update da coluna countSim presisava que ele fizesse a msm coisa na coluna countNao.

 

Obrigado!

 

Envia

                     <form id="RegistraVoto" name="RegistraVoto" method="post" action="RegistraVoto.asp">
                       <input name="url" type="hidden" id="url" value="http://www.xxxxxxxxx.com.br<%=Request.ServerVariables("SCRIPT_NAME")%>?id=<%=BRid%>" size="100" maxlength="11" />
                       <input name="id_pagina" type="hidden" id="id_pagina" value="<%=BRid%>" size="2" maxlength="11" />
                       <input name="tabela" type="hidden" id="tabela" value="<%=BRtabela%>" />
                       <%if BRip=Request.ServerVariables("REMOTE_ADDR") then%>
                       <img src="img/VotaSim-oFF.png" width="13" height="14" />
                       <%else%><input type="image" src="img/VotaSim-oN.png" border="0" nome="votoSim" id="votoSim" value="Sim"><%end if%></span> 
                       <%if BRip=Request.ServerVariables("REMOTE_ADDR") then%>
                       <img src="img/VotaNao-oFF.png" width="13" height="14" />
                       <%else%><input type="image" src="img/VotaNao-oN.png" border="0" nome="votoNao" id="votoNao" value="Nao"><%end if%></span>
                       </form>

 

Grava

<%
BRdata_hora				= date()
data_hora_ano 			= datepart("yyyy",date)
data_hora_mes 			= datepart("m",date)
if len(data_hora_mes) 	= 1 then
data_hora_mes 			= "0"&data_hora_mes
end if
data_hora_dia 			= datepart("d",date)
if len(data_hora_dia) 	= 1 then
data_hora_dia 			= "0"&data_hora_dia
end if
BRdata_hora				= data_hora_ano&"/"&data_hora_mes&"/"&data_hora_dia
BRdata_hora				= BRdata_hora &" : "&time

BRcodigo		    	= FormatStr(trim(request("codigoVota")))
BRid_pagina	 			= FormatStr(trim(request("id_pagina")))
BRtabela				= FormatStr(trim(request("tabela")))
BRvotoSim				= FormatStr(trim(request("votoSim")))
BRvotoNao				= FormatStr(trim(request("votoNao")))
BRurl					= FormatStr(trim(request("url")))

set vota = server.CreateObject("adodb.RecordSet")
sql_vota = "select * from tabela where id_pagina='"&BRid_pagina&"' and tabela='"&BRtabela&"'"
set vota = conn.execute(sql_vota)

if not vota.eof then
BRvotoSimV	= vota("countSim")
BRvotoNaoV	= vota("countNao")
end if

if BRvotoSimV = "" or request("votoSim") = "Sim" then
BRvotoSimV = 0
sql_inserT = "insert into tabela(id_pagina,tabela,countSim,DataTime,ip) values ('"&BRid_pagina&"','"&BRtabela&"','"&BRvotoSimV+1&"','"&BRdata_hora&"','"&Request.ServerVariables("REMOTE_ADDR")&"')"
set inserT = conn.Execute(sql_inserT)

response.Redirect (BRurl)

else

Set BRupdateSim = conn.Execute("UPDATE tabela SET countSim='"&BRvotoSimV+1&"' WHERE id_pagina="&BRid_pagina&" and tabela='"&BRtabela&"'")
Set BRupdateSim = nothing

response.Redirect (BRurl)

end if

if BRvotoNaoV = "" or request("votoNao") = "Nao" then
BRvotoNaoV = 0
sql_inserTNao = "insert into tabela (id_pagina,tabela,countNao,DataTime,ip) values ('"&BRid_pagina&"','"&BRtabela&"','"&BRvotoNaoV+1&"','"&BRdata_hora&"','"&Request.ServerVariables("REMOTE_ADDR")&"')"
set inserTNao = conn.Execute(sql_inserTNao)

response.Redirect (BRurl)

else

Set BRupdateNao = conn.Execute("UPDATE tabela SET countNao='"&BRvotoNaoV+1&"' WHERE id_pagina="&BRid_pagina&" and tabela='"&BRtabela&"'")
Set BRupdateNao = nothing

response.Redirect (BRurl)

end if

[xanburzum 169]

ele esta gerando algum numero de erro ?