Script wich exports to a text file the text of SPs

/*
** Autor Rodrigo Acosta
** Export the code of all sp into a text file
** Fecha 08/04/2003
*/
SET NOCOUNT ON
GO
/* If it exists, deletes the tmp table */
IF (OBJECT_ID('tempdb.dbo.##SPs')) IS NOT NULL
DROP TABLE ##SPs
GO
/* creates the table wich saves the sp text */
CREATE TABLE ##SPs
([text] text)
GO

INSERT INTO ##SPs
([text])
VALUES
('-- Server Name:' + @@SERVERNAME)

INSERT INTO ##SPs
([text])
VALUES
('-- Database Name: ' + DB_NAME())

INSERT INTO ##SPs
([text])
VALUES
('-- Date:' + CONVERT(VARCHAR, GETDATE()))

INSERT INTO ##SPs
([text])
VALUES
('-- Stored prodecure generated automatically by user ' + USER_NAME())

INSERT INTO ##SPs
([text])
VALUES
('GO')
GO
DECLARE @SP AS SYSNAME
DECLARE @str AS VARCHAR(500)

/* cursor wich will save all the sp in the database */
DECLARE curSP CURSOR LOCAL FOR
				SELECT top 5 name
				FROM sysobjects
				WHERE xtype = 'P'
				ORDER BY name
OPEN curSP
FETCH NEXT FROM curSP INTO @SP
WHILE (@@FETCH_STATUS = 0)
BEGIN
	/* insert in the temp table, the text of the sp */
	SELECT @str = 'EXEC sp_helptext ' + @SP

	INSERT INTO ##SPs
	EXEC (@str)

	INSERT INTO ##SPs
	([text])
	VALUES
	('GO')

	PRINT 'Stored Procedure ' + @sp + ' Inserted.'
	FETCH NEXT FROM curSP INTO @SP
END
CLOSE curSP
DEALLOCATE curSP


/* Now I generate the file */
DECLARE @bcp AS VARCHAR(8000)
DECLARE @Status AS INT

PRINT ''
PRINT 'Generating .txt...'

SELECT @bcp = 'bcp "SELECT * FROM ' + DB_NAME() + '.dbo.##SPs" QUERYOUT "C:\StoredProcs_' + @@SERVERNAME + '.txt" -T -c'

EXEC @Status = master.dbo.xp_cmdshell @bcp, no_output
IF @Status <> 0
BEGIN
	PRINT 'An error ocurred while generaring the txt file.'
	RETURN
END ELSE
	PRINT 'C:\StoredProcs_' + @@SERVERNAME + '.txt file generated succesfully.'