Dim caldays As ArrayList
Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) _
Handles MyBase.Load
caldays = Cache("caldays")
If caldays Is Nothing Then caldays = New ArrayList
End Sub
Private Sub Calendar1_SelectionChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) _
Handles Calendar1.SelectionChanged
If caldays.Contains(Calendar1.SelectedDate) = False Then
caldays.Add(Calendar1.SelectedDate)
Cache("caldays") = caldays
End If
End Sub
Private Sub Calendar1_DayRender(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.DayRenderEventArgs) _
Handles Calendar1.DayRender
If caldays.Contains(e.Day.Date) = True Then
e.Cell.BackColor = Color.LightGreen
End If
End Sub