Laatste update
<% dag = Day(date) maand = Month(date) if dag < 6 then if maand = 1 then maand = 12 else maand = maand -1 end if end if Select Case maand Case 1 Response.Write "Januari " Case 2 Response.Write "Februari " Case 3 Response.Write "Maart " Case 4 Response.Write "April " Case 5 Response.Write "Mei " Case 6 Response.Write "Juni " Case 7 Response.Write "Juli " Case 8 Response.Write "Augustus " Case 9 Response.Write "September " Case 10 Response.Write "Oktober " Case 11 Response.Write "November " Case 12 Response.Write "December " End Select Response.Write Year(date) %>