<perl>
foreach $name ("Hotel_D_14")
{
get "Id==*","$name";
 
while(get_next "$name")
{
$emails{$_loop{"E-Mail"}}++;
}
}
@liste=keys %emails;
$adressen=join(", ",@liste);
out "<a href=\"mailto:webmaster\@reiners-page.de?bcc=$adressen\">Mail an alle Biker</a>";
</perl>

foreach $name ("Hotel")
{
get "Id==*","$name";
 
while(get_next "$name")
{
$emails{$_loop{"E-Mail"}}++;
}
}
@liste=keys %emails;
$adressen=join(", ",@liste);
out "<a href=\"mailto:webmaster\@reiners-page.de?bcc=$adressen\">Mail an alle Biker</a>";
</perl>

<perl>
foreach $name ("Hotel","Hotel_D_14")
{
get "Id==*","$name";
 
while(get_next "$name")
{
$emails{$_loop{"E-Mail"}}++;
}
}
@liste=keys %emails;
$adressen=join(", ",@liste);
out "<a href=\"mailto:webmaster\@reiners-page.de?bcc=$adressen\">Mail an alle Biker</a>";
</perl>