Hi,

I want to extract info from a Db on certain dates. (Birthdays etc..)
How do I go about this?



Christian


Help is only a click away...
~~~~~~~~~~~~~~~~~
DWMX2004 | ASP | Access

In which way do you want to display it? Do you want to display the DOB date if it's today?

Just what I had in mind <img src=../images/dmxzone/forum/icon_smile.gif border=0 align=middle>

Help is only a click away...
~~~~~~~~~~~~~~~~~
DWMX2004 | ASP | Access

Try this code

&lt;%
Dim strBirthNow
strDateNow = Now()
strBirthdayBoy= rsYourRecordset.Fields.Item("UserNameField".Value
strBirthNow = rsYourRecordset.Fields.Item("BirthdayDateField".Value

IF Month(strDateNow) = Month(strBirthNow) and Day(strDateNow) = Day(strBirthNow)

THEN %&gt;

HAPPY BIRTHDAY !!! &lt;% = strBirthdayBoy %&gt;

&lt;% else %&gt;

It's nobody birthday today...

&lt;% End If%&gt;

You may also put this in a loop

Edited by - tothprod on 31 Jan 2006 13:42:58

Hi Tom,

Your script worked fine thank you, just one thing:

I only get up "It's nobody's birthday today...", but that might have to do with
the way we write dates in Europe (DD/MM/YYYY).

I tried to write the dates the other way (MM/DD/YYYY), but Access automatically
changes the values to European style. Maybe the script can't find a match because of this?

Any ideas?



Help is only a click away...
~~~~~~~~~~~~~~~~~
DWMX2004 | ASP | Access

hmm, you only check the day and the month, so the order doesn't mather.
Do you use any LCID on your page? And is the your date field a date type?

Hm, I'm not sure about the LCID. If I am using it, it's not on purpose.
The date field is a date type.


Help is only a click away...
~~~~~~~~~~~~~~~~~
DWMX2004 | ASP | Access