| baseportal | |||
| English - Deutsch | "Es gibt keine dummen Fragen - jeder hat einmal angefangen" | ||
  | 
| Ausgewählter Eintrag: | Zur Liste | 
| Alle Einträge zum Thema: | Zur Liste | 
<perl>
if ($cmd eq "")
{
get "Datum<jetzt","gospelevents"; # dbname mit der orginaldb ersetzen
while (get_next("gospelevents")) # hier auch
   {
    del "Id==$_id","gospelevents"; # und nochmal
    put
    ["Event",$Event,"Rubrik",$Rubrik,"Datum",$Datum,"Uhrzeit",$Uhrzeit,"Ort",$Ort,"Veranstalter",$Veranstalter,"Beschreibung",$Beschreibung,"Link",$Link,"Autor",$Autor,"EMail",$EMail,"Einstellungsdatum",$Einstellungsdatum],"events_archiv";
   }
}
</perl>
<perl>
if ($cmd eq "")
  {
   get "Datum<jetzt","gospelevents", "lesen"; # dbname mit der orginaldb ersetzen
   while (get_next("lesen")) # hier auch
        {
         $id_save = $_id;
         put ["Event",$Event,"Rubrik",$Rubrik,"Datum",$Datum,"Uhrzeit",$Uhrzeit,"Ort",$Ort,"Veranstalter",$Veranstalter,"Beschreibung",$Beschreibung,"Link",$Link,"Autor",$Autor,"EMail",$EMail,"Einstellungsdatum",$Einstellungsdatum],"events_archiv";
         del "Id==$id_save","gospelevents"; # und nochmal
        }
  }
</perl>
<perl>
if ($cmd eq "")
{
get "Datum<jetzt","gospelevents"; # dbname mit der orginaldb ersetzen
{
    del "Id==$_id","gospelevents"; # und nochmal
    put
    ["Event",$Event,"Rubrik",$Rubrik,"Datum",$Datum,"Uhrzeit",$Uhrzeit,"Ort",$Ort,"Veranstalter",$Veranstalter,"Beschreibung",$Beschreibung,"Link",$Link,"Autor",$Autor,"EMail",$EMail,"Einstellungsdatum",$Einstellungsdatum],"gospelevents_archiv";
   }
}
</perl>
if ($cmd eq "")
  {
   get "Datum<jetzt","gospelevents"; # dbname mit der orginaldb ersetzen
   if ($_amount_query)
     {
      put    ["Event",$Event,"Rubrik",$Rubrik,"Datum",$Datum,"Uhrzeit",$Uhrzeit,"Ort",$Ort,"Veranstalter",$Veranstalter,"Beschreibung",$Beschreibung,"Link",$Link,"Autor",$Autor,"EMail",$EMail,"Einstellungsdatum",$Einstellungsdatum],"gospelevents_archiv";
      del "Id==$_id","gospelevents"; # und nochmal
     }
  }
get "Datum>=jetzt", "...";
| Liste der Einträge von 26401 bis 26551: | Einklappen | Zur Eingabe | 
| Neueste Einträge << 10 | 9 | 8 | 7 | 6 | 5 | 4 | 3 | 2 | Neuere Einträge < | Zur Eingabe | > Ältere Einträge | 2 | 3 | 4 | 5 | 6 | 7 | 8 | 9 | 10 >> Älteste Einträge | 
| © baseportal.de. Alle Rechte vorbehalten. Nutzungsbedingungen |