<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> Untitled Document <% chk = request.QueryString("vr") 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 info1" 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) flg=2 if flg=1 then response.write("

Lectures completed for the Current Semester.

") else %>
Login here to see webcast
Select Hall:
  UserName:
(email-ID)
    Password:

Timetable for today's courses

<% x=now() current_date_time=year(x) & "-" &month(x) & "-" & day(x) sql1="select * from info1 where day='"+cday+"' and hall='Seminar Hall (KReSIT)' and ldate is NULL or day='"+cday+"' and hall='Seminar Hall (KReSIT)' and ldate<>'"+current_date_time+"' order by start_time" response.Write(sql1) 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 info1 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 if rs1("ldate")=cdate(current_date_time) then rs1.movenext else %> <%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 end if loop rs1.close end if %>
Hall Subject Professor Start Time End Time
<%=rs1("hall")%>  <%=rs1("course_name")%> <%=rs1("prof")%><%=stime%> <%=etime%>