Highlighte søgeord i webwizguide søgemaskine

Hej,

Jeg har brugt webwizguides søgemaskine i ASP til at lave en SiteSearch - Den Bruger FSO btw - http://www.webwizguide.com/asp/sample_scripts/site_search_script.asp - Drømmen er nu at kunne highlighte ordet man søgte på ude på den side hvor det blev fundet - Altså noget med Request.QueryString("search") - Har prøvet at bruge en klassisk highlighter men den vil altså ikke - Gode ideer ønskes !

Kalaharikid


Her er koden jeg har prøvet med  :

<%
Function Highlight(strText, strFind, strBefore, strAfter)
    Dim nPos
    Dim nLen
    Dim nLenAll
    Dim kaj
    nLen = Len(strFind)
    nLenAll = nLen + Len(strBefore) + Len(strAfter) + 1
kaj = Request.QueryString("search")
    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
Response.Write Highlight(myText, kaj, "<font color=blue>", "</font>")
%>