MEA E-Newsletter Sign-up



Sign up to receive MEA Voice Online or Capitol Comments


Please note that Capitol Comments can only be delivered to a home e-mail address.
*First Name:
*Last Name:

*E-mail Address:
*Required

Capitol Comments MEA Voice Online


VAR @de, @de_col, @updateOptions, @saveOptions, @de_statusCode, @de_statusMsg, @errorCode SET @de = CreateObject("DataExtensionObject") SetObjectProperty(@de, "CustomerKey", "Capital_Comments_websignups_de") SET @de_col = CreateObject("APIProperty") SetObjectProperty(@de_col, "Name", "email_address") SetObjectProperty(@de_col, "Value", RequestParameter("email_address")) AddObjectArrayItem(@de, "Keys", @de_col) IF NOT IsNull(RequestParameter("email_address")) THEN SET @de_col = CreateObject("APIProperty") SetObjectProperty(@de_col, "Name", "email_address") SetObjectProperty(@de_col, "Value", RequestParameter("email_address")) AddObjectArrayItem(@de, "Properties", @de_col) ENDIF IF NOT IsNull(RequestParameter("first_name")) THEN SET @de_col = CreateObject("APIProperty") SetObjectProperty(@de_col, "Name", "first_name") SetObjectProperty(@de_col, "Value", RequestParameter("first_name")) AddObjectArrayItem(@de, "Properties", @de_col) ENDIF IF NOT IsNull(RequestParameter("last_name")) THEN SET @de_col = CreateObject("APIProperty") SetObjectProperty(@de_col, "Name", "last_name") SetObjectProperty(@de_col, "Value", RequestParameter("last_name")) AddObjectArrayItem(@de, "Properties", @de_col) ENDIF

IF NOT IsNull(RequestParameter("possible_work_email")) THEN SET @de_col = CreateObject("APIProperty") SetObjectProperty(@de_col, "Name", "Possible_Work_Email") SetObjectProperty(@de_col, "Value", RequestParameter("Possible_Work_Email")) AddObjectArrayItem(@de, "Properties", @de_col) ENDIF

SET @updateOptions = CreateObject("UpdateOptions") SET @saveOptions = CreateObject("SaveOption") SetObjectProperty(@saveOptions, "PropertyName", "DataExtensionObject") SetObjectProperty(@saveOptions, "SaveAction", "UpdateAdd") AddObjectArrayItem(@updateOptions, "SaveOptions", @saveOptions) IF IsNullDefault(RequestParameter("capcom"),"false") THEN SET @de_statusCode = InvokeUpdate(@de, @de_statusMsg, @errorCode, @updateOptions) IF @de_statusCode != "OK" THEN RaiseError(@de_statusMsg, 0, @de_statusCode, @errorCode) ENDIF ENDIF

VAR @de, @de_col, @updateOptions, @saveOptions, @de_statusCode, @de_statusMsg, @errorCode SET @de = CreateObject("DataExtensionObject") SetObjectProperty(@de, "CustomerKey",
"MEA_Voice_Online_websignups_de") SET @de_col = CreateObject("APIProperty") SetObjectProperty(@de_col, "Name", "email_address") SetObjectProperty(@de_col, "Value", RequestParameter("email_address")) AddObjectArrayItem(@de, "Keys", @de_col) IF NOT IsNull(RequestParameter("email_address")) THEN SET @de_col = CreateObject("APIProperty") SetObjectProperty(@de_col, "Name", "email_address") SetObjectProperty(@de_col, "Value", RequestParameter("email_address")) AddObjectArrayItem(@de, "Properties", @de_col) ENDIF IF NOT IsNull(RequestParameter("first_name")) THEN SET @de_col = CreateObject("APIProperty") SetObjectProperty(@de_col, "Name", "first_name") SetObjectProperty(@de_col, "Value", RequestParameter("first_name")) AddObjectArrayItem(@de, "Properties", @de_col) ENDIF IF NOT IsNull(RequestParameter("last_name")) THEN SET @de_col = CreateObject("APIProperty") SetObjectProperty(@de_col, "Name", "last_name") SetObjectProperty(@de_col, "Value", RequestParameter("last_name")) AddObjectArrayItem(@de, "Properties", @de_col) ENDIF

IF NOT IsNull(RequestParameter("possible_work_email")) THEN SET @de_col = CreateObject("APIProperty") SetObjectProperty(@de_col, "Name", "Possible_Work_Email") SetObjectProperty(@de_col, "Value", RequestParameter("Possible_Work_Email")) AddObjectArrayItem(@de, "Properties", @de_col) ENDIF
SET @updateOptions = CreateObject("UpdateOptions") SET @saveOptions = CreateObject("SaveOption") SetObjectProperty(@saveOptions, "PropertyName", "DataExtensionObject") SetObjectProperty(@saveOptions, "SaveAction", "UpdateAdd") AddObjectArrayItem(@updateOptions, "SaveOptions", @saveOptions) IF IsNullDefault(RequestParameter("meavoice"),"false") THEN SET @de_statusCode = InvokeUpdate(@de, @de_statusMsg, @errorCode, @updateOptions) IF @de_statusCode != "OK" THEN RaiseError(@de_statusMsg, 0, @de_statusCode, @errorCode) ENDIF ENDIF ]%%