<perl>

 while(get_next("holen"))

 {
  out "<hr>";

  out "ID= $Id<br>";

  # DF_before
  if ($DF_before)

   { 
    out "1 \DF_before: $DF_before<br>";

    get "Name==!$DF_before" , "Preise" ;
    if ($Preis_ek ne "") {
    
    out "<font color ='red'> \$Name : : $Name :: \Preis_ek: $Preis_ek :: \Preis_vk: $Preis_vk</font><br><br>";

   }
   }

  # DF_after
  if ($DF_after)
   { 

    out "2 \DF_after: $DF_after<br>";
    get "Name==!$DF_after" , "Preise" ;

    if ($Preis_ek) {
    out "<font color ='red'> \$Name : : $Name :: \Preis_ek: $Preis_ek :: \Preis_vk: $Preis_vk</font><br><br>";

   }
   }

  # UNI_before
  if ($UNI_before)
   { 

    out "3 \UNI_before: $UNI_before<br>";
    get "Name==!$UNI_before" , "Preise" ;

    if ($Preis_ek ne "") {
    out "<font color ='red'> \$Name : : $Name :: \Preis_ek: $Preis_ek :: \Preis_vk: $Preis_vk</font><br><br>";

   }
   }

  # UNI_after
  if ($UNI_after)
   { 

    out "4 \UNI_after: $UNI_after<br>";
    get "Name==!$UNI_before" , "Preise" ;

    if ($Preis_ek ne "") {
    out "<font color ='red'> \$Name : : $Name :: \Preis_ek: $Preis_ek :: \Preis_vk: $Preis_vk</font><br><br>";

    }
   }

 }
</perl>