åldrande problem :)

jo.. det är så här att jag har en loop... o i den loopen ska den räkna ut åldern med hjälp av några siffror... så här ser min kod ut

dag = rs("Alder_dag")
manad = rs("Alder_manad")
ar = rs("Alder_ar")

Function DiffADate(theDate)
DiffADate = round(DateDiff("d", theDate,now())/365.25)
End Function

END IF

%>

<%
Do Until rs.EOF
%>

<%
if not isnull(ar) and not isnull(manad) and not isnull(dag) then
response.write DiffADate(DateSerial(ar,manad,dag))
else
response.write " "
end if

%>

<%
rs.MoveNext
Loop
%>

nu är det jju så här att om det finns mer än 1 i listan så får jag ju inte fram någor eftersom den inte fattar vilken rs den ska ta :)

Function DiffADate(theDate)
DiffADate = round(DateDiff("d", theDate,now())/365.25)
End Function

END IF

%>

<%
Do Until rs.EOF
dag = rs("Alder_dag")
manad = rs("Alder_manad")
ar = rs("Alder_ar")

if not isnull(ar) and not isnull(manad) and not isnull(dag) then
response.write DiffADate(DateSerial(ar,manad,dag))
else
response.write " "
end if
rs.MoveNext
Loop
%>

------------------
essentitia preter non sans multiplicandum

Function DiffADate(theDate)
DiffADate = round(DateDiff("d", theDate,now())/365.25)
End Function

END IF

%>

<%
Do Until rs.EOF
%>

<%
dag = rs("Alder_dag")
manad = rs("Alder_manad")
ar = rs("Alder_ar")

if not isnull(ar) and not isnull(manad) and not isnull(dag) then
response.write DiffADate(DateSerial(ar,manad,dag))
else
response.write "&nbsp;"
end if

%>

<%
rs.MoveNext
Loop
%>

------------------
/Erik
www.juhlin.nu /sk8files/ /mp3d/

hehe... jag har hjärnsläpp *helg*