<% If IsEmpty(Request.QueryString("Date")) OR NOT IsDate(Request.QueryString("Date")) Then dDate = Date Else dDate = CDate(Request.QueryString("Date")) End If %> Events for <%= FormatDateTime(dDate, 1) %>

<% ' Open a record set of schedules Response.Write "" & FormatDateTime(dDate, 1) & "

" & vbCrLf Set Rs = Server.CreateObject("ADODB.RecordSet") sSQL = "SELECT * FROM tEvents " & _ "WHERE Start_Date <= #" & dDate & "# AND End_Date >= #" & dDate & "# ORDER BY Event_ID " Rs.Open sSQL, sDSN, adOpenStatic, adLockReadOnly, adCmdText If NOT Rs.EOF Then arrColor =Array("#000000", "#CC9966", "#336600", "#003366", "#FFCC66", "#0000FF", "#FF0000") iIndex = 0 Do While NOT Rs.EOF ' Create the outer table Response.Write "
" & vbCrLf ' Create the inner table Response.Write "" & vbCrLf Response.Write "" & vbCrLf If Session("Admin") = 1 Then Response.Write "" & vbCrLf Response.Write "" & vbCrLf End If Response.Write "" & vbCrLf Response.Write "" & vbCrLf Response.Write "
" & vbCrLf Response.Write Trim(Rs("Event_Title")) & VbCrLf Response.Write " 
" & vbCrLf ' If the event lasts more than one day, indidate the start and end dates If Rs("Start_Date") <> Rs("End_Date") Then Response.Write "Starts: " & Rs("Start_Date") & vbCrLf Response.Write "
Ends: " & Rs("End_Date") & vbCrLf Response.Write "

" End If ' Print the event details Response.Write "" & vbCrLf Response.Write Replace(Rs("Event_Details") & " ", vbCrLf, "
") & vbCrLf Response.Write "

" & vbCrLf Response.Write "
" & vbCrLf Rs.MoveNext iIndex = iIndex + 1 If iIndex = 3 Then iIndex = 0 End If Loop End If %> Back to Schedule