kreo ke si entiendo...
bueno akis esta el codigo de la funcion...
---------------------
Function Age (varBirthDate)
Dim varAge
If IsNull(varBirthdate) then Age = 0: Exit Function
varAge = DateDiff("yyyy", varBirthDate, Now)
If Date < DateSerial(Year(Now), Month(varBirthDate), _
Day(varBirthDate)) Then
varAge = varAge - 1
End If
Age = CInt(varAge)
End Function
--------------------------------
Ese codigo lo vas a colocar al principio de tu pagina... luego haces tu pagina tal y como la kieras y con el recorset llamas a los valores de los campos y los guardas en una variable
fecha_nac = rs("campo_dia") & "/" & rs("campo_mes") & "/" rs(campo_anio")
Response.Write Age(fecha_nac)
Es una forme ke se me ocurre, pero yo la uso guardando la fecha completa de nacimiento en un solo campo y
Response.Write Age(rs("fecha_nac"))
el rs es el objeto RecordSet
<div align=right><embed src="http://www.jesusdaniel.venezuela.com/jd.swf" height=25 width=200 wmode="transparent"></embed><br>
Usuario # 3359 en los foros</div>