O converti tutto maiuscolo:
codice:
<%
Function Evidenzia(testo, parole)
parolesplit = Split(parole, " ")
for i = 0 to UBound(Ucase(parolesplit))
testo = Replace(testo, parolesplit(i), "<span style=""background-color: yellow;"">"& parolesplit(i) &"</span>")
next
Evidenzia = testo
End Function
%>
Oppure tutto minuscolo:
codice:
<%
Function Evidenzia(testo, parole)
parolesplit = Split(parole, " ")
for i = 0 to UBound(Lcase(parolesplit))
testo = Replace(testo, parolesplit(i), "<span style=""background-color: yellow;"">"& parolesplit(i) &"</span>")
next
Evidenzia = testo
End Function
%>