selfhtml.de - Alles für den Webmaster!

 

Empfehlung:

wix.com

Kostenlose Homepage

Besuchen Sie auch:

Jobs:

ASP Public Function in DIm Variable speichern

Autor: jaenu1989
Datum: 26.04.2010 08:12:09

Hallo Zusammen. Nachdem ich zu dieser Frage in einem anderen Forum keine Antworten gefunden habe versuche ich es nun hier. Und zwar habe ich folgendes Problem:

Ich habe eine Funktion geschrieben, die die Mail adresse eines Users aus dem AD heraussucht und ausgibt. Nun möchte ich die Ausgabe dieser funktion in einer Variable speichern.
Mein Problem liegt glaub dadrin dass ich den Wald lauter Bäume nicht mehr sehe. Ich glaube eigentlich ist es ganz banal und einfach aber ich komme nicht drauf!

Meine Funktion:


response.write GetMailAddress(*USERNAME","*DOMÄNE*","","")

Public Function GetMailAddress(strUsername, strDnsDomain, strAccount, strPassword)

Dim objConnection, objCommand, objRecordSet
Const ADS_SCOPE_SUBTREE = 2

Set objConnection = CreateObject("ADODB.Connection")
Set objCommand = CreateObject("ADODB.Command")
objConnection.Provider = "ADsDSOObject"

objConnection.Properties("User ID") = "*AD-USER*"
objConnection.Properties("Password") = "*AD-USER-PASSWORT*"
objConnection.Properties("Encrypt Password") = True
objConnection.Properties("ADSI Flag") = 1

objConnection.Open "Active Directory Provider"
Set objCommand.ActiveConnection = objConnection

objCommand.CommandText = "SELECT mail FROM 'LDAP://" & strDnsDomain & "' WHERE objectCategory='user' AND Name='" & strUsername & "'"

On Error Resume Next
Set objRecordSet = objCommand.Execute

If Err.Number <> 0 Then Exit Function

objRecordSet.MoveFirst

GetMailAddress=objRecordSet.Fields("mail").Value

Set objConnection = Nothing
Set objCommand = Nothing
Set objRecordSet = Nothing

End Function



Diese funktion will ich in eine Dim Variable speichern!

Danke schon jetzt für die Antworten!



Re: ASP Public Function in DIm Variable speichern

Autor: reporter
Datum: 03.05.2010 10:40:52

Hallo,

was meinst du mit

> Diese funktion will ich in eine Dim Variable speichern!


oder möchtest du ein Rückgabewert für diese Fuktion definieren?