<%
set conn= Server.CreateObject("ADODB.Connection")
set rs= Server.CreateObject("ADODB.RecordSet")
set rs1= Server.CreateObject("ADODB.RecordSet")
conn.Provider="Microsoft.Jet.OLEDB.4.0"
conn.open =server.MapPath("../solo/now2.mdb")
dim cday
cday=WeekdayName(weekday(date))
ctime1=FormatDateTime(Time,3)
ctime1=13.05
dim sql
sql="select * from info where time <=#"&ctime1&"# and time1 >=#"&ctime1&"# and day='"&cday&"'"
rs.open sql,conn
rs1.open sql,conn
do until rs1.EOF
hal=rs1("Hall")
rs1.MoveNext
loop
rs1.close()
if hal<>"" then
%>
| Hall |
Subject |
Professor |
<%do until rs.EOF
%>
| <%=rs("Hall")%> |
<%=rs("course_name")%> |
<%=rs("prof")%> |
<%
rs.MoveNext
loop
rs.close
else
response.write("No Lectures at this time")
'response.write("No Lectures From 08/09/2008 to 14/09/2009 due to Mid Semester Examination.(EN705 An Introduction to Energy System Engineering:Lectures will be held as per Schedule.)")'
response.write("End Of The Semester.")
end if
conn.close
%>
<%Response.AddHeader "Refresh", "20"
%> |
