<%
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
%>
