hjælp til count script

Jeg har følgden til at tælle :

<%
strConn ="Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("dbase/database.mdb")
Set objRS = Server.CreateObject("ADODB.RecordSet")
If (Session("Antal") = "") Then   
  objRS.Open "SELECT * FROM counter", strConn, 2, 3, &H0001
        objRS("Antal") = objRS("Antal") + 1

        Session("Antal") = objRS("Antal")

        If (date = objRS("Dato")) Then
          objRS("Antal_dag") = objRS("Antal_dag") + 1
        else
          objRS("Dato") = date
          objRS("Antal_dag") = 1
        End if
        Session ("Dag") = objRS("Antal_dag")
        objRS.Update

        objRS.Close
        Set objRS = Nothing
End If
%>

problemet er, at den i databasen hver dag skriver på samme linje. Er det ikke muligt at få den til at oprette en ny linje for hver dag.