cerca maiuscolo -> minuscolo

[naverit]

uso questo codice x evidenziare il risultato di una ricerca:

descrizione2 = Replace(rec("descrizione"), vbCrLf, "
")
' evidenzia i risultati della ricerca:
arrRicerca = split(cerca)
for each item in arrRicerca
descrizione2 = replace(descrizione2,item,"<span style='background-color:yellow;'>" & item & "</span>",1,-1,vbTextCompare)
next

purtroppo quando ottengo un risultato in una ricerca oltre a colorare lo sfondo giallo (è quello che voglio), mi da un effetto indesiderato: la parola evidenziata diventa minuscolo/maiuscolo come nell'esempio che segue:

se nel testo ,c'è CARAMELLA e io cerco mella:
il testo mi diventa: CARAmella

se nel testo, cè caramella e io cerco MELLA
il testo mi diventa: caraMELLA

come faccio ad evidenziare i risultati della ricerca senza cambiare il perdere la formattazione minuscolo/maiuscolo preesistente?

[Vitacillina]

http://www.4guysfromrolla.com/webtec...022400-1.shtml

[willybit]

Vitacillina cosa centra la tua risposta con quello che chiede naverit? :master:

naverit... tu dovresti sfruttare le regular expressions per queste cose... ti faccio un esempio

Function EvidenziaTesto(testo,trova,prima,dopo)
	Set RegEx = New RegExp 
	RegEx.Pattern = "(" & trova & ")"
	RegEx.Global = True 
	RegEx.IgnoreCase = True
	EvidenziaTesto = RegEx.Replace(testo,prima & "$1" & dopo)
End Function

testo = "Tanto va la gatta al LARDO che ci lAsCiA lo zampino"
Response.Write testo & "<hr>"
Response.Write EvidenziaTesto(testo,"la","<span style='background-color:yellow;'>","</span>")