Failed to connect to host!!!!!

[manicmax]

Hi Xperts,

I dont know y I am getting this error "Failed to connect to host".Everythin g was working fne and all of a sudden this started. On this form I am asking for cradit card details.The button click event on whcih I am getting this error is btnCompleteOrde r_Click, Please help.here code is the code -

Private Sub btnCompleteOrde r_Click(ByVal sender As System.Object, ByVal e As System.EventArg s) Handles btnCompleteOrde r.Click
Dim objPayment As New COrderPayment
Dim objOrder As COrder = Session("Order" )
Try

If (tblCreditCard. Visible) And (tblPurchaseOrd er.Visible = False) Then
objPayment.Type = 0
'#update 1930
If (strMethod.ToLo wer = "phonefax") Then
objPayment.Card Type = txtCardType.Sel ectedItem.Text
objPayment.Expi reMonth = txtExpMonth.Sel ectedItem.Value
objPayment.Cred itCardNumber = txtCardNumber.V alue
objPayment.Expi reYear = txtExpYear.Sele ctedItem.Value
objPayment.Secu rityCode = txtSecureCode.T ext
Else
If txtCardType.Sel ectedItem.Text <> "" Then
objPayment.Card Type = txtCardType.Sel ectedItem.Text
Else
Me.ErrorMessage .Text = "Please select a card type"
Me.ErrorMessage .Visible = True
Exit Sub
End If
If txtCardNumber.V alue <> "" Then
objPayment.Cred itCardNumber = txtCardNumber.V alue
Else
Me.ErrorMessage .Text = "Please enter a card number"
Me.ErrorMessage .Visible = True
Exit Sub
End If
If txtSecureCode.V isible Then
'2425
If (txtCardType.Se lectedItem.Text .ToLower <> "switch") And (txtCardType.Se lectedItem.Text .ToLower <> "solo") Then
If txtSecureCode.T ext <> "" Then
objPayment.Secu rityCode = txtSecureCode.T ext
Else
Me.ErrorMessage .Text = "Please enter a security code"
Me.ErrorMessage .Visible = True
Exit Sub
End If
End If
End If
If txtExpMonth.Sel ectedItem.Value <> "" Then
objPayment.Expi reMonth = txtExpMonth.Sel ectedItem.Value
Else
Me.ErrorMessage .Text = "Please select a month"
Me.ErrorMessage .Visible = True
Exit Sub
End If

If txtExpYear.Sele ctedItem.Value <> "" Then
objPayment.Expi reYear = txtExpYear.Sele ctedItem.Value
Else
Me.ErrorMessage .Text = "Please select a year"
Me.ErrorMessage .Visible = True
Exit Sub
End If

objPayment.Star tMonth = txtStartMonth.S electedItem.Val ue
objPayment.Star tYear = txtStartYear.Se lectedItem.Valu e
objPayment.Issu eNumber = txtIssueNum.Tex t

End If
End If
If (tblPurchaseOrd er.Visible) Then
'#853
objPayment.Type = 1
If txtPONumber.Tex t <> "" Then
objPayment.PONu mber = txtPONumber.Tex t
ElseIf tblCreditCard.V isible Then
objPayment.Type = 0
If txtCardType.Sel ectedItem.Text <> "" Then
objPayment.Card Type = txtCardType.Sel ectedItem.Text
Else
objPayment.Card Type = ""
' Me.ErrorMessage .Text = "Please select a card type"
' Me.ErrorMessage .Visible = True
'Exit Sub
End If
If txtCardNumber.V alue <> "" Then
objPayment.Cred itCardNumber = txtCardNumber.V alue
Else
objPayment.Cred itCardNumber = "" 'txtCardNumber. Value
' Me.ErrorMessage .Text = "Please enter a card number"
' Me.ErrorMessage .Visible = True
' Exit Sub
End If
If txtSecureCode.V isible Then
If txtSecureCode.T ext <> "" Then
objPayment.Secu rityCode = txtSecureCode.T ext
Else
objPayment.Secu rityCode = ""
' Me.ErrorMessage .Text = "Please enter a security code"
' Me.ErrorMessage .Visible = True
' Exit Sub
End If
End If
If txtExpMonth.Sel ectedItem.Value <> "" Then
objPayment.Expi reMonth = txtExpMonth.Sel ectedItem.Value
Else
objPayment.Expi reMonth = ""
' Me.ErrorMessage .Text = "Please select a month"
' Me.ErrorMessage .Visible = True
' Exit Sub
End If
If txtExpYear.Sele ctedItem.Value <> "" Then
objPayment.Expi reYear = txtExpYear.Sele ctedItem.Value
Else
objPayment.Expi reYear = ""
End If

'end #853
Else
objPayment.PONu mber = ""

End If
End If
If (tblECheck.Visi ble) Then
objPayment.Type = 2
If txtCheckNumber. Text <> "" Then
objPayment.Chec kNumber = txtCheckNumber. Text
Else
Me.ErrorMessage .Text = "Please enter a check number"
Me.ErrorMessage .Visible = True
Exit Sub
End If
If txtBankName.Tex t <> "" Then
objPayment.Bank Name = txtBankName.Tex t
Else
Me.ErrorMessage .Text = "Please enter a bank name"
Me.ErrorMessage .Visible = True
Exit Sub
End If
If txtRoutingNumbe r.Text <> "" Then
objPayment.Rout ingNumber = txtRoutingNumbe r.Text
Else
Me.ErrorMessage .Text = "Please enter a routing number"
Me.ErrorMessage .Visible = True
Exit Sub
End If
If txtAccountNumbe r.Text <> "" Then
objPayment.Acco untNumber = txtAccountNumbe r.Text
Else
Me.ErrorMessage .Text = "Please enter an account number"
Me.ErrorMessage .Visible = True
Exit Sub
End If
If txtSSN.Text <> "" Then
objPayment.SSNu mber = txtSSN.Text
Else
Me.ErrorMessage .Text = "Please enter a social security number (SSN)"
Me.ErrorMessage .Visible = True
Exit Sub
End If
End If
objPayment.File Path = Server.MapPath( Me.TemplateSour ceDirectory)
objOrder.OrderP ayment = objPayment
If objProcessor.Re cordPayment Then
objOrder.SaveOr der(m_objcustom er.GetCustomerI D())
'update #2160
If (IsNothing(Sess ion("Referer")) = False) Then
m_objcustomer.R eferer = objOrder.RetRef erer
Session("Refere r") = m_objcustomer.R eferer
End If
End If
'#2407
If (objOrder.Grand Total = 0) Or (objOrder.Total BilledAmt <= 0) Then
Response.Redire ct("Confirm.asp x")
End If

If (objProcessor.C COnline And strMethod.ToLow er = "credit card") Or (objProcessor.E CheckOnline And strMethod.ToLow er = "echeck") Then
Try
objProcessor.Ca llProcessor(m_o bjCustomer.GetS essionID(), Request.ServerV ariables("REMOT E_ADDR"))
If objProcessor.Su pportsPayerAuth entication Then Exit Sub
Catch objErr As Exception
If Not TypeOf objErr Is Threading.Threa dAbortException Then
objOrder.Delete Order(m_objcust omer.GetCustome rID())
If objProcessor.Me ssage = "" Then
ErrorMessage.Te xt = objErr.Message


Else
ErrorMessage.Te xt = objProcessor.Me ssage
End If
ErrorMessage.Vi sible = True
End If
Exit Sub
End Try
Response.Redire ct("Confirm.asp x")
Else
Response.Redire ct("Confirm.asp x")
End If
Catch ex As Exception
Me.ErrorMessage .Text = ex.Message
Me.ErrorMessage .Visible = True
End Try
End Sub

[krknaveen]

Try restarting the service and then run the application again...