actualizar base de datos asp.net

[figoni]

ok primero lo que tengo


traigo los datos de active directory y los muestro en cajas de texto con este codigo los datos que estan basios en active directory los valida e = los muestra

Public Shared Function GetFullAssistan(ByVal Assistan As String, ByVal UserName As String) As String
Dim oDirectory As New DirectoryEntry("LDAP://" & Assistan)
Dim mySearcher As New DirectorySearcher(oDirectory)
Dim oResult1 As SearchResult
Dim sResult3 As String = ""

mySearcher.SearchScope = SearchScope.Subtree
mySearcher.ReferralChasing = ReferralChasingOption.All
mySearcher.Filter = "(&(objectClass=user)(sAMAccountName=" & UserName & "))"

Try
oResult1 = mySearcher.FindOne
If oResult1.Properties("extensionattribute1").Count = 0 Then
sResult3 = ""
Else
sResult3 = oResult1.GetDirectoryEntry.Properties.Item("extens ionattribute1").Value.ToString()
End If


Catch ex As Exception
Throw ex
End Try

oResult1 = Nothing
mySearcher.Dispose()
oDirectory.Dispose()
Return sResult3
End Function

y se muestra en esta caja de texto :

Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
Dim aux As String
aux = Request.ServerVariables("LOGON_USER").ToString().R emove(0, 15)

Asistencia_txt.Text = funciones.GetFullAssistan("RED", aux)

End Sub
End Class


ahora lo que nesesito es esos datos que se cargan en la caja de texto con un boton actualizar modificar la informacion del usuario que estan obiamente en el active directory



y los datos que traigo a la pagina asp.net son:

department
company
title
postalcode
physicaldeliveryofficename
telephoneNumber
extensionattribute1
mobile

y tengo un dropdownlist con los datos de todos los usuarios para poder llenar al superovisor

manager ese es el ultimo campo

punto aparte si alguien quiere llenar un dropdownlist o (listbox) en asp.net con datos de active directory es asi


Public Shared Function GetGroups()
Dim oDirectory As New DirectoryServices.DirectoryEntry("LDAP://RED_COLLAHUASI")
Dim ds As New DirectoryServices.DirectorySearcher(oDirectory)

ds.SearchScope = SearchScope.Subtree
ds.ReferralChasing = ReferralChasingOption.All
ds.PageSize = 1000
ds.Filter = "(&(objectCategory=person)(objectClass=user)(Sn=*) )"

Dim colServers As ArrayList = New ArrayList
Dim result As DirectoryServices.SearchResult

For Each result In ds.FindAll()
colServers.Add(result.Properties("cn").Item(0))
Next result
colServers.Sort()
oDirectory.Dispose()
Return colServers
End Function