<code>
<%




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>"%>
&manad=<%=RecSet("Manad")%>&dag=<%=RecSet("Dag")%>');">Händelser
<%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>
</code>


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:

<code>
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
</code>


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.