ok, I changed "If node.Text = "Success" " to "If Not loginDom.InnerText Is
Nothing ". Now, I don't get the NullReference error but the SessionID I see
on screen is concatanated one. It looks like:XXXXXX=YYYYY==, but did I do
wrong. Althouggh, I get the message, Satus as Success.Since, I have to use
this SessionID in another click event on the same page, how do I do this.I
tried,

g_SessionID= loginDom.Value
g_SessionID = loginDom.InnerText

I noticed, I don'et get any value for Node.

I appreciate your quick reply and thanku in advance. I am enclosing the
function below:


Private Function ParseLoginResponse(ByRef loginDom As XmlDocument) As Boolean
' See if the login was successful. If so, get the SessionID.
' Otherwise, log the error.


Try


ParseLoginResponse = False


'Feb13
Dim filterDoc As New XmlDocument

'Feb16
'Instantiate an XmlNamespaceManager object
Dim nsmgr As XmlNamespaceManager
nsmgr = New XmlNamespaceManager(filterDoc.NameTable)


' Setup the Dom to use XPath queries and also setup
' an Xml namespace prefix for use in the XPath queries.

nsmgr.AddNamespace("ns", "urn:schemas -tms:LoginResponse")

Dim node As XmlDocument



'Feb16
'node = loginDom.SelectSingleNode("ns:LoginResponse/ns:Status")
node = loginDom.SelectSingleNode("ns:LoginResponse/ns:Status",
nsmgr)
'Console.WriteLine("Login successful: " & node.Value)



'testing feb17

If Not loginDom.InnerText Is Nothing Then
' The login was 100% successful so get the SessionID.

'new Feb 14
'If node Is Nothing Then

'for testing
'Console.WriteLine("Login successful: " & node.Value)
Console.WriteLine("Login successful: " & loginDom.InnerText)
node =
loginDom.SelectSingleNode("ns:LoginResponse/ns:SessionID", nsmgr)
'Feb 20
Console.WriteLine("Login successful: " & node.Value)




'new for testing Feb16
'Dim resultImport As XmlNode
'resultImport = filterDoc.ImportNode(node, True)
'filterDoc.AppendChild(resultImport)
'Return True
'g_SessionID = loginDom.Value
ParseLoginResponse = True

Console.WriteLine("Login successful: " & loginDom.InnerXml)


'Feb14

Else
'The login was not 100% successful
node =
loginDom.SelectSingleNode("ns:LoginResponse/ns:SystemMessage")
Console.WriteLine("Login unsuccessful: " & node.InnerText)



End If

Catch ex As Exception
MsgBox("Can't parse login information" & vbCrLf & ex.Message)




loginDom = Nothing
'node = Nothing

End Try
End Function