<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> Untitled Document <% Dim sConnection, objConn , rs sConnection = "DRIVER={MySQL ODBC 3.51 Driver}; SERVER=localhost; DATABASE=solo; UID=root;PASSWORD=admin; OPTION=3" Set objConn = Server.CreateObject("ADODB.Connection") Set objConn1 = Server.CreateObject("ADODB.Connection") Set rs = Server.CreateObject("ADODB.Recordset") Set rs1 = Server.CreateObject("ADODB.Recordset") objConn.open(sConnection) sql="select distinct hall from info2" set rs=objConn.Execute(sql) cday=WeekdayName(weekday(date)) dim hr hr=hour(now) min=Minute(now) ctime=cStr(hr)+ "."+ cStr(min) objConn1.open(sConnection) %> <% if request.form("selhall")="" then%>
Select Hall to see webcast
Llive transmission without "free/paid" registration is available for a limited time period.
Select Hall:
Timetable for today's courses

<% sql1="select * from info2 where day='"+cday+"' and hall='Seminar Hall (KReSIT)' order by start_time" set rs1= objConn.Execute(sql1) do until rs1.EOF %> <%stime=rs1("start_time") etime=rs1("end_time") stime=replace(stime,".",":") etime=replace(etime,".",":") stime1=split(stime,":") etime1=split(etime,":") if stime1(1)="3" then stime=CStr(stime) & "0" end if if etime1(1)="3" then etime=CStr(etime) & "0" end if %> <% rs1.MoveNext loop rs1.close %>
Hall Subject Professor Start Time End Time
<%=rs1("hall")%>  <%=rs1("course_name")%> <%=rs1("prof")%><%=stime%> <%=etime%>
<% sql1="select * from info2 where day='"+cday+"' and hall='GG' or day='"+cday+"' and hall='A1A2' or day='"+cday+"' and hall='VideoLab' order by hall, start_time" set rs1= objConn.Execute(sql1) do until rs1.EOF %> <%stime=rs1("start_time") etime=rs1("end_time") 'if stime < 8 or stime > 12 then 'stime = stime & " PM" 'else 'stime = stime & " AM" 'end if 'if etime < 8 or etime > 12 then 'etime = etime & " PM" 'else 'etime = etime & " AM" 'end if 'stime=replace(stime,".",":") 'etime=replace(etime,".",":") stime=replace(stime,".",":") etime=replace(etime,".",":") stime1=split(stime,":") etime1=split(etime,":") if stime1(1)="3" then stime=CStr(stime) & "0" end if if etime1(1)="3" then etime=CStr(etime) & "0" end if %> <% rs1.MoveNext loop rs1.close %>
Hall Subject Professor Start Time End Time
<%=rs1("hall")%>  <%=rs1("course_name")%> <%=rs1("prof")%><%=stime%> <%=etime%>
<%end if%>
<% dim gotrecord gotrecord="No" if request.querystring("selected")="yes" then set conn= Server.CreateObject("ADODB.Connection") conn.open (sConnection) dim cday cday=WeekdayName(weekday(date)) ctime=Time() ctime1=FormatDateTime(ctime,4) 'ctime=Left(ctime,Len(ctime)-6) ctime1=replace(ctime1,":",".") dim chall myhall=request.Form("selhall") dim sql 'ctime1=FormatDateTime(Time,3) sql="select * from info2 where hall='"&myhall&"' and day='"&cday&"'" ' and start_time <='"&ctime1&"' and end_time >='"&ctime1&"'" Set rs=conn.Execute(sql) Do until rs.EOF gotrecord="yes" 'response.Write("No lectures at this time") 'else %>
Live Lecture from <%=myhall%>
<% 'end if rs.movenext loop if gotrecord="No" then response.Write("

No lectures are webcasted at this time

") end if rs.close end if%>