[Resolvido] UPDATE de contador de visitas MYSQL e ASP

Olá, tenho um contador de visitas em ASP com acesso ao banco de dados MYSQL. Acontece que ao atualizar as tabelas com um novo número de visita, dá o seguinte erro abaixo:

Microsoft OLE DB Provider for ODBC Drivers error '80040e09'

	[TCX][MyODBC]You have an error in your SQL syntax; check the manual that corresponds to your MySQL server version for the right syntax to use near '2 = 1 where ano = 2017' at line 1

	/combo1/contador/conta.asp, line 58

	 

	Essa é a página:

<%@ Language=VBScript %>
<!--#include file="conexao.asp" -->
<%
Session.LCID = 1046

dim RsRevisitas, RsVisitas, RsMes, RsDia, RsTotalMes, RsTotalDia, RsIn, vSQL
dim vData, aData, vDia, vMes, vAno, totalMes, totalDia, totalAno, x

vData = FormatDateTime(Date(), 2)
aData = Split(vData, "/")
vDia = Trim(aData(0))
vMes = Trim(aData(1))
vAno = Trim(aData(2))
sub executa

'--------------------------------------------------------------------------------------------------

'    1.2 - aqui estes selects pegarão a quantidade de visitantes por mes e dia respectivamente.

vSQL = "select * from db_mes order by ano desc"
 set RsTotalMes = cnnDB.execute(vSQL)
 totalAno = RsTotalMes(1) + RsTotalMes(2) + RsTotalMes(3) + RsTotalMes(4) + RsTotalMes(5) + RsTotalMes(6) +_
 RsTotalMes(7) + RsTotalMes(8) + RsTotalMes(9) + RsTotalMes(10) + RsTotalMes(11) + RsTotalMes(12)
 vSQL = "select * from db_dia where "& vDia &" = "& vDia &" and mes = "& vMes & " and ano = '" & vAno &"' "
 set RsTotalDia = cnnDB.execute(vSQL)

	'---------------------------------------------------------------------------------------------------

	'    1.3 - se o ano atual(vAno) for maior do que o que está sendo selecionado na tb_mes.ano

	'            o código insere mais um grupo de doze(12) linhas representando o novo ano que se inicia na db_dia

	'            para fazer a contagem de visitantes por dias do mês

	'            e insere tbm mais uma linha na db_mes para fazer a contagem dos visitantes de um determinado mês.

	  

 if vAno > RsTotalMes("ano") then
 for x = 1 to 12
 vSQL = "insert into db_dia ( "&_
 " 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, "&_
 " 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, "&_
 " 23, 24, 25, 26, 27, 28, 29, 30, 31, mes, ano) "&_
 "values( "&_
 " 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, "&_
 " 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, "&_
 " 0, 0, 0, 0, 0, 0, 0, "& x &", "& vAno &")"
 set RsIn = cnnDB.execute(vSQL)
 set RsIn = nothing
 next

 vSQL = "insert into db_mes ( "&_
 " 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, ano) "&_
 "values( "&_
 " 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, "& vAno &")"
 set RsIn = cnnDB.execute(vSQL)
 end if

	'----------------------------------------------------------------------------------------------------

	'    1.4 - após pegar a quantidade de visitantes por mes e dia no ítem 1.2

	'            aqui é feito o incremento de mais um visitante e ao mesmo tempo

	'            as db_mes e db_dia são atualizadas com os novos valores de acordo com o dia atual.

'if Request.Cookies("IP")("UsuarioIP") = request.servervariables("REMOTE_ADDR") then
'else

totalMes = RsTotalMes(vMes) + 1

 cnnDB.execute = "update db_mes set "& vMes &" = "& totalMes &" where ano = "& RsTotalMes("ano") &" "
 set RsDia = cnnDB.execute(vSQL)
 totalDia = RsTotalDia(vDia) + 1
 cnnDB.execute = "update db_dia set "& vDia &" = "& totalDia &" where mes = "& vMes &" and ano = '"& vAno &"' "
 set RsDia = cnnDB.execute(vSQL)

'Response.Cookies("IP")("UsuarioIP") = request.servervariables("REMOTE_ADDR")
'end if
'-----------------------------------------------------------------------------------------------------
end sub

sub detona
set RsRevisitas = nothing
set RsVisitas = nothing
set RsTotalMes = nothing
set RsTotalDia = nothing
set RsMes = nothing
set RsIn = nothing
set RsDia = nothing
set RsUpd = nothing
cnnDB.close()
end sub
%>

<%
executa
detona
%>

Pode me ajudar? sou novato e preciso muito dessa atualização.

abs