set connect = server.createobject("adodb.connection")
connect.open "dsn"
sql = "select * from namn where " _
& " datediff('d',now(),cdate(cstr(year(now()) " _
& " & '-' & cstr(month(fodelsedatum)) " _
& " & '-' & cstr(day(fodelsedatum))) < 5 "
set rs = connect.execute(sql)
if rs.eof then
response.write "Ingen hittades <br>"
else
while not rs.eof
response.write rs("namn") & "fyller år den " & day(rs("fodelsedatum")) & "/" & month(rs("fodelsedatum"))
rs.movenext
wend
end if
rs.close
set rs = nothing
connect.close
set connect = nothing
red: tack brimba.
------------------
essentitia preter non sans multiplicandum
[Redigerat av LarsG den 06 nov 2001]
