Pause over the event for more information
<% Sub LoadCalendar() Dim conn, rs, sql Set conn = server.CreateObject("ADODB.Connection") conn.open connection set rs = server.CreateObject("ADODB.recordset") sql = "sp_LoadActivities " & Month(Cal.GetDate()) & ", " & Year(Cal.GetDate()) rs.Open sql, conn, 3 Do While Not rs.EOF Cal.Days(CInt(rs("aDay"))).AddActivity "
" & QuotetoHex(rs("Activity")) & "
", rs("BackColor") rs.MoveNext Loop rs.close conn.close End Sub %>
<% Dim cal Set Cal = New Calendar Cal.Top = 0 Cal.Left = 0 Cal.Position = "relative" Cal.Height = "500" Cal.Width = "625" Cal.TitlebarColor = "#EC1B1F" Cal.TitlebarFont = "arial" Cal.TitlebarFontColor = "black" Cal.TodayBGColor = "#FFFF66" Cal.ShowDateselect = True LoadCalendar() %>
<% Cal.Draw %>
<% Dim conn, rs, sql, index Set conn = server.CreateObject("ADODB.Connection") conn.open connection set rs = server.CreateObject("ADODB.recordset") sql = "sp_GetNewColors" rs.Open sql, conn, 3 Response.Write("
") Index = -1 Do While Not rs.EOF index = index + 1 if index mod 6 = 0 then Response.Write("
") if Left(rs("Description"),6) <> "Normal" then Response.Write("
" & rs("Description") & "
") end if rs.MoveNext Loop Set rs = Nothing Set conn = Nothing %>
