sub get_auftraege_inetbk_html
{
 # Variablen
 my @aa_inet_bk;
 my $aa_size = 0;
 my @aa_mitte_fertig = '';
 my $aa_sid = $_[0];
 my $betreff;
 my $content;
 my $bearbeiten;
 my $i=0;
 my @content;
 my ($mail);

 # Hole die Daten aus der Datenbank
 @aa_inet_bk = get_auftraege_inetbk();
 push(@aa_mitte_fertig, "<h3>Mail: Internet -> BK-Netz</h3>");

 # ueberschrift von der Tabelle erzeugen
 my $ueberschrift="<table width=100% rules=\"all\"><tr><th>Status</th><th>Mail von:</th><th>Betreff:</th><th>Erhalten:</th><th>Gr&ouml;&szlig;e:</th><th>&nbsp;</th></tr>";

 open(FH, "<templates/showauftraege_content.html");
 while(<FH>)
 {
  push (@content, $_);
 }
 close(FH);
 print Dumper \@aa_inet_bk;
 $i=0;

 foreach (@aa_inet_bk)
 {
  foreach my $item (@content)
  {
   # Status
   $item =~ s/\!\!Freigabe\!\!/OK/g;
   # Emailadresse
   #$mail = $aa_inet_bk[$i][1];
   #$mail =~ s/</&lt;/g;
   #$item =~ s/\!\!Mailadresse\!\!/$mail/g;
   # Betreff
   #$betreff = "hallo";
   #$betreff = $aa_inet_bk[$i][1];
   #print $aa_inet_bk[$i][1];
   #if (length($betreff) > 60) { $betreff = substr($betreff,0,60); $betreff .= "[..]"; }
   #$_ =~ s/\!\!Betreff\!\!/$betreff/g;
   # Zeit/Datum
   #$item =~ s/\!\!ZeitDatum\!\!/$bla/g;
   # Groesse
   #$aa_size = -s WORKDIR . "/" . SERVERID . "/A$aa_inet_bk[$i][0]/original.txt";
   #$aa_size = $aa_size / 1000;
   #$aa_size = sprintf("%.0f", $aa_size);
   #$_ =~ s/\!\!Groesse\!\!/$aa_size KB/g;
   # Bearbeiten
   #$bearbeiten = "<a href=\"main.pl?link=auftrag&SID=$aa_sid&AID=$bla\"><img src=\"/images/b_edit.png\" alt=\"Bearbeiten\" border=\"0\"></a>";
   #$item =~ s/\!\!Bearbeiten\!\!/$bearbeiten/g;
   push(@aa_mitte_fertig, $item);
   $i++;
  }
 }
 # Hier wird der komplette String zusammengebaut
 return $content = "$ueberschrift" . "@aa_mitte_fertig" ."</table>";
}