Dim word, words, ok, meddelande
meddelande = "Du är mongo, din j*vla bajs"
ok = true
words = array("bajs", "***")
For Each Word In Words
If Instr(meddelande, Word) > 0 Then ok = false
Next
If ok Then
'posta meddelande
Else
Response.Write "Du är äcklig"
End If
------------------
/bohlin
kaffe är djävulens dryck
glögg är guds dryck