> 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 Sub>