Hvad er der galt her?

alle medlemmerne har ikke samme mærkedag. Men det viser scriptet???
<%end sub
'---------------------------
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
  TotalCleanMonths = 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 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", sBirthdate, 1)) & " den " & Day(sBirthdate) & "-" & Month(sBirthdate) & "-" & Year(sBirthdate) & ".<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
'-------------------
sub EnterMail%>