Problema com pesquisa

[ifmoraes 0]

Boa tarde a todos

 

Tenho o seguinte problema:

 

Temos um editor de texto via WEB(FCKEditor) que grava o texto formatado em HTML e exibe corretamente no site e em nosso módulo de busca, e também em nosso site temos que destacar no texto as palavras pesquisadas pelo usuário, até aí tudo bem

 

Mas quando pesquisamos com a palavra por exemplo "BR" ele encontra e marca a TAG HTML "<BR>", ou "&NBSP;" quando presquisado a palavra "B"

 

Existe alguma maneira de fazer buscar ou ignorar as TAGS HTML na busca? ou então apenas fazer com que a Função de destacar o texto Ingore as TAGS HTML de forma que não apareçam destacadas as TAGS na página?

 

Preciso muito fazer isso funcionar e não sei mas qual forma tentar

 

Utilizei as seguintes funções para MATAR as TAGS HTML, mas não funcionaram

 

ASP

Function LimpaTAG(input)

        dim sem

        dim semTAG

        sem     = array ("<","</","/>",">")

        semTAG  =       input

        for i = 0 to UBound(sem)

                semTAG = replace(semTAG,sem(i),"")

        Next

        LimpaTAG = semTAG

End Function

 

Function LimpaHTML(strHTML)

    Dim objER

    Dim strTexto

 

    'Configurando o objeto de Expressão Regular

    Set objER            = New RegExp

    objER.IgnoreCase    = True

    objER.Global        = True

    objER.Pattern        = "<[^>]*>"

   

    'Substituindo as tags encontradas pela expressão

    strTexto            = strHTML

    strTexto            = objER.Replace(strTexto, "")

   

    Set objER            = Nothing

 

    'Retornando a função

    LimpaHTML = strTexto

End Function

 

Utilizo essa função para destacar o texto que funciona bem, mas encontra as TAGS HTML

 

ASP

Function str_regular(palavra, texto)

   if palavra = "" or isnull(palavra) or isnull(texto) then

           str_regular = texto

           exit function

   else

          

           Dim regEx, temp

 

           Set regEx = New RegExp   ' Create a regular expression.

           regEx.Pattern = palavra  ' Set pattern.

           regEx.IgnoreCase = True  ' Set case insensitivity.

           regEx.Global = True          ' Set global applicability.

           str_regular = regEx.replace(texto,"<span class=""destaque_busca"">" & Ucase(palavra) & "</span>")

   end if

End Function

 

Por favor me ajudem

 

Muito obrigado

[ifmoraes 0]

Agora o que busco mas é apenas a Função que destaca o texto ignorar as TAGS HTMLAlguém tem alguma sugestão?Muito obrigado