sub BILD_GALERIE
{
@Liste1=split (/;| /, $BILD_GALERIE_NAMEN);
foreach my $opt1(@Liste1){
$text .=  "$opt1";
}
@Liste=split (/ | /, $BILD_GALERIE);
foreach my $opt(@Liste){
$opt =~ s/^\s//;
$bildwert = join ( ";" , "@Liste" , "@Liste1");
$a_options .= "<A HREF=\"javascript:popUp('http://immo1001.de/baseportal.pl?htx=/immo1001.de/immo1001/baustein/format_immo_02&Id==$_id&bild=$opt&text=$text&bildwert=$bildwert')\">  <IMG SRC=\"http://www.icg.de/icgi/$opt\.jpg\" WIDTH=\"30\" HEIGHT=\"30\" BORDER=\"1\"> </a>";
$b_options .= "<b>$opt / </b>";
$c_options .= "$opt<br>";
}
}