L
Leon
Is there anyway I could clean-up all these ElseIF statements with a
select/case or is this the best that can be done ("I can't think of a better
way")?
Private Sub Update_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Update.Click
If Page.IsValid Then
If Me.NewEmailAddress.Text = "" And Me.NewPassword.Text = "" Then
Me.CustomDataCheck.IsValid = False
Me.CustomDataCheck2.IsValid = False
ElseIf Me.NewEmailCheck.Text <> "" And Me.NewEmailAddress.Text = "" Then
Me.CompEmailCheck.IsValid = False
ElseIf Me.NewPasswordCheck.Text <> "" And Me.NewPassword.Text = "" Then
Me.CompPasswordCheck.IsValid = False
ElseIf Me.NewEmailAddress.Text = context.Session("Email") Then
Me.CustomEmailCheck.IsValid = False
Me.CustomEmailCheck.ErrorMessage = "Email update failed - Email Address " &
_
Me.NewEmailAddress.Text & " is already registered to your account."
Me.CustomEmailCheck.Text = "Opps Already In Use By You!"
ElseIf Me.NewEmailAddress.Text <> "" And Me.NewPassword.Text <> "" Then
UpdateAccount(Me.NewEmailAddress.Text, Me.NewPassword.Text)
ElseIf Me.NewEmailAddress.Text <> "" Then
UpdateAccount(Me.NewEmailAddress.Text, Me.CurrentPassword.Text)
ElseIf Me.NewPassword.Text <> "" Then
UpdateAccount(context.Session("Email"), Me.NewPassword.Text)
End If
End If
End Sub
select/case or is this the best that can be done ("I can't think of a better
way")?
Private Sub Update_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Update.Click
If Page.IsValid Then
If Me.NewEmailAddress.Text = "" And Me.NewPassword.Text = "" Then
Me.CustomDataCheck.IsValid = False
Me.CustomDataCheck2.IsValid = False
ElseIf Me.NewEmailCheck.Text <> "" And Me.NewEmailAddress.Text = "" Then
Me.CompEmailCheck.IsValid = False
ElseIf Me.NewPasswordCheck.Text <> "" And Me.NewPassword.Text = "" Then
Me.CompPasswordCheck.IsValid = False
ElseIf Me.NewEmailAddress.Text = context.Session("Email") Then
Me.CustomEmailCheck.IsValid = False
Me.CustomEmailCheck.ErrorMessage = "Email update failed - Email Address " &
_
Me.NewEmailAddress.Text & " is already registered to your account."
Me.CustomEmailCheck.Text = "Opps Already In Use By You!"
ElseIf Me.NewEmailAddress.Text <> "" And Me.NewPassword.Text <> "" Then
UpdateAccount(Me.NewEmailAddress.Text, Me.NewPassword.Text)
ElseIf Me.NewEmailAddress.Text <> "" Then
UpdateAccount(Me.NewEmailAddress.Text, Me.CurrentPassword.Text)
ElseIf Me.NewPassword.Text <> "" Then
UpdateAccount(context.Session("Email"), Me.NewPassword.Text)
End If
End If
End Sub