Problemer med fødselsdags script

Hej

Allesammen, jeg sidder og har et problem med følgende script..
det registerede godt nok, den første fødselsdag da scriptet kom online, men af en eller anden sjov grund... henter den kun den dato :-S selv når vi har overskredet denne dato...

men scriptet lyder sådan
sub birthdayreminder
dim strToday, strTomorrow, strDayAfterTomorrow
if len(day(now)) < 2 then strToday = "0" &day(now)& "-" else strToday = day(now)& "-" end if
if len(month(now)) < 2 then strToday = strToday& "0" &month(now) else strToday = strToday&month(now) end if
   
if isdate((day(now) + 1)& "-" &month(now)& "-" &year(now)) then
if len(day(now) + 1) < 2 then strTomorrow = "0" &(day(now) + 1)& "-" else strTomorrow = (day(now) + 1)& "-" end if
if len(month(now)) < 2 then strTomorrow = strTomorrow& "0" &month(now) else strTomorrow = strTomorrow&month(now) end if
else
if len(month(now) + 1) < 2 then strTomorrow = "01-0" &(month(now) + 1) else strTomorrow = "01-" &(month(now) + 1) end if
end if
   
if isdate(day(now) + 2& "-" &month(now)& "-" &year(now)) then
if len(day(now) + 2) < 2 then strDayAfterTomorrow = "0" &(day(now) + 2)& "-" else strDayAfterTomorrow = (day(now) + 2)& "-" end if

if len(month(now)) < 2 then strDayAfterTomorrow = strDayAfterTomorrow& "0" &month(now) else strDayAfterTomorrow = strDayAfterTomorrow&month(now) end if
else
if len(month(now) + 2) < 2 then strDayAfterTomorrow = "01-0" &(month(now) + 1) else strDayAfterTomorrow = "01-" &(month(now) + 1) end if
end if
   
dim dbUserBDnext, dbUserBDtoday, dbUserBDtomorrow, dbUserBDdayaftertomorrow
if len(month(now)) < 2 then
set dbUserBDnext = conn.execute("select * from bruger where bday like '%-0" &month(now)& "-%' and lvl<5 order by bday")
else
set dbUserBDnext = conn.execute("select * from bruger where bday like '%-" &month(now)& "-%' and lvl<5 order by bday")
end if
set dbUserBDtoday = conn.execute("select * from bruger where bday like '" &strToday& "%' and lvl<5 order by bday limit 5")
set dbUserBDtomorrow = conn.execute("select * from bruger where bday like '" &strTomorrow& "%' and lvl<5 order by bday limit 5")
set dbUserBDdayaftertomorrow = conn.execute("select * from bruger where bday like '" &strDayAfterTomorrow& "%' and lvl<5 order by bday limit 5")
   
response.write "<strong>F&oslash;dselsdags p&aring;minder</strong>"
dim arrDateBD
   
if dbUserBDtoday.eof and dbUserBDtomorrow.eof and dbUserBDdayaftertomorrow.eof then
response.write "<br />"
response.write "Ingen f&oslash;dselsdage,<br />de n&aelig;ste 3 dage"
response.write "<br /><br />"
response.write "<strong>N&aelig;ste f&oslash;dselsdag:</strong><br />"
if dbUserBDnext.bof or dbUserBDnext.eof then
response.write "Ikke flere f&oslash;dselsdage<br />i denne m&aring;ned"
else
arrDateBD = split(dbUserBDnext("bday"), "-")
if arrDateBD(1) < month(now) then
response.write formatdatetime(arrDateBD(0)& "-" &arrDateBD(1)& "-" &year(now), vblongdate)& "<br />"
response.write dbUserBDnext("char1")
response.write " (" &((year(now) + 1) - arrDateBD(2))& ")"
else
response.write formatdatetime(arrDateBD(0)& "-" &arrDateBD(1)& "-" &year(now), vblongdate)& "<br />"
response.write dbUserBDnext("char1")
response.write " (" &(year(now) - arrDateBD(2))& ")"
end if
end if
else
response.write "<br /><br />"
response.write "<table width='100%' border='0' cellspacing='0' cellpadding='0'>"
if not dbUserBDtoday.bof and not dbUserBDtoday.eof then
response.write "<tr>"
response.write "<td width='100%'>"
response.write "<strong>" &formatdatetime(strToday, vblongdate)& "</strong><br /><small>(i dag)</small>"
do until dbUserBDtoday.eof
response.write "<br />"
response.write dbUserBDtoday("char1")
arrDateBD = split(dbUserBDtoday("bday"), "-")
response.write " (" &(year(now) - arrDateBD(2))& ")"
                   
dbUserBDtoday.movenext
loop
response.write "</td>"
response.write "</tr>"
response.write "<tr><td height='5'></td></tr>"
end if
       
if not dbUserBDtomorrow.bof and not dbUserBDtomorrow.eof then
response.write "<tr>"
response.write "<td width='100%'>"
response.write "<strong>" &formatdatetime(strTomorrow, vblongdate)& "</strong><br /><small>(i morgen)</small>"
do until dbUserBDtomorrow.eof
response.write "<br />"
response.write dbUserBDtomorrow("char1")
arrDateBD = split(dbUserBDtomorrow("bday"), "-")
response.write " (" &(year(now) - arrDateBD(2))& ")"
                   
dbUserBDtomorrow.movenext
loop
response.write "</td>"
response.write "</tr>"
response.write "<tr><td height='5'></td></tr>"
end if
       
if not dbUserBDdayaftertomorrow.bof and not dbUserBDdayaftertomorrow.eof then
response.write "<tr>"
response.write "<td width='100%'>"
response.write "<strong>" &formatdatetime(strDayAfterTomorrow, vblongdate)& "</strong><br /><small>(i overmorgen)</small>"
do until dbUserBDdayaftertomorrow.eof
response.write "<br />"
response.write dbUserBDdayaftertomorrow("char1")
arrDateBD = split(dbUserBDdayaftertomorrow("bday"), "-")
response.write " (" &(year(now) - arrDateBD(2))& ")"
                   
                    dbUserBDdayaftertomorrow.movenext
loop
response.write "</td>"
response.write "</tr>"
end if
response.write "</table>"
end if
end sub

håber der er nogen herinde, som kan finde fejl'en for jeg er igang med at opgive :-S