lista antal nya

försöker skapa en liten funktion som skriver ut hur många nya meddelanden man har fått sedan den senaste inloggningen. hittade en kod när jag sökte här som ser ut såhär:

<%
Set Databas = Server.CreateObject("ADODB.Connection")
MdbFilePath = Server.MapPath("mess.mdb") 
Databas.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ= " & MdbFilePath & ";"
strsql = "select count(*) as antalnya from meddelande where till = '" & session("online") & "' and status='nytt'" 
set rs=Databas.execute(strsql)
nyameddelanden = rs("antalnya")
rs.close
%>

skriver ut det såhär:

<% Response.Write"Du har " & rs("antalnya") & " nya meddelanden."
%>

felmeddelande:

error '80020009'
Exception occurred.

mycket möjligt att det kan vara någon liten miss någonstans. hittar dock inget