replace rude names in string with anonymous

<%
'pull our text from the form field, and parse it
Response.Write fnParseSwear(Request.Form("formSwear"))
'this function parses a string, filtering out the swear words defined by yourself
Function fnParseSwear(strSwear)
'Declare our variable
	Dim rex, match, matches
'Create an instance of the regexp object
	Set rex = New regexp
'the almighty regexp pattern, put your swear words here, no spaces, seperated by a vertical
'break/bar ( | )
	rex.Pattern = "heck|darn|damn|bloody"
'global determines whether we search the whole string, or just
'be satisfied w/ the first hit we come across.
	rex.Global = True
'ignorecase, self explanatory
	rex.IgnoreCase = True
'execute the regexp on our text string
    Set matches = rex.Execute(strSwear)
'go thru the matches (swear words), and replace them 
    For Each match in matches
        strSwear = Replace(strSwear, match, fnChange(match))
    Next
'set our function equal to our parsed string...
    fnParseSwear = strSwear
'Clean up
	Set rex = Nothing
	
End Function

'this function replaces the swear word w/ asterisks
Function fnChange(strSwearWord)
'replace word with anonymous
    fnChange = Replace(strSwearWord, (strSwearWord), "anonymous")
End Function
%>

Set con = Server.CreateObject("ADODB.Connection")
con.Open SetConnectionString

Dim Comments, tmpComments, TotaltmpComments

Comments = replace(trim(request.form("Remarks")),"'","''")
Comments = LCase(Comments)

Do While InStr(1, Comments, "  ")
   Comments = Replace(Comments, "  ", " ")
Loop

tmpComments = Split(Comments, " ", -1, VBTextCompare)
TotaltmpComments = (ubound(tmpComments) - lbound(tmpComments) + 1)
Counter = 0
Do Until Counter = TotaltmpComments
  tmpComments(Counter) = Trim(tmpComments(Counter))
  BADWORDSSQL = "Select BanWord From BanWords Where BanWord ='" & tmpComments(Counter) & ""
  Set rsBanWords = Con.Execute(BADWORDSSQL)
     if not rsBanWords.eof then
        ' i used my error msg here, but you can
        ' use your fnChange function here instead.
     end if
  Counter = Counter + 1
Loop