CREATE PROCEDURE Purchase_Plan_Extract_Selection @part_nos Varchar(8000) AS

DECLARE @host_id Varchar(20), @ColumnLength TinyInt, @StrColumnLength Varchar(3), @Total SmallInt, @No SmallInt, @part_no Char(8), 
	@query Varchar(500)

SET @host_id = HOST_ID()

SELECT @ColumnLength = COL_LENGTH( 'Purchase_Plan_Output', 'part_no' )
SET @StrColumnLength = LTRIM( STR( @ColumnLength ) )

SET @Total = CEILING( 1.000 * LEN( @part_nos ) / @ColumnLength )

SET @No = 0

UPDATE Purchase_Plan_Output 
	SET include = ' '

WHILE @No < @Total
BEGIN

	PRINT 'Went into Output loop'

	SET @No = @No + 1

	SET @part_no = SUBSTRING( @part_nos, ( ( @No - 1 ) * @ColumnLength ) + 1, @ColumnLength )

	EXECUTE Purchase_Plan_Mark_Item @host_id, @part_no

END

SELECT * FROM Purchase_Plan_Output (NOLOCK) WHERE [host_id] = @host_id AND include IN ( 'Y', 'D' )

RETURN

    With rOutput
        .CursorLocation = adUseClient
        .Open "EXECUTE Purchase_Plan_Extract_Selection '9010A   '", Conn, adOpenForwardOnly, adLockReadOnly, adCmdText
        Do Until .EOF
            ' Code for processing rows
            .MoveNext
        Loop
    End With

.Open "SELECT * FROM Purchase_Plan_Output (NOLOCK) WHERE [host_id] = @host_id AND include IN ( 'Y', 'D' )", Conn, adOpenForwardOnly, adLockReadOnly, adCmdText