<%
dataPath=Application("dataPath")
if dataPath="" then
dataPath= mid(Request.ServerVariables("PATH_TRANSLATED"),1,len(Request.ServerVariables("PATH_TRANSLATED"))-15) & "fpdb\Reservation.mdb"
Application("dataPath")=dataPath
end if
Set db = Server.CreateObject("ADODB.Connection")
db.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & dataPath & ";Persist Security Info=False"
set sRS =Server.CreateObject("ADODB.Recordset")
sRS.ActiveConnection=db
sRS.CursorType=3
sRS.LockType=3
sRS.open "SELECT TimeInterval.IntervalID, TimeInterval.TimeCode " & _
"FROM TimeInterval ORDER BY TimeInterval.IntervalID;"
FromDate=Date
Function WhatDay(DayOfWeek)
if DayOfWeek=1 then
WhatDay="Sun"
elseif DayOfWeek=2 then
WhatDay="Mon"
elseif DayOfWeek=3 then
WhatDay="Tue"
elseif DayOfWeek=4 then
WhatDay="Wed"
elseif DayOfWeek=5 then
WhatDay="Thur"
elseif DayOfWeek=6 then
WhatDay="Fri"
elseif DayOfWeek=7 then
WhatDay="Sat"
end if
End Function
set holidayRS =Server.CreateObject("ADODB.Recordset")
holidayRS.ActiveConnection=db
holidayRS.CursorType=3
holidayRS.LockType=3
holidayRS.open "SELECT Holiday.* FROM Holiday;"
Function IsHoliday(strDate)
if holidayRS.BOF=false then holidayRS.MoveFirst
holidayRS.find "Holiday=#" & strDate & "#"
if holidayRS.EOF=false then
IsHoliday=true
else
IsHoliday=false
holidayRS.MovePrevious
end if
End Function
sql="SELECT Appointment.AppID, Appointment.Date, Appointment.IntervalID " & _
"FROM Appointment " & _
"WHERE (((Appointment.Date)>=#" & Date & "#)) " & _
"ORDER BY Appointment.AppID;"
set reservedRS =Server.CreateObject("ADODB.Recordset")
reservedRS.ActiveConnection=db
reservedRS.CursorType=3
reservedRS.LockType=3
reservedRS.open "SELECT Appointment.* FROM Appointment;"
Function IsReserved(strDate,IntervalID)
if reservedRS.BOF=false then reservedRS.MoveFirst
reservedRS.find "[Date]=#" & strDate & "#"
if reservedRS.EOF=false then
reservedRS.find "IntervalID=" & IntervalID
if reservedRS.EOF=false then
IsReserved=true
else
IsReserved=false
reservedRS.MovePrevious
end if
else
IsReserved=false
reservedRS.MovePrevious
end if
End Function
%>
Florida International University
Please enter your confirmation
ID
Back to
Front Desk
