check name in xml file B4 MembershipProvi der.CreateUser

[Fossie]

Hi,
I need to check that someone signing up is listed in an xml file. I am
using a customer membership provider for Access and trying to integrate
the xml check into that. Am I on the right track? The code below runs
but it results in "Your account was not created. Please try again."
It's obviously not picking up username and comparing it.

code.vb

' MembershipProvi der.CreateUser
'

Public Overrides Function CreateUser(user name As String, _
password As String, _
email As String, _
passwordQuestio n As String, _
passwordAnswer As String, _
isApproved As Boolean, _
providerUserKey As Object, _
ByRef status As MembershipCreat eStatus) As MembershipUser

Dim Args As ValidatePasswor dEventArgs = _
New ValidatePasswor dEventArgs(user name, password, True)

OnValidatingPas sword(args)

If args.Cancel Then
status = MembershipCreat eStatus.Invalid Password
Return Nothing
End If
If RequiresUniqueE mail AndAlso GetUserNameByEm ail(email) <> ""
Then
status = MembershipCreat eStatus.Duplica teEmail
Return Nothing
End If

Dim u As MembershipUser = GetUser(usernam e, False)

If u Is Nothing Then
Dim createDate As DateTime = DateTime.Now

If providerUserKey Is Nothing Then
providerUserKey = Guid.NewGuid()
Else
If Not TypeOf providerUserKey Is Guid Then
status = MembershipCreat eStatus.Invalid ProviderUserKey
Return Nothing
End If
End If
'........start xml

Dim strUser As String = username
Dim blnIsAuthentica ted As Boolean
Dim objXMLDoc As New XMLDocument()
Try
objXMLDoc.Load( "\Administratio n\dbs\clientids .xml")
Catch objError As Exception
status = MembershipCreat eStatus.Provide rError
End Try

Dim UserNodes As XmlNodeList
UserNodes = objXMLDoc.GetEl ementsByTagName (username)

'see if we found an element with this username
If Not UserNodes Is Nothing Then
Dim blnUserExists As Boolean = True
Dim strUserCheck As String = username
Try
strUserCheck = UserNodes(0).Fi rstChild().Valu e
Catch objError As Exception
status = MembershipCreat eStatus.Provide rError
blnUserExists = False
End Try

If blnUserExists = True Then
blnIsAuthentica ted = True
Else
status = MembershipCreat eStatus.Provide rError

End if
End If

If blnIsAuthentica ted Then

'...... into database code .....
Dim conn As OdbcConnection = New
OdbcConnection( connectionStrin g)
Dim cmd As OdbcCommand = New OdbcCommand("IN SERT INTO [" &
tableName & "]" & _
" (PKID, Username, Password, Email, PasswordQuestio n, " &
_

etc ...... code cut

Try

conn.Open()

Dim recAdded As Integer = cmd.ExecuteNonQ uery()

If recAdded > 0 Then
status = MembershipCreat eStatus.Success
Else
status = MembershipCreat eStatus.UserRej ected
End If
Catch e As OdbcException
If WriteExceptions ToEventLog Then
WriteToEventLog (e, "CreateUser ")
End If

status = MembershipCreat eStatus.Provide rError
Finally
conn.Close()
End Try
'.....
End if
'......

Return GetUser(usernam e, False)
Else
status = MembershipCreat eStatus.Duplica teUserName
End If

Return Nothing
End Function

clientids.xml
<?xml version="1.0"?>
<username>
<foster></foster>
<jessie></jessie>
<shadow></shadow>
</username>