{
# letztes Datum ermitteln
get "sort=-Datum range=0,$anzakt","News","neueNews";
while(get_next("neueNews"))
{
$aTag = datum($Datum,"Tag0");
$aMonat = datum($Datum,"Monat0");
$aJahr = datum($Datum,"Jahr");
$aktDat =$aTag . $aMonat . $aJahr;
}
# Tabelle
out "<table width='500' border='0' cellspacing='0' cellpadding='0'>";
out "<tr bgcolor='#000000'>";
out "<td>";
out "<table border='1' width='100%'cellspacing='0' cellpadding='0'>";
get "sort=-Datum range=0,$anzakt","News","neueNews";while(get_next("neueNews"))
{
{
$AnzeigeJahr = 0;
out "<h2><font color=$farbe3>Übersicht Archiv</font></h2>";
out "<table width='200' border='0' cellspacing='0' cellpadding='0'>";
out "<tr bgcolor='#000000'>";
out "<td>";
out "<table border='0' width='100%'cellspacing='1' cellpadding='1'>";
get "sort=Datum","News","Uebersicht";
while(get_next("Uebersicht"))
{
$aTag = datum($Datum,"Tag0");
$aMonat = datum($Datum,"Monat0");
$aJahr = datum($Datum,"Jahr");
$aktDat =$aTag . $aMonat . $aJahr;
if ($aktDat < $lastDat)
{
if ($AnzeigeJahr == datum($Datum,"Jahr"))
{
}
else
{
$AnzeigeJahr = datum($Datum,"Jahr");
out "<tr bgcolor=$farbe1>";
out "<td align='center'><p align='center'><b><br><a href='baseportal.pl?htx=$htx&Seite=2&ArchivJahr=$AnzeigeJahr&lastDat=$lastDat'>$AnzeigeJahr<br><br></b></p></td>";
out "</tr>";
}
}
}
out "</table>";
out "</td>";
out "</tr>";
out "</table>";
out "<p><a href='baseportal.pl?htx=$htx&Seite=0'>[Aktuelles]</a></p>";
}
</perl>