ChangePassword()

Imports System.Xml
Imports System.Web.Services.Protocols

Class ErrorInfo
    Public ErrorCode As Short
    Public ErrorString As String
    Public ErrorItem As String
    Public ErrorMessage As String
End Class

Partial Class _Default
    Inherits System.Web.UI.Page
    Private ec As New ecgrid.ECGridOSAPIv2
    Private SyessionID As String

    Protected Sub ChangePassword_Click(ByVal sender As Object, _
                                       ByVal e As System.EventArgs) _
                                       Handles ChangePassword.Click
        SessionID = StartSession()



        If SessionID.length > 0 Then
            If ec.ChangePassword(Password.text, NewPassword.text) Then
                Password.text = NewPassword.text
            Else
                NewPassword.text = "[Invalid]"
            End If
            EndSession(SessionID)
        End If
    End Sub

    Private Function StartSession() As String
        Dim SessionID As String
        Dim ErrorInfo As ErrorInfo
        Try
            SessionID = ec.Login(LoginName.Text, Password.Text)
            _SessionID.Text = SessionID
            Return SessionID
        Catch ex As SoapException
            ErrorInfo = ShowException(ex)
            Return ""
        End Try
    End Function

    Private Function EndSession(ByVal SessionID As String) As Integer
        Dim SessionTime As Integer
        SessionTime = ec.Logout(SessionID)
        Return SessionTime
    End Function

    Private Function ShowException(ByVal ex As SoapException) As ErrorInfo
        Dim doc As New XmlDocument
        Dim Node As XmlNode
        ShowException = New ErrorInfo
        doc.LoadXml(ex.Detail.OuterXml)
        Node = doc.DocumentElement.SelectSingleNode("ErrorInfo")
        ShowException.ErrorCode = _
            CInt(Node.SelectSingleNode("ErrorCode").InnerText)
        ShowException.ErrorString = _
            Node.SelectSingleNode("ErrorString").InnerText
        ShowException.ErrorItem = _
            Node.SelectSingleNode("ErrorItem").InnerText
        ShowException.ErrorMessage = _
            Node.SelectSingleNode("ErrorMessage").InnerText
    End Function
End Class