I found this. The reason I chose this is because it is case-sensitive. I changed to my preferences. This is working:
Code:
<SCRIPT LANGUAGE="VBSCRIPT" RUNAT="SERVER">
Function Highlight(strText, strFind, strBefore, strAfter)
Dim nPos
Dim nLen
Dim nLenAll
nLen = Len(strFind)
nLenAll = nLen + Len(strBefore) + Len(strAfter) + 1
Highlight = strText
If nLen > 0 And Len(Highlight) > 0 Then
nPos = InStr(1, Highlight, strFind, 1)
Do While nPos > 0
Highlight = Left(Highlight, nPos - 1) & _
strBefore & Mid(Highlight, nPos, nLen) & strAfter &_
Mid(Highlight, nPos + nLen)
nPos = InStr(nPos + nLenAll, Highlight, strFind, 1)
Loop
End If
End Function
</SCRIPT>
<%
'OPTION EXPLICIT
Dim strText, strFind
strFind=Keyword
strText=RS("text_data")
strText= Highlight(strText, strFind,"<b>", "</b>")
'strFind=Keywordb
'strText=RS("text_data")
'strText= Highlight(strText, strFind,"<b>", "</b>")
'strFind=Keywordc
'strText=RS("text_data")
'strText= Highlight(strText, strFind,"<b>", "</b>")
Response.Write strText
%>
But I put "'" at the end like 'strFind=Keywordb. What I need is to highlight Keyword in red as it does already, Keywordb in blue, and Keywordc in green.
How to highlight 3 keywords in 3 colors?
