dato til år 2

i må meget undskylde, men nu har jeg fundet ud af det, det er jeg godnok ked af at jeg skulle til at oprette et spørgsmål som ingen fik lov til at svare på udover mig selv sorry, koden skulle se sådan her ud:

<%

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)


%>