highlight results problem with replace

Hi I am trying to highlight my search results. I have a replace function, when I highlight the search result the rest of my results changes into upper case. This is what my code looks like:

<%if InStr(ucase(rs("EN")),ucase(search_criteria)) <> 0 then %>   
      <td><B>{EN}</B></td>
      <%
      pos=InStr(ucase(rs("EN")),ucase(search_criteria))
      chunk=Mid(rs("EN"),pos,Len(search_criteria))
      MyHighlight=Replace(ucase(rs("EN")), ucase(search_criteria), "<SPAN STYLE=background:#FFFF00>"& chunk &"</SPAN>")
      %>
      <td><b><%Response.Write (MyHighlight)%></b></td><%
    else
      if rs("EN") <> empty then
        %>
        <td><B>{EN}</B></td>
        <td><b><%response.write(rs("EN"))%></b></td><%   
      end if
    end if%>

can anyone help?

Thanks

Amisima

I will try that thanks

There is a better way to do that IMHO. I faced the same problem that it was disturbing the case of your result so I am using the following function:

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

 

Usage example:
itext = Highlight(itext, yoursearchword,"<span style='background:yellow'>", "</span>")

Tried that Flame, it does not work.