|
<%
set conn= Server.CreateObject("ADODB.Connection")
set rs= Server.CreateObject("ADODB.RecordSet")
set rs1= Server.CreateObject("ADODB.RecordSet")
set rs2= Server.CreateObject("ADODB.RecordSet")
set rs3= 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
dim ctr
ctr=0
do until rs.EOF
ctr=ctr+1
urlnm="dynamicplayer.asp?hal=h"&ctr
chall=rs("hall")
%>
<%=chall%>
Courses
<%
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.MoveNext
loop
rs2.close
%>
<%
sql3="select distinct day , time from info where hall='"&chall&"' and course_name='"&crname&"'"
rs3.open sql3,conn
do until rs3.EOF
ltime = rs3("time")
ltime1 = Len(ltime)
if ltime1 =2 then
ltime = ltime & ":00"
end if
if ltime1 =3 then
ltime = ltime & "0"
end if
ltime = Replace(ltime , ".",":")
%>
<%=ltime%> |
<%
rs3.MoveNext
loop
rs3.close
%>
<%
rs1.MoveNext
loop
rs1.close
%>
<%
rs.MoveNext
loop
rs.close
%> |