<%@ Page Language="VB" %>
Sub Calendar1_SelectionChanged(sender As Object, e As EventArgs)
If Day (Calendar1.SelectedDate) = 13 And Calendar1.SelectedDate.DayOfWeek = 5 Then
Label1.Text = "Careful! Friday 13th is an unlucky day for some people!"
Else
Label1.Text = "It's just another day in life..."
End If
End Sub
Please select a date: