Split E Array

[Tite]

Pessoal... primeiramente faz-se necessário saber que EXISTE na tabela (access)

"1ALERTA" e no campo "palavrachave" 2 registros já adicionados assim:

No registro 1-> palavrachave= flamengo, vasco

No registro 2-> palavrachave= vasco

Sendo assim, quero consultar os registros que contenham as palavras (flamengo, palmeiras)

como descriminado na variável "strpalavrachave".

SEGUE O CÓDIGO... SÓ NÃO CONSIGO ENTENDER PORQ DÁ ERRADO.

O RESULTADO É: "Não foi encontrado nenhum alerta para esta PALAVRA-CHAVE"

<%
strpalavrachave = "flamengo, palmeiras"
MyArray = Split(strpalavrachave, ",")
%>
<%
For I = LBound(MyArray) to Ubound(MyArray)

Set palavrachave = Server.CreateObject("ADODB.Recordset")
palavrachave.Open "SELECT * FROM 1ALERTA WHERE LCase(palavrachave) LIKE '%" & LCase(Trim(MyArray (I))) & "%' ", Conexao

Next

If palavrachave.EOF Then
response.write "Não foi encontrado nenhum alerta para esta PALAVRA-CHAVE"

Else

while Not palavrachave.EOF
%>

<%
strNome = palavrachave("nome")
strEmail = palavrachave("email")
        
response.write strEmail &"<br><br><br>"           
%>      

<%
palavrachave.MoveNext
wend 
End If

palavrachave.Close
Set palavrachave = Nothing
%>

PERCEBI QUE A CONSULTA SÓ É FEITA NA PALAVRA "palmeiras" e por isso não acha registro nenhum,

sendo que a consulta teria que ser nas duas palavras... flamengo, palmeiras.

E agora? Alguém sabe uma solução??? Por favorrr!!!!!!

[bareta]

<%
strpalavrachave = "flamengo, palmeiras"
MyArray = Split(strpalavrachave, ",")
%>
<%
For I = LBound(MyArray) to Ubound(MyArray)

Set palavrachave = Server.CreateObject("ADODB.Recordset")
palavrachave.Open "SELECT * FROM 1ALERTA WHERE palavrachave LIKE '%" & LCase(Trim(MyArray (I))) & "%' ", Conexao



If palavrachave.EOF Then
response.write "Não foi encontrado nenhum alerta para esta PALAVRA-CHAVE"

Else

while Not palavrachave.EOF
%>

<%
strNome = palavrachave("nome")
strEmail = palavrachave("email")

response.write strEmail &"<br><br><br>"           
%>      

<%
palavrachave.MoveNext
wend 
End If

palavrachave.Close
Set palavrachave = Nothing

Next
%>

da uma testada ai..

[Tite]

<%
strpalavrachave = "flamengo, palmeiras"
MyArray = Split(strpalavrachave, ",")
%>
<%
For I = LBound(MyArray) to Ubound(MyArray)

Set palavrachave = Server.CreateObject("ADODB.Recordset")
palavrachave.Open "SELECT * FROM 1ALERTA WHERE palavrachave LIKE '%" & LCase(Trim(MyArray (I))) & "%' ", Conexao



If palavrachave.EOF Then
response.write "Não foi encontrado nenhum alerta para esta PALAVRA-CHAVE"

Else

while Not palavrachave.EOF
%>

<%
strNome = palavrachave("nome")
strEmail = palavrachave("email")

response.write strEmail &"<br><br><br>"           
%>      

<%
palavrachave.MoveNext
wend 
End If

palavrachave.Close
Set palavrachave = Nothing

Next
%>

da uma testada ai..

Bareta,

Veja bem.. desta forma funcionou... mas ao mesmo tempo não funcionou.. entendeu?rs

Acontece que ele percorre todos os registros... se achou algum palavra.. ele imprime, se não

achou.. ele imprime também(não foi encontrado...etc), e se um registro tiver as duas palavras.. ele imprime na tela este registro 2 vezes.

E agora????

Para corrigir o problema da repetição dos registros, tentei o distinct mas não deu certo.

E para fazer com que ele não imprima (não foi encontrado..etc) que são os registros que

não tem a palavrachave, eu não dei conta.

Obs.:Preciso dpois disso colocar um CDO para envio d email, para os registros que tenham a palavrachave.

Valeu ai por enquanto!

Editado Junho 15, 2007 por Tite

[cyberalexxx]

Para não repetir o registro:

<%
strpalavrachave = "flamengo, palmeiras"
MyArray = Split(strpalavrachave, ",")

palavras = 0
For I = LBound(MyArray) to Ubound(MyArray)
    if palavras = 0 then
        sql = "SELECT * FROM 1ALERTA WHERE palavrachave LIKE '%" & LCase(Trim(MyArray (I))) & "%' "
    else
        sql = sql & " or palavrachave LIKE '%" & LCase(Trim(MyArray (I))) & "%' "
    end if
    palavras = palavras + 1
next

Set palavrachave = Server.CreateObject("ADODB.Recordset")
palavrachave.Open sql, Conexao

If palavrachave.EOF Then
    response.write "Não foi encontrado nenhum alerta para esta PALAVRA-CHAVE"
Else

    while Not palavrachave.EOF
        strNome = palavrachave("nome")
        strEmail = palavrachave("email")
        response.write strEmail &"<br><br><br>"
        palavrachave.MoveNext
    wend
End If

palavrachave.Close
Set palavrachave = Nothing
%>

[Tite]

Para não repetir o registro:

<%
strpalavrachave = "flamengo, palmeiras"
MyArray = Split(strpalavrachave, ",")

palavras = 0
For I = LBound(MyArray) to Ubound(MyArray)
    if palavras = 0 then
        sql = "SELECT * FROM 1ALERTA WHERE palavrachave LIKE '%" & LCase(Trim(MyArray (I))) & "%' "
    else
        sql = sql & " or palavrachave LIKE '%" & LCase(Trim(MyArray (I))) & "%' "
    end if
    palavras = palavras + 1
next

Set palavrachave = Server.CreateObject("ADODB.Recordset")
palavrachave.Open sql, Conexao

If palavrachave.EOF Then
    response.write "Não foi encontrado nenhum alerta para esta PALAVRA-CHAVE"
Else

    while Not palavrachave.EOF
        strNome = palavrachave("nome")
        strEmail = palavrachave("email")
        response.write strEmail &"<br><br><br>"
        palavrachave.MoveNext
    wend
End If

palavrachave.Close
Set palavrachave = Nothing
%>

Cara não to acreditando, é bom d+ pra ser verdade... até então

FUNCIONOU PERFEITO!!!!!!!!!!!!!!!!!!!!

Só me tira uma dúvida... se eu inserir dentro do WHILE um codigo

CDO para envio d email.. vai dar certo? ele vai enviar um email

para cada registro listado?

Valeu d+ heim...

brigadão

[cyberalexxx]

já fiz rotinas de envio de emails dentro de laços (While) e funcionaram sem problema, voce só deve atentar para a quantidade de mensagens que serão enviadas pois se for muita coisa alguns servidores tem limitaçãoes.

[]'s

[Tite]

Valeu cara... vou tentar então!!

Muito obrigado a todos!!!!!