Problema ao negritar

[dream1702 0]

Fala pessoal, mais uma vez venho pedir a ajuda de vcs.

 

Acontece que eu coloquei para negritar os resultados negritados em minha busca, quando eu procuro por uma palavra ele negrita normalmente os resultados.

 

Agora...

Se eu procurar por duas palavras ele não negrita nenhum das duas palavras no resultado.Um colega do forum disse que devo criar uma Matriz e fazer o replace usando essa matriz, mas eu não sei nada de matriz.O codigo que se diz respeito ao negritar é esta abaixo:

 

Response.Write vbCrLf & " " & Replace (rsSearchResults("Description"), strSearchKeywords, "<b>" & strSearchKeywords & "</b>", 1, -1, 1)

Muito obriago pessoal.

[jrcardozo 4]

só você colocar na variavel procuraTexto as palavras em forma de array separados por virgula

texto="Meu texto vai aqui. Esse é meu novo texto" 'texto completo, onde serão procuradas as palavrasprocuraTexto = "texto,meu,vai" 'array contendo as palavras a serem procuradas e destacadasarrayPalavras = split(procuraTexto,",")for i=0 to ubound(arrayPalavras)texto=Replace(texto, arrayPalavras(i), "<b>" & arrayPalavras(i) & "</b>")nextResponse.Write(texto)