Oops, hold on. Line 35 of that error references "begin" in the following:

While @@fetch_status <> -1

begin

--===== Drop the text server

EXEC dbo.sp_DropServer 'MyExcelACE', 'DropLogins'

Does that make any more sense?