Lorem Ipsum Generator - SQL Server

/*-----------------------------------------------------------------------------------------------*/
if OBJECT_ID('dbo.vwRandom') is not null
    drop view dbo.vwRandom
go
create view dbo.vwRandom 
as
select RandomNumber = RAND()
go    
/*-----------------------------------------------------------------------------------------------*/
if OBJECT_ID('dbo.fnGetLoremIpsum') is not null
    drop function dbo.fnGetLoremIpsum
go    
create function dbo.fnGetLoremIpsum()
returns varchar(1000) as begin

declare
     @startPos int = floor((select RandomNumber from dbo.vwRandom) * 100) + 1
    ,@length int = floor((select RandomNumber from dbo.vwRandom) * 1000) + 500
    ,@text varchar(3000) = 'lorem ipsum dolor sit amet consectetur adipiscing elit integer rhoncus '
                        + 'laoreet tincidunt sed tincidunt eros ac tincidunt egestas nulla massa p'
                        + 'orta dolor sit amet egestas dolor elit sed justo phasellus sed aliquam '
                        + 'nunc integer neque odio ornare et luctus ut pretium eget ante pellentes'
                        + 'que volutpat sodales ante sed iaculis nibh tincidunt vitae sed sagittis'
                        + ' augue non viverra accumsan odio eros adipiscing mauris et sollicitudin'
                        + ' nulla arcu vitae urna nunc consequat tristique odio ut fringilla quisq'
                        + 'ue ac leo nec ante pretium luctus nullam vestibulum malesuada mi id sag'
                        + 'ittis nisi dictum eget sed ultrices leo nec malesuada bibendum mauris e'
                        + 'nim fringilla dolor eget suscipit nisl sem ac urna vivamus et posuere p'
                        + 'urus praesent laoreet velit ac molestie varius dui lectus egestas torto'
                        + 'r lacinia feugiat mauris ipsum non est odio ornare et luctus ut pretium'
                        + 'laoreet tincidunt sed tincidunt eros ac tincidunt egestas nulla massa p'
                        + 'orta dolor sit amet egestas dolor elit sed justo phasellus sed aliquam '
                        + 'nunc integer neque odio ornare et luctus ut pretium eget ante pellentes'
                        + 'que volutpat sodales ante sed iaculis nibh tincidunt vitae sed sagittis'
                        + ' augue non viverra accumsan odio eros adipiscing mauris et sollicitudin'
                        + ' nulla arcu vitae urna nunc consequat tristique odio ut fringilla quisq'
                        + 'ue ac leo nec ante pretium luctus nullam vestibulum malesuada mi id sag'
                        + 'ittis nisi dictum eget sed ultrices leo nec malesuada bibendum mauris e'
                        + 'nim fringilla dolor eget suscipit nisl sem ac urna vivamus et posuere p'
                        + 'urus praesent laoreet velit ac molestie varius dui lectus egestas torto'
                        + 'r lacinia feugiat mauris ipsum non est odio ornare et luctus ut pretium'
    
declare @result varchar(1000) = ltrim(rtrim(SUBSTRING(@text, @startPos, @length)))

return UPPER(substring(@result,1,1)) + SUBSTRING(@result,2,len(@result)-1)
end
go