Proper Case User Defined Function

CREATE FUNCTION udf_proper_case (@STRIN nvarchar(255))
/**********************************************************************
udf_proper_case

by: Wesley D. Brown
Date 02/20/03

This is a user defined function that will change the 
case of any variable or column to proper mixed upper
and lower case

This UDF is designed to take one parameter
@STRIN::This will take a string 255 characters long

This UDF is designed to return one variable
@output::This will return a string up to 255 characters

This has only been tested under MS-SQL2k and Win2k
***********************************************************************/
RETURNS nvarchar(255)
AS
BEGIN
--declare all variables needed to hold and return values
	declare @a as varchar(255)
	--@a holds a string part
	declare @b as varchar(255)
	--@b holds a string part
	declare @c as varchar(255)
	--@c holds a string part
	declare @spc as int
	--@spc holds the place a space is detected
	declare @str as varchar(255)
	--@str holds a string part
	declare @output as varchar(255)
	--@output holds temporary results as well as
	--the final output
	set @output =''
	--set the output to a valid string
	set @str = @STRIN
	--set the @str holder to the incoming
	--variable 
	while CHARINDEX (' ',@str) > 0
	--start while loop as long as CHARINDEX finds
	--a blank space parse the variable
	begin
		set @spc = CHARINDEX (' ',@str)
		--set the holder so we know what
		--position the space is at
		set @a = Lower(substring( @str, 1, @spc - 1))
		--pull off the first section and lower case 
		--the string
		set @b = Upper(substring(@a,1,1))
		--pull off the first letter and upper case
		--the letter
		set @c = @b+substring(@a, 2, len(@a))
		--join the upper case letter to the 
		--lower case body
		set @str = substring( @str, @spc + 1, len( @str))
		--trim off the parsed part of the string and just
		--leave the raw string left
		set @output = @output + space(1)+@c
		--put the clean string in the output holder
	end 
	begin
		set @a = Lower(@str)
		--lower the remaining part of the string
		set @b = Upper(substring(@a,1,1))
		--upper the first letter in the string
		set @c = @b + substring(@a, 2, len(@a))
		--join the two together 
		set @output = @output + space(1)+@c
		--place it into the output holder
		set @output = ltrim(@output)
		--trim up any spaces on the front of the 
		--string
	end 

	RETURN(@output)
	--return the output	
END