<%
set conn= Server.CreateObject("ADODB.Connection")
set rs= Server.CreateObject("ADODB.RecordSet")
set rs1= Server.CreateObject("ADODB.RecordSet")
set rs2= Server.CreateObject("ADODB.RecordSet")
conn.Provider="Microsoft.Jet.OLEDB.4.0"
conn.open =server.MapPath("../solo/now2.mdb")
dim cday
cday=WeekdayName(weekday(date))
dim hr
hr=hour(now)
min=Minute(now)
ctime=cStr(hr)+ ":"+ cStr(min)
dim sql
%>
<%
'for i=1 to 5
'c=i
'cs="h"+cStr(c)
'chall=cs
sql="select distinct hall from info"
rs.open sql,conn
dim chall
do until rs.EOF
chall=rs("hall")
%>
<%=chall%>
Coursess
<%
sql1="select distinct course_name from info where hall='"&chall&"'"
rs1.open sql1,conn
do until rs1.EOF
crname=rs1("course_name")
%>
<%=rs1("course_name")%>
Timetable
<% sql2="select distinct day , time from info where hall='"&chall&"' and course_name='"&crname&"'"
rs2.open sql2,conn
do until rs2.EOF
distday=rs2("day")
subday=Mid(distday,1,3)
%>
| <%=subday%>
|
<%=rs2("time")%> |
<%
rs2.MoveNext
loop
rs2.close
%>
<%
rs1.MoveNext
loop
rs1.close
%>
<%
rs.MoveNext
loop
rs.close
%>