email aus der Access-Datenbank

[Micha]

Hallo,

ich brauche eine dringende Hilfe.

Ich habe auf dem Server eine Access Datenbank für unseren
Chat.

Ich habe eine Perlroutine um das Passwort eines Users zu
überprüfen:

######################################################################

Testen ob ein User registriert ist (incl. Passwort-Check) !

#  Parameter : $Username,$Password
#  Rückgabe  : 0 (= User nicht reg. oder Passwort falsch oder gesperrt)
#        1 (= User reg.)

sub VerifyUser {
local($Username,$Password) = @_;
$Conn = CreateObject OLE "ADODB.Connection";
$Conn->Open("comtalk");
$SQL = "SELECT * FROM Users WHERE Username = '" . $Username . "' AND Password = '" . $Password . "' AND NOT Locked = -1";
$RS = $Conn->Execute($SQL);
if ($RS->EOF)
{
  $UserFound = 0;
} else {
  $UserFound = 1;
}
$RS->close();
$Conn->close();
$UserFound;
}
##################################################################

Was ich aber noch brauche, ist eine Perl-Routine, die als
Eingabe den Usernamen und
das Passwort eines Users erhält, und als Ausgabe entweder
die
eMail-Adresse dieses User liefert oder "0" falls Username
oder Passwort
falsch war.

Da ich mich weder mit Access noch mit OLE auskenne, kann ich
die Routine
nicht selbst schreiben.

Kann mir da jemand helfen?

Ich danke schonmal im Voraus.

Herzliche Grüße, Micha