Filtro de palabras no deseadas

[mc_quake]

function limpia(text,encode)
dim banned,i
limpia=text
banned = array("poto","cenos","maraca","feo","tonto","conch etumardre")
for i = 0 to uBound(banned)
limpia = replace(limpia, banned(i),"")
next
if encode=true then
limpia=server.htmlencode(limpia)
end if
end function

se usa asi

variable con palabras no deceadas

texto_a_limpiar = "esa mujer es tonta, y su madre es una maraca"

texto_limpio = limpia(texto_a_limpiar)

quedandoo asi texto_limpio = "esa mujer es , y su madre es una "