Stat sidste 12 mdr.

Hej jeg har et problemt med at finde de sidste 12 mdr. hvis de ligger fordelt over et år. lige som nu.

Dette er mit script:
    If Request.Querystring("opt") = "mdr" Then   
        stat = stat & "Månedsstatistik viser optælling af unikke besøg for hver måned samlet.<br />"_
        & "Der gemmes for de sidste løbende 12 måneder.<br /><br />"_
        & "<table border='0' width='40%' id='indhold'>"
           
        dato = Date
        for i = 1 to 12
            sql = "Select count(u_id) as antal from stat where datepart('m',dato) = " & datepart("m",dato) & " AND datepart('yyyy', dato) = " & year(date) & " AND u_id <> 0 AND reset = 0"
            set stat_DB = cn.execute(sql)
            While Not stat_DB.EOF
                stat = stat & "<tr><td width='110'>" & MonthName(datepart("m", dato, 2, 2),True) & " - " & datepart("yyyy", dato, 2, 2) & ": </td><td id=stat>" & stat_DB("antal") & "</td></tr>"
                dato = DateAdd("m",-1,dato)
            stat_DB.movenext
            Wend
        next
        stat = stat & "</table>"
    End If

Hvad gør jeg for at det virker?