Funktions problem

Hur ska jag få detta att fungera?

Function convAge(DateOfBirth)

If isDate(DateOfBirth) Then
convAge = DateDiff("yyyy", DateOfBirth, Date) + (DateSerial(Year(Date), Month(DateOfBirth), Day(DateOfBirth)) > Date)
End If

End Function

<% Response.Write "Du är " & convAge(" <% =Server.HTMLEncode(rs("Ar")) %> - <% =Server.HTMLEncode(rs("Manad")) %> - <% =Server.HTMLEncode(rs("Dag")) %> ") & " år gammal." %>

Funktionen funkar bra...det är det andra som strular...
Skriver man exempel så här funkar det bra:
Response.Write "Du är " & convAge("1984-03-28") & " år gammal."

HTMLEncode använder du väl för att bli av med html-koder som folk lägger in i texten? Måste du verkligen HTMLEncoda det som ska in i din funktion? Det värsta som kan hända om någon lägger in html-koder där, är ju bara att din convAge-funktion inte kan beräkna rätt värde.

Jag gissar att ditt problem beror på att HTMLEncode byter ut lite texter till exempelvis & amp ; och liknande, och det förstår inte dina andra funktioner.

[r]Det var visst HTMLEncode på mitt inlägg här också :)

Okej, plockade bort HTMLEncode...
funkar inte iaf...

koden ser ut så här nu:

Response.Write "Du är " & convAge(" <% =rs("Ar") %> - <% =rs("Manad") %> - <% =rs("Dag") %> ") & " år gammal."

Jag tycker du har gjort det onödigt svårt för dig.

dim dteAge, strName
dteAge = rs("birthday")
strName= rs("name")
response.write strName & " är " & DateDiff("y", dteAge, date())/365.2375 & " år <br>"

Vill du tvunget ha det som en funktion finns här ett bra exempel:
http://www.webforum.nu/showthread.php?s=&postid=81313#post81313

mmm, ser juh ut att fungera =)
ska testa det sen...tack!