<% Dim cdate, D1 Set adoCon = Server.CreateObject("ADODB.Connection") adoCon.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("alumnispk.mdb") Set rsAlumniData = Server.CreateObject("ADODB.Recordset") strSQL = "SELECT dob, name, regno FROM alumnigiacr" rsAlumniData.Open strSQL, adoCon,3,3 ' Finding current Date and Month cur_datemon = Split(Date(),"/") cur_mon = cur_datemon(0) cur_date = cur_datemon(1) cur_mon = cint(cur_mon) cur_date = cint(cur_date) 'Displaying Current Date and Month...... CurrDate = Now() TDATE = Day(CurrDate) CurrMonthID = Month(CurrDate) TMONTH = MonthName(CurrMonthID) response.write("" &"" &"◀◀ " &TDATE &"-") response.write(TMONTH &" ▶▶" &"
" &"") Response.Write("") Response.Write("Today's Birthday wishes to....
") Response.Write("") Response.Write(" ") Do While Not rsAlumniData.EOF 'Finding Date and Month from database dbDate = rsAlumniData("dob") temp = Split(dbDate,"/") dbDate = temp(0) dbMon = temp(1) dbDate = cint(dbDate) dbMon = cint(dbMon) IF cur_mon = dbMon AND cur_date = dbDate THEN Response.Write(rsAlumniData("name")) Response.Write(".. ") END IF rsAlumniData.MoveNext Loop Response.Write("" &" ") rsAlumniData.Close Set rsGuestbook = Nothing Set adoCon = Nothing %>