Asp Control ASP.Net

<%@ Page Language=VB Debug=true %>

Sub DateDisplayed(source As Object, e As DayRenderEventArgs)
    If e.Day.Date.Month = "2" and e.Day.Date.Day = "14" Then
        e.Cell.BackColor = System.Drawing.Color.Red
        e.Cell.ForeColor = System.Drawing.Color.Yellow
    ElseIf e.Day.Date.Month = "12" and e.Day.Date.Day = "25" Then
        e.Cell.BackColor = System.Drawing.Color.Green
        e.Cell.ForeColor = System.Drawing.Color.Red
    ElseIf e.Day.Date.Month = "10" and e.Day.Date.Day = "31" Then
        e.Cell.BackColor = System.Drawing.Color.Orange
        e.Cell.ForeColor = System.Drawing.Color.Black
    End If
End Sub



Controlling the Appearance of Individual Cells of Dates in the Calendar Control



Select a Date



    id="Mycal" 
    runat="server"
    cellpadding="3"
    cellspacing="3"
    ondayrender="DateDisplayed"
/>