Her er et eksempel i asp:
foedselsdag.asp & databasen skal hedde foedselsdag med en tabel foedselsdag med dato/tid
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "
http://www.w3.org/TR/html4/loose.dtd"><html>
<head>
<title>Untitled Document</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>
<body>
<%
'aaben forbindelse
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.MapPath("foedselsdag.mdb")
' opret recordset med data, foedselsdag er et felt i tabellen foesda af datatypen datetime
set rs = conn.execute ("select foedselsdag from foedselsdag")
' skriv fødselsdatoen
response.write "Personen er født den " & rs("foedselsdag") & "<br>"
' hvor mange aar er det siden ??
alder = year(now()) - year(rs("foedselsdag"))
' læg antal år til fødselsdato
ty = dateadd("yyyy",alder,rs("foedselsdag") )
' lukker forbindelse
Conn.close
set Conn = nothing
' hvis datoen beregnet herover er > nu har personen ikke haft fødselsdag endnu i år.
if ty > now() then
' vi trækker derfor 1 år fra.
alder = alder - 1
end if
' udskriv alder.
response.write "Personensalder er " & alder & " år.<br>"
%>
</body>
</html>
:-) karsten_larsen