in code runtime find/replace on called text

[haskins]

how do you set a page to change a called word to another word when viewed.

[whammy]

<%
Function ReplaceText(ByVal str)
If IsNull(str) Then Exit Function
ReplaceText = Replace(str,"bananas","strawberries")
End Function
%>

<% = ReplaceText("I love bananas - bananas are yummy!") %>