(resolvido) Search ..

[1980coelho]

como faco para que o resultado de uma procura a palavra chave apareca em negrito?

RESOLUCAO:

'Highlight Search Results

Function stringReplace(strSearchWithin,strSearchFor)

If Len(strSearchWithin) > 0 And Len(strSearchFor) > 0 Then

intStart = 1

intFound = InStr(intStart,strSearchWithin,strSearchFor,1)

Do While intFound > 0

strReplaced = strReplaced & Mid(strSearchWithin,intStart,intFound - intStart) & "<span style='background-color:yellow'>" & mid(strSearchWithin,intFound,len(strSearchFor)) & "</span>"

intStart = intFound + len(strSearchFor)

intFound = InStr(intStart,strSearchWithin,strSearchFor,1)

Loop

stringReplace = strReplaced & Mid(strSearchWithin,intStart)

Else

stringReplace = strSearchWithin

End If

End Function

Response.Write stringReplace(""&rs("Name")&"",Request.Form("search"))

---

Editado Fevereiro 19, 2013 por 1980coelho