If xmldoc.parseError.ErrorCode=0 ThenSet nodeList = xmldoc.documentElement.getElementsByTagName(usr) If nodeList.length>0 Then If nodeList.Item(0).Text = pwd Then
IsValidUser = True On Error Resume NextSession("UserRole") = nodeList.Item(0).attributes.getNamedItem("role").nodeValueIfErr.Number<>0 Then Session("UserRole") = "GUEST" End If End IfEnd If
End If