Private Sub ValidateAccountAndRedirect() Dim bolGoodAccount As Boolean Try lblValBank.Visible = True ' Show the wait for validation message 'Application.DoEvents() ' <- Too bad this is a fantasy bolGoodAccount = ValidAccount(True) ' Validate the account against our web service If bolGoodAccount Then ' Its good lblValBank.Visible = False ' Hide the wait message ignoremsg.Visible = False ' Hide the ignore msg lblBankingMsg.Visible = False ' Hide the detail message If SaveBankInfo() Then ' If we can Save the record Response.Redirect("Financial.aspx") ' Go to the next page End If Else ' Bank validation falied show msg lblValBank.Visible = False ' Hide the wait message ignoremsg.Visible = True ' Make the ignore message available lblBankingMsg.Visible = True ' Show the detail message cmdIgnoreBankError.Visible = True ' Allow the ignore command End If Catch exThread As System.Threading.ThreadAbortException ' this error is always expected on respose.redirect Catch ex As Exception ' customer error trapping Dim err As New MailError err.eMailError(ex, "ValidateAccountAndRedirect() " & Me.Page.ToString, context) End Try End SubMy humble thanks in advance,
"If ye love wealth better than liberty, the tranquility of servitude better than the animated contest of freedom, go home from us in peace. We ask not your counsel or arms. Crouch down and lick the hands which feed you. May your chains set lightly upon you, and may posterity forget that ye were our countrymen."
~Samuel Adams