poprobyi etot script , ia ego ispol"zyu
contentlemmes - col_name otkyda ti xochech" vitashit" text ;
url - table name ;
urlid - Primary key dlia table url ;

call sp : get_text @urlid=14

-- Proc get_text does READTEXT in a loop to read chunks of text
-- no larger than 200, or the column size or @@TEXTSIZE, and
-- produces as many rows as necessary to store the text column
-- as a series of sequenced varchar(200) rows

CREATE PROC get_text @urlid char(4)

AS

DECLARE @mytextptr varbinary(16), @totalsize int, @lastread int,
@readsize int
-- Use a TRAN and HOLDLOCK to ensure textptr and text are
-- constant during the iterative reads
BEGIN TRAN


SELECT @mytextptr=TEXTPTR(contentlemmes), @totalsize=DATALENGTH(contentlemmes),
@lastread=0,
-- Set the readsize to the smaller of the @@TEXTSIZE setting,
-- 200, and the total length of the column
@readsize=CASE WHEN (200 < DATALENGTH(contentlemmes)) THEN 200
ELSE DATALENGTH(contentlemmes) END
FROM url
(HOLDLOCK)
WHERE urlid=@urlid

-- If debugging, uncomment this to check values
----SELECT @mytextptr, @totalsize, @lastread, @readsize

-- Do READTEXT in a loop to get next 200 characters until done
IF @mytextptr IS NOT NULL AND @readsize > 0
WHILE (@lastread < @totalsize)
BEGIN
-- If read size would go beyond end, adjust read size
IF ((@readsize + @lastread) > @totalsize)
SELECT @readsize = @totalsize - @lastread

-- If debugging, uncomment this to check values
--- SELECT 'valid ptr?'=textvalid('url.contentlemmes',
--- @mytextptr), 'totalsize'=@totalsize,
--- 'lastread'=@lastread, 'readsize'=@readsize

READTEXT Url.contentlemmes @mytextptr @lastread @readsize
IF (@@error <> 0)
BREAK -- Break out of loop if an error on read
-- Change offset to last char read
SELECT @lastread=@lastread + @readsize

END

COMMIT TRAN
GO