Connecting to PaymentTrust's Secure Transaction Network - WorldPay

' Submit to the STLink and store the result for handling.
result = TMHTTP.submit() ß THE RESULT IS STORED HERE
' Release the STL COM object
set TMHTTP = nothing
Code from this point onwards illustrates how the received data may be used.
' In this sample the result is parsed and formatted to be displayed in a HTML table.
' The result can be parsed and manipulated in any way such as: Stored in a database.
' Arrays to split StringIn into tokens
Dim tokens1
Dim tokens2
'Split the result into tokens at every '~'
tokens1 = split(result, "~")
' Build an HTML table to display data nicely.
Dim table
table = table & ""
table = table & ""
table = table & ""
table = table & "Parameter"
table = table & "Value"
table = table & ""
' Loop indexes
Dim i1
Dim i2
' Loop through the tokens
for i1=0 to UBound(tokens1)
271
table = table & ""