grazie Roby
ma l'ho provato così:
codice:
<%
messaggio = "ciao il mio num e 338 1234567 ed ho 89 anni"
Function badWords(sText) 
'alcune parole poco consone, potete aggiungerne quante ne volete 
words = Array("0","1","2","3","4","5","6","7","8","9") 
stringa = sText 
if len(stringa) > 4 then
For k = LBound(words) To UBound(words) 
stringa = Replace(stringa, words(k), String(Len(words(k)),"*")) 
Next 
end if
badWords = stringa 
End Function 
%>

<%= badWords(messaggio) %>
.. ma mi restituisce:
"ciao il mio num e *** ******* ed ho ** anni"
asteriscando tutti i numeri