<perl>
                                 if ($cmd eq "")
                                 {
                                 get "Bis<jetzt","Termine"; # dbname mit der orginaldb ersetzen
                                 while (get_next("Termine")) # hier auch
                                 {

                                 put
                                 ["Von",$Von,"Bis",$Bis,"Veranstaltung",$Veranstaltung,"Wo",$Wo,"Was",$Was,"eMail",$eMail,"Homepage",$Homepage,"Telefon",$Telefon],"Termine_Archiv";
                                 }
                                 }
                                 </perl><do action=all db=Termine databack=f0f0f0 datasize=2
                                 headback=778899 border=0 spacing=1 padding=3 gridcolor=
                             FFFFFF dataface=verdana,arial,helvetica sort^=Von range^=0,20 pagebrowse=top buttonbrowse=top,bottom listtype=list listfields=Von,Bis,Veranstaltung,Wo,eMail input=link>

<do action=all db=Termine_Archiv databack=f0f0f0 datasize=2 headback=778899 border=0 spacing=1 padding=3 gridcolor=
FFFFFF dataface=verdana,arial,helvetica sort^=Von range^=0,20 pagebrowse=no buttonbrowse=bottom listtype=list listfields=Von,Bis,Veranstaltung,Wo,eMail input=link>