Account Info - Fetch

Retrieve Constant Contact account information using SQL Server

Prerequisites:

See SQLHTTP easy setup for Constant Contact
See API Call documentation for parameter values and other information
Create the stored procedure documented below

Stored Procedure:


CREATE PROCEDURE usp_ConstantContact_v2_AccountInfo_Fetch(
		@Profile nvarchar(100),
		@Response nvarchar(MAX) OUTPUT,
		@StatusCode int OUTPUT,
		@StatusDescription nvarchar(MAX) OUTPUT)
AS

SET NOCOUNT ON

DECLARE @URL varchar(MAX)
DECLARE @QueryString varchar(MAX)
DECLARE @HTTPSessionID uniqueidentifier

SET @URL = 'https://api.constantcontact.com/v2'

EXEC SQLHTTP.net.UrlBuilder   @URL OUTPUT,
			      @Profile,
			      'account', 'info'

EXEC SQLHTTP.net.QueryStringBuilder   @QueryString OUTPUT,
				      @Profile,
				      'api_key', '#APIKey'

SET @URL = @URL + @QueryString

EXEC SQLHTTP.net.HTTPSession @HTTPSessionID OUTPUT

EXEC usp_ConstantContact_v2_Auth_Header @Profile, @HTTPSessionID

EXEC SQLHTTP.net.HTTPRequest   @HttpSessionID,
                               @URL = @URL,
                               @Method = 'GET',
                               @ContentType = 'application/json',
                               @StatusCode = @StatusCode OUTPUT,
                               @StatusDescription = @StatusDescription OUTPUT,
                               @Response = @Response OUTPUT

GO

CREATE PROCEDURE usp_ConstantContact_v2_AccountInfo_Fetch(

@Profile nvarchar(100),

@Response nvarchar(MAX) OUTPUT,

@StatusCode int OUTPUT,

@StatusDescription nvarchar(MAX) OUTPUT)

SET NOCOUNT ON

DECLARE @URL varchar(MAX)

DECLARE @QueryString varchar(MAX)

DECLARE @HTTPSessionID uniqueidentifier

SET @URL = 'https://api.constantcontact.com/v2'

EXEC SQLHTTP.net.UrlBuilder @URL OUTPUT,

@Profile,

'account', 'info'

EXEC SQLHTTP.net.QueryStringBuilder @QueryString OUTPUT,

@Profile,

'api_key', '#APIKey'

SET @URL = @URL + @QueryString

EXEC SQLHTTP.net.HTTPSession @HTTPSessionID OUTPUT

EXEC usp_ConstantContact_v2_Auth_Header @Profile, @HTTPSessionID

EXEC SQLHTTP.net.HTTPRequest @HttpSessionID,

@URL = @URL,

@Method = 'GET',

@ContentType = 'application/json',

@StatusCode = @StatusCode OUTPUT,

@StatusDescription = @StatusDescription OUTPUT,

@Response = @Response OUTPUT



Sample Usage:


DECLARE @Response nvarchar(MAX)
DECLARE @StatusCode int
DECLARE @StatusDescription nvarchar(MAX)

EXEC usp_ConstantContact_v2_AccountInfo_Fetch	
		@Profile = 'My ConstantContact',
		@Response = @Response OUTPUT, 
		@StatusCode = @StatusCode OUTPUT, 
		@StatusDescription = @StatusDescription OUTPUT

IF @StatusCode >= 400 --An HTTP Request error has occured
	EXEC SQLHTTP.net.RaiseHttpError @StatusCode, @StatusDescription, @Response
ELSE
	BEGIN
		
		DECLARE @X xml
		SET @X = SQLHTTP.net.Json_To_Xml(@Response, '0')

		--The XPath syntax below was easily generated by executing the following commands:
		--EXEC SQLHTTP.net.XQueryHelper @X
		--and then executing: 
		--EXEC SQLHTTP.net.XQueryHelper @X, 'JsonObject'

		SELECT T.C.value(N'@organization_name', N'nvarchar(MAX)') AS [organization_name]
		      ,T.C.value(N'@email', N'nvarchar(MAX)') AS [email]
		      ,T.C.value(N'organization_addresses[1]/JsonObject[1]/@city', N'nvarchar(MAX)') AS [city]
		FROM @X.nodes(N'/JsonObject') T(C)

	END

DECLARE @Response nvarchar(MAX)

DECLARE @StatusCode int

DECLARE @StatusDescription nvarchar(MAX)

EXEC usp_ConstantContact_v2_AccountInfo_Fetch

@Profile = 'My ConstantContact',

@Response = @Response OUTPUT,

@StatusCode = @StatusCode OUTPUT,

@StatusDescription = @StatusDescription OUTPUT

IF @StatusCode >= 400 --An HTTP Request error has occured

EXEC SQLHTTP.net.RaiseHttpError @StatusCode, @StatusDescription, @Response

ELSE

BEGIN

DECLARE @X xml

SET @X = SQLHTTP.net.Json_To_Xml(@Response, '0')

--The XPath syntax below was easily generated by executing the following commands:

--EXEC SQLHTTP.net.XQueryHelper @X

--and then executing:

--EXEC SQLHTTP.net.XQueryHelper @X, 'JsonObject'

SELECT T.C.value(N'@organization_name', N'nvarchar(MAX)') AS [organization_name]

,T.C.value(N'@email', N'nvarchar(MAX)') AS [email]

,T.C.value(N'organization_addresses[1]/JsonObject[1]/@city', N'nvarchar(MAX)') AS [city]

FROM @X.nodes(N'/JsonObject') T(C)

END

organization_name email city

-------------------- -------------------- --------------------

My Company mjdoe@example.com Anytown



IMPORTANT DISCLAIMER

CODE/SQL ON THESE PAGES ARE PROVIDED AS-IS AND ARE AVAILABLE FOR ILLUSTRATIVE PURPOSES ONLY.

USERS ARE REQUIRED TO ABIDE BY THE TERMS AND CONDITIONS FOR USING REFERENCED THIRD PARTY WEBSITES AND/OR APIs FROM THEIR RESPECTIVE WEBSITES. WE DO NOT CONDONE ANY VIOLATION OF THIRD PARTY WEBSITES AND/OR APIs TERMS AND CONDITIONS USING OUR SOFTWARE.

USERS SHALL BE SOLELY RESPONSIBLE AND BE SOLELY LIABLE FOR VIOLATION OF ANY RULES SPECIFIED BY THIRD PARTIES FOR USING THEIR WEBSITES AND/OR APIs, OR INFRINGEMENT OF RIGHTS OF SUCH THIRD PARTIES.