% Set Conn = Server.CreateObject("ADODB.Connection") 'Conn.Open ("Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("Deploma.mdb")) Conn.Open ("Provider=Microsoft.ACE.OLEDB.12.0; Data Source=" & Server.MapPath("deploma.mdb")) Set term1RS = Server.CreateObject("ADODB.Recordset") term1sql="select * from reg_dates where whichterm=3 and Active_flag='yes'" term1RS.Open term1sql, Conn, 3,1 'startdate=CDate( term1RS("Month1")&" "& term1RS("day1") &","& term1RS("year1") ) 'enddate=CDate( term1RS("Month2")&" "& term1RS("day2") &","& term1RS("year2") ) if ( term1RS("Start_date") <= now() and now() <= term1RS("End_date"))then%> <%response.redirect "proj_reg.asp"%>