% Set conn = Server.CreateObject("ADODB.Connection") conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq="&Server.MapPath("/mdb-database/dati.mdb") Set rs = Server.CreateObject("ADODB.Recordset") %> <%rs.open "Select count(*) AS ne FROM eventi WHERE DateDiff('d',data,now) <= 0 AND DateDiff('d',dataagg,now) <= 15",conn,3,3%>