xrJNmGXA

1%%[
2if RequestParameter("submitted") == "submitted" then
3Set @EmailAddr = RequestParameter("Email")
4Set @FirstName = RequestParameter("FirstName")
5Set @LastName = RequestParameter("LastName")
6/* Trigger Send Object Creation */
7		SET @ts = CreateObject("TriggeredSend")
8		SET @tsDef = CreateObject("TriggeredSendDefinition")
9		SET @ts_subkey = @EmailAddr
10
11/* Set the External Key of the Trigger Send Definition */
12		SetObjectProperty(@tsDef, "CustomerKey", "30057")
13		SetObjectProperty(@ts, "TriggeredSendDefinition", @tsDef)
14		
15/* Create the Subscriber Object */
16		SET @ts_sub = CreateObject("Subscriber")
17		SetObjectProperty(@ts_sub, "EmailAddress", @EmailAddr)
18
19
20/* Set SubscriberKey to EmailAddress */
21			SetObjectProperty(@ts_sub, "SubscriberKey", @EmailAddr)
22
23
24/* Create and Set Attributes */
25		SET @attr = CreateObject("Attribute")
26		SetObjectProperty(@attr, "Name", "ChannelMemberID")
27		SetObjectProperty(@attr, "Value", "100021500")
28		AddObjectArrayItem(@ts_sub, "Attributes", @attr)
29
30		SET @attr = CreateObject("Attribute")
31		SetObjectProperty(@attr, "Name", "EmailAddress")
32		SetObjectProperty(@attr, "Value", @EmailAddr)
33		AddObjectArrayItem(@ts_sub, "Attributes", @attr)
34
35		SET @attr = CreateObject("Attribute")
36		SetObjectProperty(@attr, "Name", "FirstName")
37		SetObjectProperty(@attr, "Value", @FirstName)
38		AddObjectArrayItem(@ts_sub, "Attributes", @attr)
39		
40		SET @attr = CreateObject("Attribute")
41		SetObjectProperty(@attr, "Name", "LastName")
42		SetObjectProperty(@attr, "Value", @LastName)
43		AddObjectArrayItem(@ts_sub, "Attributes", @attr)
44
45/* Add all Attributes into Array */
46		AddObjectArrayItem(@ts, "Subscribers", @ts_sub)
47
48/*Complete the Web API call to trigger send */
49		SET @ts_statusCode = InvokeCreate(@ts, @ts_statusMsg, @errorCode)
50
51/* Raise Error if Trigger fails */
52		IF @ts_statusCode != "OK" THEN
53		   RaiseError(@ts_statusMsg, 0, @ts_statusCode, @errorCode)
54		ENDIF 
55		ENDIF
56		]%%
57		
58<form action="%%=RequestParameter('PAGEURL')=%%" method="POST">
59Email: <input type="EmailAddress" name="Email" value=""><br/>
60First Name: <input type="text" name="FirstName" value=""><br/>
61Last Name: <input type="text" name="LastName" value=""><br/>
62
63<input id="submitted" type="hidden" name="submitted" value="submitted">
64
65<input type="submit" value="Submit">
66</form>