<% If Request.QueryString("date") = "" Then Response.Redirect("/ca/default.asp") End If %>

UNITS: Assigned: <%= intAssigned %> | Used: <%= intUsed %> | Available: <%= intAvailable %>

Calendar

Calendar > <%=Request.QueryString("date")%>

<% Dim Events Set Events = Server.CreateObject("ADODB.Recordset") Events.Open "SELECT * FROM Events WHERE Date=#" & Request.QueryString("date") & "#", Database, 3, 3 If Events.EOF Then %>

There are no events scheduled for this day.

<% Else Do Until Events.EOF rowNum = rowNum + 1 %>

<% Response.Write("" & rowNum & ". " & Events("Date") & " (" & Events("StartTime") & " - " & Events("EndTime") & ")
") %> Event: "><%=Events("Name")%>

<% Events.MoveNext Loop End If Events.Close %>