Cómo escribir filtrado ASP

<%

Dim str_arr,str_word,noid,badwords

str_arr=""

str_word = "Apuestas"&st_arr&"Apuestas pornográficas"&st_arr&"Heroína"

str_word_no="**"

content_word="Aquí está el contenido de tu artículo"

badwords=split(str_word,str_arr)

Para noid=0 a ubound(badwords)

re_word=badwords(noid)

content_word=content_word&replace(content_word , re_word,str_word_no)

Siguiente

%>