<perl>
split("/", $htx);
$unterroutinenpfad = "/" . $_[1] . "/admin/includes/unterroutinen_incl";
#------------------------------------------------------------------------------#
</perl>
<include src=$unterroutinenpfad>
<perl>
#------------------------------------------------------------------------------#
&start_befehle;
#------------------------------------------------------------------------------#
</perl>
<include src=$drINCLUDEPFAD/feldabfrage_incl>
<perl>
#------------------------------------------------------------------------------#
init $drDBAUSSTATUNGPFAD;
%$ausstattung = %$_db;
$ausstattung_amount_all = $_amount_all;
@variablen = ();
$variablen[0] = $drHERSTELLER;
&html_kopfausgabe(1, $pgm_name);
$cond = &io("*", $drSPRACHE, , "GET", %$ausstattung);
if ($cond)
  {
   @variablen = ();
   $variablen[0] = $cond;
   $cond = &h0_lesen_fehler(5, $drSPRACHE, 1);
   # Fehler IO-Routine durch Feld(er) "^"
#   return;  UM DEN GEHT`S
  }
#------------------------------------------------------------------------------#