dinsdag 10 januari 2023

Dat is vreemd...

In het script van zoeken4.asp komen de volgende regels voor:

IF jaar < 2023 Then
   cnnSearch.Open "DRIVER=...." & jaar & ".accdb;"
Else
   cnnSearch.Open "DRIVER=.....accdb;"
END if

Die 2023 moet er uit. Dat kan zo:

IF jaar < Year(Now()) Then
   cnnSearch.Open "DRIVER=...." & jaar & ".accdb;"
Else
   cnnSearch.Open "DRIVER=.....accdb;"
END if

Maar helaas. Dat werkt niet. Ik heb er een tijdje op zitten puzzelen en heb het zo opgelost:

IF jaar = Year(Now()) Then
   cnnSearch.Open "DRIVER=.....accdb;"
Else
   cnnSearch.Open "DRIVER=...." & jaar & ".accdb;"
END if

Verrassend genoeg werkt dat dan wel. Misschien zie ik iets over het hoofd. Je moet misschien ook niet altijd alles proberen te begrijpen.:-)