counting!

jeg vil gerne have denne til at tælle alt sammen i et felt der hedder counter. hvordan gør jeg det?

Downloads pr.dag :  <%

Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.MapPath("download.mdb")

SQLstmt = "SELECT * FROM download "

Conn.Execute (SQLstmt)

Set rs = conn.Execute(SQLstmt)
  %>
<font size="1">
<%
  'DO WHILE NOT rs.EOF
    Dato = rs("Dato")
    DownName = rs("DownName")
    counter = rs("counter")
    Beskrivelse = rs("Beskrivelse")
    Katdown = rs("KatDown")
    KBMB = rs("KBMB")
    id = rs("id")
    Dage = DateDiff("d",Dato,Now)+1
   
    If counter = 0 Then
    Gen = 0
    Else   
    Gen = Round(counter / dage,2)
    End If
        %><% =gen %>