<%
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,4)
dim sql
sql="select * from info where time <="&ctime&" and time1 >="&ctime&" 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")
end if
conn.close
%>
<%Response.AddHeader "Refresh", "20"
%> |
