CCICharge and Bank Of Amerca Gateway

Has anyone used the ICharge component with the Bank of America Gateway sucessfully? I tried using the simple sample from the knowledge base but am not receiving any responses (ResponseCode, ResponseText, TransactionApproved, etc.)

Any suggestions are greatly appreciated.

 

Here's the code that get's me the error:

Protected FullContact1 As New FullContact
Protected CreditCardControl1 As New CreditCardControl

Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'Put user code to initialize the page here
If Not IsPostBack Then
FullContact1.ContactName.FirstName = "Some"
FullContact1.ContactName.LastName = "Body"
FullContact1.ContactAddress.Address1 = "123 Rodeo"
FullContact1.ContactAddress.City = "Beverly Hills"
FullContact1.ContactAddress.State = "CA"
FullContact1.ContactAddress.PostalCode = "90210"
FullContact1.ContactPhone.HomePhone = "800-555-1212"
CreditCardControl1.AccountNumber = "333277209693003"
CreditCardControl1.ExpiryMonth = "05"
CreditCardControl1.ExpiryYear = "04"
txtAmount.Text = 1
End If

End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim chargeIt As New nsoftware.IPWorksCC.Icharge
chargeIt.Gateway = nsoftware.IPWorksCC.IchargeGateways.gwBankOfAmerica
chargeIt.AddSpecialField("ecom_payment_card_name", FullContact1.ContactName.FirstName & " " & _
FullContact1.ContactName.LastName)
chargeIt.Config("referer=https://mysecure.domain.com")
chargeIt.MerchantLogin = "myLogin"
chargeIt.MerchantPassword = "myPassword"
chargeIt.CardNumber = CType(CreditCardControl1.AccountNumber, String)
chargeIt.CardExpMonth = CType(CreditCardControl1.ExpiryMonth, String)
chargeIt.CardExpYear = CType(CreditCardControl1.ExpiryYear, String)
chargeIt.TransactionAmount = CInt(txtAmount.Text.Trim)
chargeIt.CustomerFirstName = CType(FullContact1.ContactName.FirstName, String)
chargeIt.CustomerLastName = CType(FullContact1.ContactName.LastName, String)
chargeIt.CustomerAddress = CType(FullContact1.ContactAddress.Address1, String)
chargeIt.CustomerCity = CType(FullContact1.ContactAddress.City, String)
chargeIt.CustomerState = CType(FullContact1.ContactAddress.State, String)
chargeIt.CustomerZip = CType(FullContact1.ContactAddress.PostalCode, String)
chargeIt.CustomerCountry = CType(FullContact1.ContactAddress.Country, String)
chargeIt.Authorize()
'If chargeIt.TransactionApproved Then
' lblWaiver.Text = "approved" & chargeIt.ResponseText
'Else
' lblWaiver.Text = "Declined: " & chargeIt.ResponseText
'End If
lblWaiver.Text = chargeIt.ResponseCode
'Label1.Text = chargeIt.TransactionApproved.ToString
End Sub
End Class

 

Actually I get an object moved error.

quote:Originally posted by myUserName

Has anyone used the ICharge component with the Bank of America Gateway sucessfully? I tried using the simple sample from the knowledge base but am not receiving any responses (ResponseCode, ResponseText, TransactionApproved, etc.)

Any suggestions are greatly appreciated.
</blockquote id="quote"></font id="quote">

 

This code also gives the object moved error. Any thoughts?


Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Icharge1.Gateway = nsoftware.IPWorksCC.IchargeGateways.gwBankOfAmerica
Icharge1.AddSpecialField("ioc_merchant_id", "myStore")
Icharge1.CardNumber = "4444333322221111"
Icharge1.MerchantLogin = "myLogin"
Icharge1.MerchantPassword = "myPassword"
Icharge1.TransactionAmount = "1.00"
Icharge1.CardExpMonth = "01"
Icharge1.CardExpYear = "06"
Icharge1.CustomerAddress = "123 Nowhere Ln."
Icharge1.CustomerZip = "90210"
Icharge1.CustomerCountry = "US"
Icharge1.CustomerEmail = "[email protected]"
Icharge1.CustomerFirstName = "John"
Icharge1.CustomerLastName = "Smith"
Icharge1.Config("referer=https://secure.mydomain.com/")
Icharge1.AddSpecialField("ecom_payment_card_name", "John CardName")
Icharge1.TransactionType = nsoftware.IPWorksCC.IchargeTransactionTypes.ttAuthOnly
Icharge1.Authorize()
'Response.Buffer = True
Response.Write(Icharge1.ResponseText)
End Sub