Jeg har engang haft lavet et script som finder næste fødselsdag og det er sådan her:
dag = Day(Date)
maanede = Month(Date)
'Prøv føste om en/flere har fødselsdag i denne månede
SQL = "SELECT TOP 1 * FROM personer WHERE Int(day(born)) >= " & dag & " AND Int(month(born)) = " & maanede & " ORDER BY Int(month(born)) ASC, Int(day(born)) ASC"
set rs = Conn.Execute(SQL)
'Tjek om der var nogle som har fødselsdag i denne månede
if rs.EOF then
'Det var der ikke.
'Tjek om der er nogle som har fødselsdag i næste månede og dag >= 1 og ikke dags dato
rs.Close
SQL = "SELECT TOP 1 * FROM personer WHERE Int(day(born)) >= 1 AND Int(month(born)) > " & maanede & " ORDER BY Int(month(born)) ASC, Int(day(born)) ASC"
set rs = Conn.Execute(SQL)
end if
if rs.EOF then
'Tjek om nogle har fødselsdag til næste år.
rs.Close
SQL = "SELECT TOP 1 * FROM personer WHERE Int(day(born)) >= 1 AND Int(month(born)) >= 1 ORDER BY Int(month(born)) ASC, Int(day(born)) ASC"
set rs = Conn.Execute(SQL)
end if
rs.Close
rs.Open SQL, Conn, 1
Response.Write "<table align=""center"">"
if rs.EOF then
Response.Write "<tr><td>Inden fødslesdage fundet!!</td></tr>"
elseif rs.RecordCount = 1 then
Response.Write "<tr><td>Den næste der har fødelsdag er:</td></tr>"
else
Response.Write "<tr><td>De næste der har fødelsdag er:</td></tr>"
end if
Response.Write "</table><table align=""center"">"
do while not rs.EOF
Response.Write "<tr>"
Response.Write "<td>" & rs("navn") & "</td>"
Response.Write "<td>Født " & rs("born") & "</td>"
Response.Write "</tr>"
rs.MoveNext
loop
Response.Write "</table>"
