For... Next... (nunca consigo entender)

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

"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))) & "%' ", ConexaoNextIf palavrachave.EOF Thenresponse.write "Não foi encontrado nenhum alerta para esta PALAVRA-CHAVE"Elsewhile Not palavrachave.EOF%> <% strNome = palavrachave("nome") strEmail = palavrachave("email") response.write strEmail &"<br><br><br>" %> <%palavrachave.MoveNextwend End Ifpalavrachave.CloseSet palavrachave = Nothing%>

CONSEGUEM IDENTIFICAR?

Se caso eu colocar o NEXT abaixo do END IF... ele acha os registros corretamente...

mas acha o primeiro... e volta a percorrer o codigo até o fim.. mostrando no segunda linha o mesmo resultado citado no inicio.