SQL AsXMLAttribute function

SQL AsXMLAttribute function.sql

if object_id('AsXMLAttribute') IS NOT NULL
  DROP FUNCTION [dbo].[AsXMLAttribute]
GO	

CREATE FUNCTION [dbo].[AsXMLAttribute] (
	@text	varchar(max)
)
RETURNS varchar(max)
AS
BEGIN
	declare @res varchar(max)
	select @res = (select @text for xml path('') )
	select @res = replace(@res, '"', '"')
	select @res = replace(@res, '''', ''')

	return @res
END
-- select dbo.AsXMLAttribute('This <here> is some ''crazy'' "stuff" & more')
GO