<%

Set Rs = Server.CreateObject("ADODB.Recordset")
Rs.ActiveConnection = ConString & ";PWD=LÖSENORD"
Rs.Source = "SELECT * From medlem WHERE Day(fodd) = Day(Now) AND Month(fodd) = Month(Now) ORDER BY besok DESC"
Rs.Open()

If Rs.EOF then

Response.Write("Idag firas det inga födelsedagar.")

Else

Dim bolBirthday
bolBirthday = False
Do until Rs.EOF
bolBirtday = True
Response.Write "" & Rs("anvandarnamn") & " " & Rs("requesting") & " - " & Rs("stad") & " fyller " & GetAge(Rs("fodd")) & " år
"
Rs.MoveNext
Loop

Rs.Close()

End If

%>