Ho ripreso questa funzione ma ho il problema che è case sensitive.
Portare tutto in minuscolo o maiuscolo non è molto utike perchè modificherebbe eccessivamente il testo.

Come posso ovviare al problema ?

Grazie mille!

-------------------------------
<%
Function badWords(sText)
'alcune parole poco consone, potete aggiungerne quante ne volete
words = Array("cretino","stupido","imbecille","porcapalett a")
stringa = sText
For k = LBound(words) To UBound(words)
stringa = Replace(stringa, words(k), String(Len(words(k)),"*"))
Next
badWords = stringa
End Function
%>

X richiamare la funzione -->

<%
Response.write badWords(Request.Form("NOME_CAMPO_FORM"))
%>
----------------------