rendered paste body<?
if ($_REQUEST[dag] != null) { $D = $_REQUEST[dag]; }
else { $D = date("d", strtotime("-1 day")); }
if ($_REQUEST[maand] != null) { $M = $_REQUEST[maand]; }
else { $M = date("m"); }
if ($_REQUEST[jaar] != null) { $Y = $_REQUEST[jaar]; }
else { $Y = date("Y"); }
// Maanden
$Maanden = array("Januari","Februari","Maart","April","Mei","Juni","Juli","Augustus","September","Oktober","November","December");
$Dagen = array("Zondag","Maandag","Dinsdag","Woensdag","Donderdag","Vrijdag","Zaterdag");
$Dagen_K = array("Zo","Ma","Di","Wo","Do","Vr","Za");
$Dagen_C = array("weekend","","","","","","weekend","vandaag");
// Agenda
// Jaar & Maand uitlezen van NU
$uts = mktime(1,1,1,$M,1,$Y);
print " <table cellspacing=\"1\" cellpadding=\"1\" border=\"1\" style=\"font-size:11px;text-align:center;\">\n";
print " <tr><th colspan=\"8\">" . date("F Y", $uts) . "</th></tr>\n";
print " <tr><th>Wk</th>\n";
for ($i=0; $i < count($Dagen_K); $i++) {
if ($i == 0 || $i == 6) {
print " <th class=\"weekend\">$Dagen_K[$i]</th>\n";
}
else {
print " <th>$Dagen_K[$i]</th>\n";
}
}
print " </tr>\n";
$BeginDag = date("w",$uts);
$TotalDays = date("t",$uts);
$Week = date("W",$uts);
$Pointer = 0;
for ($i=0; $i < 6; $i++) {
print " <tr><th class='$Class'><a $Href>$Week</a></th>\n";
$Week++;
for ($a=0; $a < 7; $a++) {
$Class = $Dagen_C[$a];
if ($Pointer < 7) {
// Eerste week
if ($a == $BeginDag) {
$Pointer++;
$DagUts = mktime(1,1,1,$Maand,$Pointer,$Jaar);
if ($DagUts == mktime(1,1,1,$M,$D,$J)) {
$Class = $Dagen_C[7];
}
if ($Class) {
print " <td class='$Class'><a $Href>$Pointer</a></td>\n";
}
else {
print " <td><a $Href>$Pointer</a></td>\n";
}
}
else {
if ($Pointer) {
$Pointer++;
$DagUts = mktime(1,1,1,$Maand,$Pointer,$Jaar);
if ($DagUts == mktime(1,1,1,$M,$D,$J)) {
$Class = $Dagen_C[7];
}
if ($Class) {
print " <td class='$Class'><a $Href>$Pointer</a></td>\n";
}
else {
print " <td><a $Href>$Pointer</a></td>\n";
}
}
else {
print " <td class='$Class'> </a></td>\n"; // voor
}
}
}
else {
// Over de eerste week heen
if ($Pointer == $TotalDays) {
print " <td class='$Class'> </a></td>\n"; // na
}
else {
$Pointer++;
$DagUts = mktime(1,1,1,$Maand,$Pointer,$Jaar);
if ($DagUts == mktime(1,1,1,$M,$D,$J)) {
$Class = $Dagen_C[7];
}
if ($Class) {
print " <td class='$Class'><a $Href>$Pointer</a></td>\n";
}
else {
print " <td><a $Href>$Pointer</a></td>\n";
}
}
}
}
print " </tr>\n";
}
print " </table><br />\n";
?>