WHATS ON ?
<% set conn= Server.CreateObject("ADODB.Connection") set rs= Server.CreateObject("ADODB.RecordSet") conn.Provider="Microsoft.Jet.OLEDB.4.0" conn.open =server.MapPath("../solo2/now2.mdb") dim cday cday=WeekdayName(weekday(date)) dim hr hr=hour(now) min=Minute(now) ctime=cStr(hr)+ ":"+ cStr(min) dim sql sql="select * from info where time <='"&ctime&"' and time1 >'"&ctime&"' and day='"&cday&"'" rs.open sql,conn %> <%do until rs.EOF %> <% rs.MoveNext loop rs.close %>
Hall Subject Prof. Name
<%=rs("Hall")%> <%=rs("course_name")%> <%=rs("prof")%>
<%Response.AddHeader "Refresh", "10" %>
COURSE DETAILS
Course Name  
Course Code  
Faculty Name  
ANNOUNCEMENT
<% set conn= Server.CreateObject("ADODB.Connection") set rs= Server.CreateObject("ADODB.RecordSet") conn.Provider="Microsoft.Jet.OLEDB.4.0" conn.open =server.MapPath("\solo2\DB\announce.mdb") sql1="select * from menu" rs.open sql1,conn do until rs.EOF response.Write(rs("News")) response.Write(rs("Submittedon")+"
") rs.MoveNext loop rs.close %>