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

Consegui em partes. O Código agora esta funcionando legal com apenas um problema, o mais importante. Ele só lista as cidades que estão em primeiro. Ele não passa para o resgistro seguinte que esta depois da virgula. Exemplo: AMERICANA, BARAO GERALDO, CAMPINAS Ele só esta me trazendo a listagem dos registros que tem a cidade de AMERICANA. Se caso a primeira cidade seja NOVA ODESSA, ele não percorre depois da virgula para me listar as outras cidades depois da virgula como HORTOLANDIA, SUMARE. Exemplo: NOVA ODESSA, HORTOLANDIA, SUMARE É possível fazer isso? Se puderem me ajudar, ficarei muito grato. <% 'Option Explicit %> <!--#include file="../includes/conexao/conexao.asp"--> <% dim ObjRS_campanha, SQL, ObjRS_cidade, ObjRS_cliente%> <% Call abre_conexao %> <% str_id_cliente = Request("id_cliente") %> <% Set ObjRS_campanha = Server.CreateObject("ADODB.RecordSet") SQL = "SELECT * FROM tb_cadastro WHERE id_cliente = '"& str_id_cliente &"'" Set ObjRS_campanha = ObjCon.Execute(SQL) if Not ObjRS_campanha.EOF Then str_cidade = ObjRS_campanha("cidade") End if Set ObjRS = Server.CreateObject("ADODB.RecordSet") SQL = "SELECT * FROM tb_clientes WHERE cliente_ativo='1'" if str_cidade <> "" Then Dim arraycidade arraycidade = split(str_cidade,",",-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 SQL = SQL & " and cidade in ("& junta5 &")" End if Set ObjRS = ObjCon.Execute(SQL) %> <% Do Until ObjRS.EOF %> <%=ObjRS("id_cliente")%> - <%=ObjRS("nome")%> - <%=ObjRS("cidade")%><br /> <% ObjRS.MoveNext Loop %>

Olá. alguém poderia me dar um help? O que estou fazendo de errado? <% str_cidade = "AMERICANA, CAMPINAS, BARÃO GERALDO" Set ObjRS = Server.CreateObject("ADODB.RecordSet") SQL = "SELECT * FROM tb_cliente WHERE cliente_ativo =''1''" if str_cidade <> "" then dim arraycidade arraycidade = split(str_cidade,",",-1,1) for i = LBound( arraycidade ) to UBound (arraycidade) if i <> UBound ( arraycidade ) then separador = "," else separador = "" end if junta5 = junta5 & "''"&arraycidade( i )&"''"&separador&"" next sql = sql & " and cidade in ("&junta5&")" end if Set ObjRS = ObjCon.Execute(SQL) %> <% Do Until ObjRS.EOF %> <%=ObjRS("id_cliente")%> - <%=ObjRS("cliente")%> - <%=ObjRS("cidade")%><br /> <% ObjRS.MoveNext Loop %> Microsoft JET Database Engine error '80040e14' Syntax error (missing operator) in query expression 'cliente_ativo =''1'' and cidade in (''AMERICANA'','' CAMPINAS'','' BARÃO GERALDO'')'. /adm_cliebte/2.asp, line 35 Agradeço a ajuda.

:blink: Fiz como você falow mais não deu certo. Não sei mais o que fazer. Por favor ajuda-me!!!! Fiz o seguinte: <% str_procura = Trim(Request("procura")) Set ObjRS = Server.CreateObject("ADODB.RecordSet") str_SQL = "SELECT * FROM tb_segmentos WHERE segmentos like '%"& str_procura &"%'" Set ObjRS = ObjCon.Execute(str_SQL) if Not ObjRS.EOF Then str_id_segmento = ObjRS("id_segmento") End if str_loop = split(str_id_segmento,";",-1,1) For i = 0 to Ubound(str_loop) Set ObjRS_ = Server.CreateObject("ADODB.RecordSet") str_SQL = "SELECT * FROM tb_clientes_lista WHERE segmentos = '"& str_loop(i) &"'" Set ObjRS_ = ObjCon.Execute(str_SQL) Next End if %> Mais ele não lista nada quando no banco de dado os segmentos estão separados por ";" Se puderem me ajudar agreço muito.

TABELA_SEGMENTOS ------------------------- id_segmento | segmento | ------------------------- 1 | Roupas | ------------------------- 2 | Calçados | ------------------------- 3 | Óculos | ------------------------- TABELA_CLIENTES -------------------------------------- id_cliente | raza_social | segmento | -------------------------------------- 1 | joao Silva ME| 1,2 | -------------------------------------- 2 | LL Souza | 2 | -------------------------------------- 3 |Porto & Porto | 3,1 | -------------------------------------- 4 | MAzeline S/A | 1 | -------------------------------------- O que preciso e que quando se fizer uma busca pela razão social esta seja listada e seja mostrado o nome do segmento que ela pertence. Por exemplo: João Silva ME - Roupas e Calçados Porto e POrto - Roupas e Óculos Mazeline - Roupas Já tentei de tudo mais não consigo separar e mostrar resultados com virgula e exibilos. Sei que tenho que usar um Split, For e Next mais não estou conseguindo. Não sei porque mais não consigo fazer nada usando FOR <% str_procura = Trim(Request("procura")) str_tipo_busca = Request("tipo_busca") if str_tipo_busca = 0 Then Set ObjRS_ = Server.CreateObject("ADODB.RecordSet") str_SQL = "SELECT * FROM tb_clientes WHERE nome_fantasia like '%"& str_procura &"%'" Set ObjRS_ = ObjCon.Execute(str_SQL) Else Set ObjRS = Server.CreateObject("ADODB.RecordSet") str_SQL = "SELECT * FROM tb_segmentos WHERE segmentos like '%"& str_procura &"%'" Set ObjRS = ObjCon.Execute(str_SQL) if Not ObjRS.EOF Then str_id_segmento = ObjRS("id_segmento") End if str_letra = split(str_id_segmento,",",-1,1) For i = 0 to UBOUND(str_letra) Set ObjRS_ = Server.CreateObject("ADODB.RecordSet") str_SQL = "SELECT * FROM tb_clientes WHERE segmentos = "& str_letra &"" Set ObjRS_ = ObjCon.Execute(str_SQL) Next End if %> Agradeço a ajuda.

Estou usando o codigo abaixo para listar os id's das cidades que estão cadastradas no banco separadas por virgula, por exemplo 1,2,6,10,15... depois preciso compra-las com as da tabela cadastro O que preciso e listar estas cidades usando um checkbox e quando a cidade estiver na a tabela cidades o checkbox deve ficar checked quando não ele deve ficar vazio. Fiz este codigo mais não esta funcionando. vcodigo = Split(ObjRS_cadastro("cidades_envio"), ",") <% FOR i = LBOUND(vcodigo) to UBOUND(vcodigo) IF CSTR(vcodigo(i)) = CSTR(ObjRS_cidade("id_cidade")) THEN %> <input name="id_cidade" checked type="checkbox" id="id_cidade" value="<%=ObjRS_cidade("id_cidade")%>"> <% END IF NEXT %> Agradeço ajudas.