dagen i dato??

Jeg vil gerne have hjælp til at sætte dagen ind i dette script således at outputtet bliver:
malte har 4 års mærkedag Onsdag den 13-11-2002
Istedet for: malte har fødselsdag d. 13/11

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 mærkedag den " & Left(sBirthdate, 2) & "/" & Mid(sBirthdate, 4, 2) & ".<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