dato til år script

jeg har fået følgende script af en person herinde:
<%

dato = "200286"

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 = "Han er " & alder & " år, og har fødselsdag den " & dag & ". " & Months(maaned)

Response.write(tekst)


%>

jeg har gjord alt hva jeg kan for at ændre det der står efter tekst =

Jeg vil bare have at den skal skrive eksempelvis 20 år istedet for:
Han er 20 år og har fødselsdag den 20.Februar