problems with LIKE query

dim thename
thename=request("rude")
sql = "SELECT * FROM tblSwear WHERE tblSwear.word LIKE '%" & thename & "%'"
'Select * from Tablename where (Firstname) LIKE '%" & FirstNameVar & "%'"
rs.open sql,myconn,3,3
if rs.recordcount > 0 then
response.Write("anon")
else
response.Write(thename)
rs.close
end if

'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
	rex.Pattern = "damn|heck|darn"
'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 w/ asterisks in the middle, 
'this is the bit i modified sot hat rather than replacing just the matches it replaces the whole lot
    For Each match in matches
        strSwear = Replace(strSwear, strSwear, "Anonymous")
    Next
'set our function equal to our parsed string...
    fnParseSwear = strSwear
'Clean up
	Set rex = Nothing
End Function

dim person
person = fnParseSwear(Request("person"))