Tælleren tæller ikke

Jeg kan ikke få dette her til at virke. Jeg forsøger at opdate en daglig tæller i en ACCESS database ved navn count_aktivitet i en tabel, som også hedder count_aktivitet. Feltet count_datoopret er et datofelt. Feltet count_total er et langt heltal.

Der sker ingen opdatering i databasen. Tælleren tæller ikke!

<%
Set CountDB = Server.CreateObject(\"ADODB.Connection\")
CountDB.Open (\"PROVIDER=Microsoft.Jet.OLEDB.4.0;DATA SOURCE=\" + Server.MapPath(\"/db/count_aktivitet.mdb\"))
strQuery = \"select * from count_aktivitet\"
Set CountRS = CountDB.Execute(strQuery)

strMODE=\"ADD\"
while not CountRS.eof
if CountRS(\"count_datoopret\") = CDATE(NOW) then strMODE=\"RET\"
CountRS.MoveNext
wend

if strMODE=\"ADD\" then
CountRS.AddNew
CountRS(\"count_datoopret\") = NOW
CountRS(\"count_total\") = 1
CountRS.Update
end if

if strMODE=\"RET\" then
strQuery = \"select * from count_aktivitet where count_datoopret=CDATE(NOW)\"
Set CountRS = CountDB.Execute(strQuery)
CountRS(\"count_total\") = CountRS(\"count_total\")+1
CountRS.Update
end if

CountRS.Close
Set CountDB = Nothing
Set CountRS = Nothing
%>