Katastrofe !!!!!

Der er sket en katastrofe. Jeg har lige udsendt 600 emails med denne fejl i:
helle l m har 6 års mærkedag søndag den 17-11-2002.
Søren har 1 års mærkedag søndag den 17-11-2002.
Johnny B.J. har 1 års mærkedag søndag den 17-11-2002.
Lone har 4 års mærkedag søndag den 17-11-2002.
27292222 har 5 års mærkedag søndag den 17-11-2002.
Brian har 9 års mærkedag søndag den 17-11-2002.

DE HAR SELVFØLGELIG ikke mærkedag samme dag allesammen...
Men forskellige dage i løbet af ugen HJÆLP

'---------------------------
Function ListBirthdays
'her har jeg ikke rettet ud over at det er blevet en funktion der returnerer fødselsdage istedet for at skrive dem direkte
'I=0 to 6 løkken er overflødig idet man godt kan lave en sql sætningen der kan gøre det i et hug. Grunden til at jeg ikke har
'ændret er at tidsudtrukket er lidt forskellig fra sql server til sql server.
'Tiden er sikkert ikke kritisk lang selv om det belaster serveren en del mere i nuværende form
Dim St
  St=""
  OpenDB sConnUsers
  sSQL = "SELECT * FROM users where Public = Yes order by BirthDate DESC"
  rs.Open sSQL,,,adCmdTable
   
  TotalCleanYear = 0
  TotalCleanMounths = 0
  TotalCleanDays = 0
   
  OpenDB sConnUsers
  set RS = Server.CreateObject("ADODB.Recordset")

  OneMerkeDag = false
  for I = 0 to 6
    TheDate = Date + I
    TheDay = DatePart("d", TheDate)
    TheMonth = DatePart("m", TheDate)
    sSQL = "SELECT * FROM users WHERE Public=Yes and day(BirthDate)=" & TheDay & " and month(BirthDate)=" & TheMonth
    rs.Open sSQL,sConnUsers,,&H0002

    do while not rs.EOF
      OneMerkeDag = true
      sBirthdate = rs("Birthdate")
      'years = Datediff ("yyyy",sBirthdate,TheDate)
      'dinStr = years & " års mærkedag."
      St=St& "<b><a href=""http://www.counselor.dk/dev/myDeV/users.asp?username=" & rs("UserName") & """>"
      St=St& rs("UserName") & " </b><a></a>har " & Int(Year(Date))-Int(Year(sBirthdate)) & " års mærkedag " & WeekdayName(DatePart("W", date, 1)) & " den " & Day(Date) & "-" & Month(Date) & "-" & Year(Date) & ".<br>"

      rs.movenext
    loop
    rs.Close
  next
  if OneMerkeDag = false then
    St=St& "<i>Der er ingen der har mærkedag i den kommende uge.</i><br>"
  end if
  ListBirthdays=St
End Function
'-------------------