Konverter dato til alder

Hejsa...

Nu har jeg siddet med dette problem længe nok, så jeg vender ansigt mod jer...

Jeg skal lave et chart over nogle brugeres alder.
Jeg har fødselsdato på alle brugerne, jeg mangler bare at få dem konverteret til alder, fx. 14-11-1982 bliver til 19 år.
Så har jeg et tal at arbejde med i stedet, hvilket (for mit vedkommene) er noget næmmere.

Jeg har siddet og fusket lig frem og tilbage med nogle ting men har ikke kunne få det til at virke...
Min kode ser således ud lige nu:
-------------------------------------------------------
<%
function FindAlder(tal1,tal2)
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "Driver=SQL Server; Server=ServerIP; Uid=UserID; Pwd=Password; Database=db"'
    AntalSQL = "SELECT * FROM BrugerListeTemp"
    Set rsAntal = Conn.Execute (AntalSQL)
    Do
    vari = DateDiff("yyyy", Date(), rsAntal("FDag"))
    If vari > tal1 And vari < tal2 Then
    AntalCount = AntalCount + 1
    End If
    Loop While Not rsAntal.eof
FindAlder = AntalCount
end function
ShowChart Array(FindAlder(10,20), FindAlder(20,30), FindAlder(30,40), FindAlder(40,50), FindAlder(50,60), FindAlder(60,70), FindAlder(70,80), FindAlder(80,90), FindAlder(90,100), FindAlder(100,110)), Array("10", "20", "30", "40", "50", "60", "70", "80", "90", "100"), "Alders Chart", "Alder", "Antal"
%>
-------------------------------------------------------
Kan i hjælpe?

/Klyde