Kelime süzgeci

Merhabalar, sitede yorum bölümü yazdım asp de, istediğim şu;

veritabanında tek tek belirlediğim kelime listeleri var. her bir hücreye bir kelime gelecek şekilde. yapılan yorumda bu kelimelerin var olması durumunda mesajı bekletmek istiyorum, bu süzgece takılmayanlar ise otomatik olarak yayınlanacak.

yardımcı olmanız dileği ile....

bu bahsettiğiniz işlem için aklımdan geçen bi mantık var ama o sistem kaynakalrı için çok yorucu olur tahminimce en mantıklısı replace ile verileri süzmeniz olur örnek vermek gerekirse
Function ceviril(metinl)
metinl= Replace(metinl , "kötüsöz","k.....z",1,-1,1)
metinl= Replace(metinl , "kötüsöz1","k.....z1",1,-1,1)
metinl= Replace(metinl , "kötüsöz2","k.....z2",1,-1,1)
metinl= Replace(metinl , "kötüsöz3","k.....z3",1,-1,1)
ceviril = metinl
End Function
%>
<%=ceviril(rs("veri"))%>
burdaki olay kötüsöz yazısını sistem otomatik olarak k.....z olarak cevirir

<!--inklude fırom="balanti.asepe"-->
<%
set yaz=balanti.execute("select yorum from yorumlar order by id desc")
Function cevittir(metin)
do while not yaz.eof
metin= Replace(metin , "<%=yaz("yorum")%>","xxxx",1,-1,1)
yaz.movenext
loop
cevittir =  metin
End  Function
%>

<%=cevittir(yaz("yorum"))%>

hay ellerinize sağlık üstadlarım.

Peksoft hocam, php ne kadar da asp benzemeye başlamış görmeyeli