Omskriv dato til år inklusiv år 2000 skiftet

Jeg er ved at lave en hjemmeside for en kammerat og har brug for et måde at omskrive følgende tal række til år

200286 så der på siten kommer til at stå alder 21 da han er født 20 februar 1986, mit problem ligger ikke i dette i sig selv, men vis personen er født 200203 altså 20 februar 2003 så bliver fjolset tusse gammel, jeg har følgende kodem lige pt, som jeg håber i kan omskrive så den understøtter dette:

<%
dato = bruger.Fields.Item("fosdag").Value

aar = CInt("19" & Right(dato,2))
maaned = CInt(Mid(dato,3,2))
dag = CInt(Left(dato,2))
alder = Year(now()) - aar
if (Month(now()) < maaned) or (Month(now()) = maaned and Day(now()) < dag) then
alder = alder - 1
end if
Dim Months(12)
Months(1) = "Januar"
Months(2) = "Februar"
Months(3) = "Marts"
Months(4) = "April"
Months(5) = "Maj"
Months(6) = "Juni"
Months(7) = "Juli"
Months(8) = "August"
Months(9) = "September"
Months(10) = "Oktober"
Months(11) = "November"
Months(12) = "December"

tekst = " " & alder & " år "

Response.write(tekst)
%>