<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<%
set conn= Server.CreateObject("ADODB.Connection")
set rs= Server.CreateObject("ADODB.RecordSet")
sConnection = "DRIVER={MySQL ODBC 3.51 Driver}; SERVER=localhost; DATABASE=solo; UID=root;PASSWORD=admin; OPTION=3"
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.QueryString("hal")
uid=request.QueryString("id")
rtype=request.QueryString("rtype")
crcode=request.QueryString("course")
datime=Date&" "&Time
dim sql
ctime1=FormatDateTime(now(),vbshorttime)
ctime1=replace(ctime1,":",".")
sql="select * from info1 where hall='"&myhall&"' and day='"&cday&"' and start_time <='"&ctime1&"' and end_time >='"&ctime1&"'"
Set rs=conn.Execute(sql)
do until rs.EOF
%>