% 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") %>
Födelsedagar |
---|
Inga Födelsedagar hittades... |
"><% =RSBirth("Name") %> ( Fyller <% =strAge %> ) |