DECLARE @object NVARCHAR(MAX)
DECLARE @text NVARCHAR(MAX)

IF OBJECT_ID('tempdb..#sqlText') IS NOT NULL DROP TABLE #sqlText

CREATE TABLE #sqlText (
	[Id] INT IDENTITY(1,1)
	, [line] NVARCHAR(255)
	)

DECLARE recCursor CURSOR LOCAL READ_ONLY FOR
SELECT
	[name]
FROM
	sysObjects
WHERE
	[xType] IN ('P', 'FN')

OPEN recCursor

	FETCH NEXT FROM recCursor INTO @object

	WHILE ( @@FETCH_STATUS = 0 ) BEGIN

		-- Comment out the print to only get the errors!
		PRINT 'Recompile : ' + @object
	
		SET @text = ''
		TRUNCATE TABLE #sqlText

		INSERT #sqlText EXEC sp_helpText @object

		SELECT @text = @text + [Line] FROM #sqlText ORDER BY [Id] ASC

		SELECT @text = REPLACE(@text, 'CREATE PROCEDURE', 'ALTER PROCEDURE')
		SELECT @text = REPLACE(@text, 'CREATE  PROCEDURE', 'ALTER PROCEDURE')
		SELECT @text = REPLACE(@text, 'CREATE   PROCEDURE', 'ALTER PROCEDURE')
		SELECT @text = REPLACE(@text, 'CREATE FUNCTION', 'ALTER FUNCTION')
		SELECT @text = REPLACE(@text, 'CREATE  FUNCTION', 'ALTER FUNCTION')
		SELECT @text = REPLACE(@text, 'CREATE   FUNCTION', 'ALTER FUNCTION')


		EXEC sp_executeSql @TEXT

		FETCH NEXT FROM recCursor INTO @object

	END

CLOSE recCursor
DEALLOCATE recCursor