while ($frage ne '')