<%@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 <% if chk="paidp" then %> <% end if%>
Select Hall:
  UserName:
(email-ID)
Registered Participants: Paid     Free<% else %> Paid      Free  Password:

Timetable for today's courses

<% sql1="select * from info1 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 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 %> <%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 end if %>
Hall Subject Professor Start Time End Time
<%=rs1("hall")%>  <%=rs1("course_name")%> <%=rs1("prof")%><%=stime%> <%=etime%>