<% Dim strToddate, strHisMonth, rsHistory,rsHistoryHisRows, HisRows, Hisindex, ConnectionString, conn, rs, bdate, bmonth ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Password="""";User ID=Admin;Data Source=" & server.mappath("Bday.mdb") Set conn=Server.CreateObject("ADODB.Connection") conn.open connectionstring set rs=conn.execute("Select * from members") strToddate = Day(Now()) strHisMonth = Month(Now()) set rsHistory = Server.CreateObject("ADODB.Recordset") rsHistory.ActiveConnection = ConnectionString %> Birthday

Today's Birthdays

<% do until rs.eof bdate=day(rs("dob")) bmonth=month(rs("dob")) if bdate=strtoddate and bmonth=strhismonth then %>

<% dim name name=rs("fname") response.Write(name) %>
YOUR VERSE-<%=rs("verses")%>

<% end if rs.movenext loop %>