<% strCheckMonth = CLng(Mid(Request.QueryString("info"), 6, 2)) strCheckDay = CLng(Right(Request.QueryString("info"), 2)) %> <% Set RSBirth = Server.CreateObject("ADODB.Recordset") Birth = "SELECT * FROM tblMember WHERE Month(BirthDate) = " & strCheckMonth & " AND Day(BirthDate) = " & strCheckDay & " AND Deleted = False AND Active = True ORDER BY Name" RSBirth.Open Birth, Connect, adOpenStatic, adLockOptimistic %> Medlemmar som fyller år <% =Request.QueryString("info") %>

<% If RSBirth.EOF Then %> <% Else %> <% x = 1 Do Until RSBirth.EOF If x mod 2 = 0 Then bgcolor = "" & strTblBkgndM & "" Else bgcolor = "" & strTblBkgndL & "" End If strAge = CLng(Left(Date, 4)) - Left(RSBirth("BirthDate"), 4) %> <% x = x + 1 RSBirth.MoveNext Loop End If RSBirth.Close Set RSBirth = Nothing %>
Födelsedagar

Inga Födelsedagar hittades...

"><% =RSBirth("Name") %> ( Fyller <% =strAge %> )