Wiswijzer

Het was spannend of het zou lukken. Ik had in wiskundeleraar.nl een scriptje ingebouwd om er voor te zorgen dat een aantal pagina's automatisch in blok 2 zouden worden aangepast.

dim week, blok
week=DatePart("ww", Now(), 2, vbFirstFourDays)
blok=1
IF week>=47 AND week<=6 Then blok=2
IF week>=7 AND week<=18 Then blok=3
IF week>=19 AND week<=29 Then blok=4

...maar dat werkt niet. Het moest natuurlijk zijn:

dim week, blok
week=DatePart("ww", Now(), 2, vbFirstFourDays)
blok=1
IF week>=47 OR week<=6 Then blok=2
IF week>=7 AND week<=18 Then blok=3
IF week>=19 AND week<=29 Then blok=4

Jippie... en ik denk dat het werkt:

Zo dat is dan weer geregeld...

Geef een reactie op dit bericht

Ik ben gestopt met dit weblog. Reageren is niet meer mogelijk...