Implement case-sensitive query conditions (WHERE…) in SQL Server 2 K ...), StrComp functions similar to Access (VB)

-- Create the following User-Defined Function (UDF)

Create function StrComp (@ Str1 VARCHAR (50), @ Str2 VARCHAR (50 ))
-- Alter function StrComp (@ Str1 VARCHAR (50), @ Str2 VARCHAR (50 ))
RETURNS INTEGER
AS
BEGIN
DECLARE @ I INTEGER
-- DECLARE @ Str1 VARCHAR (50)
-- DECLARE @ Str2 VARCHAR (50)
DECLARE @ y INT
-- SET @ Str1 = 'A'
-- SET @ Str2 = 'A'
SET @ I = 0
-- Select ascii (SUBSTRING (@ Str1, @ I + 1, 1 ))
SET @ y = 1
DECLARE @ iLen INT
SET @ iLen = LEN (LTRIM (RTRIM (@ Str1 )))
If len (LTRIM (RTRIM (@ Str1) <LEN (LTRIM (RTRIM (@ Str2) -- THEN
SET @ iLen = LEN (LTRIM (RTRIM (@ Str2 )))
WHILE (@ I <@ iLen)
BEGIN
IF (ASCII (SUBSTRING (@ Str1, @ I + 1, 1) = ASCII (SUBSTRING (@ Str2, @ I + 1, 1) -- THEN
SET @ I = @ I + 1
ELSE
BEGIN
SET @ y = 0
BREAK
END
END
RETURN @ y
END

Test:
Select *
From Table1
Where dbo. StrComp (Field1, 'aabb ') = 1