SecurePayTech :: Sample Code :: VB.NET

Imports SPTTest.IgnoreCertificatePolicy

Public Class process
Inherits System.Web.UI.Page

#Region " Web Form Designer Generated Code "

'This call is required by the Web Form Designer.
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()

End Sub
Protected WithEvents ResultTextLabel As System.Web.UI.WebControls.Label

'NOTE: The following placeholder declaration is required by the Web Form Designer.
'Do not delete or move it.
Private designerPlaceholderDeclaration As System.Object

Private Sub Page_Init(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Init
'CODEGEN: This method call is required by the Web Form Designer
'Do not modify it using the code editor.
InitializeComponent()
End Sub

#End Region

Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim type As Integer
Dim num As String
Dim holder As String
Dim expiry As String
Dim orderRef As String
Dim merchantID As String
Dim txPassKey As String
Dim amount As Single

'Only use this to ignore warnings about self-signed certificates
'System.Net.ServicePointManager.CertificatePolicy = New IgnoreCertificatePolicy

type = Request("ccType")
num = Request("ccNum")
holder = Request("ccHolder")
expiry = Request("ccExpiry")
amount = Convert.ToSingle(Request("ccAmount"))
orderRef = Request("ccOrderRef")

merchantID = "TESTDIGISPL1"
txPassKey = "d557591484cb2cd12bba445aba420d2c69cd6a88"

Dim webService As New com.securepaytech.tx.SoapPurchaseService
Dim result As New com.securepaytech.tx.TransactionResult

Try
result = webService.purchase(merchantID, txPassKey, orderRef, amount, "NZD", type, num, expiry, holder)

Dim resultText As String
resultText = "MerchTxnRef: " + Convert.ToString(result.merchTxnRef) + " "
resultText += "ResultCode: " + Convert.ToString(result.resultCode) + " "
resultText += "Transaction No: " + Convert.ToString(result.transactionNo) + " "
resultText += "ReceiptNo: " + Convert.ToString(result.receiptNo) + " "
resultText += "Batch No: " + Convert.ToString(result.batchNo) + " "
resultText += "AuthorizeID: " + Convert.ToString(result.authorizationID) + " "
resultText += "Date/Time: " + Convert.ToString(result.dateTime) + " "
If (result.resultCode = 8) Then
resultText += "Failure Reason: " + Convert.ToString(result.failReason) + " "
End If

ResultTextLabel.Text = resultText
Catch ex As System.Exception
ResultTextLabel.Text = ex.ToString
End Try
End Sub

End Class