UDF: Parse a delimited list of paramters

IF EXISTS(Select * from sysobjects where id = OBJECT_ID(N'fnParseParamString'))
 DROP FUNCTION fnParseParamString

GO

CREATE FUNCTION dbo.fnParseParamString (@ParamString VARCHAR(8000),@Delimeter VARCHAR(1))

 RETURNS @tblParams TABLE(iRowId INT IDENTITY(1,1),vcParameters VARCHAR(255))

 AS

 BEGIN
  -- PARSE PARAMETER STRING
  DECLARE @vcParameter VARCHAR(255)
 
  DECLARE @iStart INT
  DECLARE @iEnd INT
  DECLARE @iLength INT
  
  SET @iStart = 0
  SET @iEnd = len(@ParamString)
 
  WHILE @iEnd <> 0
  BEGIN
   SET @iEnd = CHARINDEX(@Delimeter,@ParamString,@iStart)
   SET @iLength = @iEnd - @iStart
   IF @iLength < 0
    SET @iLength = len(@ParamString)
 
   SET @vcParameter = SUBSTRING(@ParamString,@iStart,@iLength)
 
   INSERT INTO @tblParams Select @vcParameter
 
   SET @iStart = @iEnd+1
  END
 
  RETURN
 END

GO

-- EXECUTE THE FUNCTION TO RETURN A LIST OF PARAMETERS THIS CAN BE USED WHEN THE PARAMETERS IN THE LIST ARE ALWAYS IN THE SAME ORDER
-- EXAMPLE
select * from dbo.fnParseParamString('John|Doe|jdoe@company.com','|')
select vcParameters from dbo.fnParseParamString('John,Doe,jdoe@company.com',',') where iRowId = 3