How about this?
function chkNameBadWords(fString)
bwords = split(strBadWords, "|")
'## check here
for i = 0 to ubound(bwords)
if instr(fString, bwords(i)) <> 0 then
Err_Msg = Err_Msg & "<li>Username may not contain the word <b>" & bwords(i) & "</b></li>"
exit function
end if
next
end function
I added this to line #75 of register.asp
chkNameBadWords(Request.Form("Name"))