skriva ut alla som har födelsedag

<%

 
Dim SQL
SQL = "SELECT * FROM kalender WHERE Manad = "& Month(dbDatum)&"  AND Ar = "& Year(dbDatum) &" ORDER BY Dag ASC"

Recset.Open SQL, Connect, 1, 2

%>
  <%
 
Dim iAntalInbokningar
dim datumet
iAntalInbokningar = 0

Dim iRaderLoop, iKolumnerLoop
 For iRaderLoop = 1 to iRader
   Response.Write "<tr>"
   For iKolumnerLoop = 1 to iKolumner
     If aDagar((iRaderLoop-1)*7 + iKolumnerLoop) > 0 Then
    

Dim bgcolor3
If aDagar((iRaderLoop-1)*7 + iKolumnerLoop) = Day(Date()) Then 

bgcolor3 = "#FFE779"

Else 

bgcolor3 = "#FFF7CF"

End If

       
       Response.Write "<td style='BORDER-BOTTOM: #FFFFFF 2px solid; BORDER-TOP: #000000 0px solid; BORDER-RIGHT: #FFFFFF 2px SOLID; BORDER-LEFT: #000000 0px solid' valign=top bgcolor="&bgcolor3&" align=right width=""14%"" & height=" & FormatPercent(1/iRader,0) & ">"
       Response.Write "<table cellspacing=0 cellpadding=0 border=0 " & "width=""100%"">"

       Response.Write "<tr><td align=right valign=top><b>"
       Response.Write "<b>"
       Response.Write aDagar((iRaderLoop-1)*7 + iKolumnerLoop)
       Response.Write "</b>"
       Response.Write "</b></td></tr>"

   If Not Recset.EOF Then
     If Recset("Dag") = aDagar((iRaderLoop-1)*7 + iKolumnerLoop) Then

       Response.Write "<tr  height=""100%""><td valign=top align=center>"
       Response.Write "<font size=1 face=verdana>"%>
              <a href="java script:show('show.asp?ar=<%=RecSet("Ar")%>&manad=<%=RecSet("Manad")%>&dag=<%=RecSet("Dag")%>');">Händelser</a>
       <%iAntalInbokningar  = iAntalInbokningar + 1

       Response.Write "</font>"        
       Response.Write "</td></tr>"

     End If
    End If

    Response.Write "</table>"
    Response.Write "</td>"
    Else
        Response.Write "<td  bgcolor=#ffffff> </td>"
    End If
  Next

  Response.Write "</tr>"
Next

%>

</table>

Denna kod är en del av en kalender och jag vi nu skriva ut de som har födesedag under det datumet.
Så här hämtar jag ut de som har födesledag:

manad = DatePart("m", date())
dag = DatePart("d", date())
					
SQL = "SELECT * from members WHERE manad = '"&right("0" & manad,2)&"' AND dag = '"&right("0" & dag,2)&"' order by poang desc"
RecSet.Open SQL, Connect, adOpenStatic, adLockOptimistic

Hur ska jag nu göra för att skriva ut de som har födelsedag under det datumet i första koden?

Om det är en som har födelsedag på tex dag 3 så ska det vara en länk med där det står födelsedag och om det är flera som fyller år på dag 3 så ska det vara två länkar med födesledag.

Hoppas någon kan göra detta.