RapidFire

[RapidFire]

já me arrebentei pra saber o que esta errado abaixo. Não consigo achar o porque deste erro.

O que eu devo fazer já tentei umas duzentas maneiras diferentes e nada.

Microsoft JET Database Engine error '80040e14'

Syntax error (missing operator) in query expression '''BOITUVA',' ELIAS FAUSTO',' LARANJAL PAULISTA',' REGISTRO',' TATUI'''.

/adm_marketing/2.asp, line 39

Set ObjRS = Server.CreateObject("ADODB.Recordset")
ComandoSQL = "INSERT INTO tb_cadastro_campanhas (cidades_envio)"
if str_cidades_envio <> "" Then
	Dim arraycidade
		arraycidade = split(str_cidades_envio,",",-1,1)
		For i = LBound(arraycidade) To UBound (arraycidade)
			if i <> UBound (arraycidade) Then
				separador = ","
			Else
				separador = ""
			End if
			if i > 0 Then
				junta5 = junta5 &"'"& mid(arraycidade(i),1) &"'"& separador
			Else
				junta5 = junta5 &"'"& arraycidade(i) &"'"& separador
			End if
		Next
		ComandoSQL = ComandoSQL & " VALUES ('"& junta5 &"')"
	End if
Set ObjRS = ObjCon.Execute(ComandoSQL)
Response.write junta5

[bareta]

e também colocar titulo no tópico.....

Set ObjRS = Server.CreateObject("ADODB.Recordset")
ComandoSQL = "INSERT INTO tb_cadastro_campanhas (cidades_envio)"
if str_cidades_envio <> "" Then
	Dim arraycidade
		arraycidade = split(str_cidades_envio,",",-1,1)
		For i = LBound(arraycidade) To UBound (arraycidade)
			if i <> UBound (arraycidade) Then
				separador = ","
			Else
				separador = ""
			End if
			if i > 0 Then
				junta5 = junta5 &"'"& mid(arraycidade(i),1) &"'"& separador
			Else
				junta5 = junta5 &"'"& arraycidade(i) &"'"& separador
			End if
		Next
		ComandoSQL = ComandoSQL & " VALUES ('"& junta5 &"')"
	End if
response.write ComandoSQL
response.end

Set ObjRS = ObjCon.Execute(ComandoSQL)
Response.write junta5

analisa o que vai ser escrito ai para entender o q ele tenta processar...