if ($sth->rows != 0){   print $cgi->start_html(-title => 'Antwort');   print qq~

Suchergebnis

           ~;   while (my ($familienname,$vorname,$abt,$telefon) = $sth->fetchrow_array()) {     print qq§\n\n\n\n\n\n§;   }   print qq§
Familienname:Vorname:Abteilung:            Telefon:
$familienname$vorname$abt$telefon
\n

Neue Suche

\n
\n
§; } else { ##Keine Treffer   print $cgi->start_html(-title => 'Antwort');   print qq~

Leider brachte die Suche keine Ergebnisse!

           Neue Suche!

~; }