Determine How Many Times a String Is Found Inside Another String

create  function fnOccurances (@string varchar(8000),@pattern varchar(4000)) 
returns smallint as
begin
	declare @i int
	declare @counter int
	set @i=0
	set @counter=0
	while charindex(@pattern,@string,@i) != 0
	begin
		set @i=charindex(@pattern,@string,@i)+1
		set @counter = @counter + 1
	end	
	
	return @counter
end