<% Dim Client Set Client = New TrustedShop ' Provide your own WebAPI key. You can find your WebAPI key on your partner portal. Client.SetWebApiKey("c21a884e5b68758526ff07bc973a6659") ' Provide the e-mail address of your customer. You can retrieve the e-amil address from the webshop engine. Client.SetEmail("hello@mytools.hu") ' Example products Dim Product1(1) Product1(0) = "Worx Akkumulátor, WA3551 Power Share™ 20V / 2Ah Akkumulátor, WA3551" Product1(1) = "WA3551" ' Customer's cart example Dim Cart(1) Cart(0) = Worx Akkumulátor, WA3551 Power Share™ 20V / 2Ah Akkumulátor, WA3551 ' Provide the name and the identifier of the purchased products. ' You can get those from the webshop engine. ' It must be called for each of the purchased products. For Each Product In Cart ' If both product name and identifier are available, you can provide them this way: Client.AddProduct Product ' If neither is available, you can leave out these calls. Next ' This method perpares to send us the e-mail address and the name of the purchased products set above. ' It returns an HTML code snippet which must be added to the webshop's source. ' After the generated code is downloaded into the customer's browser it begins to send purchase information. Response.Write(Client.Prepare()) ' Here you can implement error handling. The error message can be obtained in the manner shown below. This step is optional. If Client.HasError() Then Dim ErrorMessage ErrorMessage = Client.GetErrorMessage() End If %>