Highlighting af ord

Hej,

Jeg er ikke den store haj til ASP/vbscript selv, men jeg står i den situation at jeg skal bruge et script der kan highlighte (indsætte <b> eller <span> tags) ord i en html tekst.

Jeg fandt noget kode og ændrede det en smule:
*********
Function replaceInPage( tStr, strR )
replaceInPage = tStr
dim nStr, cPos, w
' define the string to replace:
' keep the length of strR handy:
w = len(strR)
' loop through until strR is no longer in tStr:
do while instr(lcase(tStr), lcase(strR)) > 0
' get the current position of strR:
cPos = instr(lcase(tStr), lcase(strR))
' build the new string, maintaining case:
nStr = nStr & left(tStr, cPos - 1) & "<span class='highlightedpage'>" & mid(tStr, cPos, w) & "</span>"
' take the searched part out of tStr:
tStr = right(tStr, len(tStr) - cPos - w + 1)
loop
' append the leftover fragment to the new string:
nStr = nStr & tStr
' send it back
replaceInPage = nStr
End Function
********

Problemet er så at den erstatter ord INDE i html tags, og jeg har ikke været i stand til at finde et eksempel på en highlighter der kan undgå dette.

Er der nogen der har et virkende eksempel, eller en pointer til hvordan jeg finder en løsning? Tak.