/ Published in: ASP
Expand |
Embed | Plain Text
Copy this code and paste it in your HTML
function pintar( q, str ) Set regEx = New RegExp regEx.Pattern = q regEx.IgnoreCase = True regEx.Global = True TextosResultado = regEx.Replace(str, "<font style=""background-color:#FAEEEF"">"& q &"</font>") pintar = TextosResultado end function