<% set conn= Server.CreateObject("ADODB.Connection") set rs= 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) ctime=cDbl(ctime) dim chall chall=request.QueryString("hal") if chall="h1" then myhall="201 - KReSIT" elseif chall="h2" then myhall="A1-A2 classroom" elseif chall="h3" then myhall="Girish Gaitonde Hall" elseif chall="h4" then myhall="Seminar Hall - KReSIT" elseif chall="h5" then myhall="VIDEO LAB - Maths Building" end if dim sql ctime1=FormatDateTime(Time,3) sql="select * from info where hall='"&myhall&"' and day='"&cday&"' and time <=#"&ctime1&"# and time1 >=#"&ctime1&"#" rs.open sql,conn do until rs.EOF %> Course Name:<%=rs("course_name")%>
Faculty Name:<%=rs("prof")%>
<% rs.MoveNext loop rs.close dim t2 t2=time() %>