cs.mfalac.com

<div>
     Departure date: <asp:TextBox ID="tbDeparture" runat="server" />
     Return date: <asp:TextBox ID="tbReturn" runat="server" />
</div>

<asp:Panel ID="pnlCalendar" runat="server">
     <asp:UpdatePanel ID="up1" runat="server">
          <ContentTemplate>
               <asp:Calendar ID="c1" runat="server" OnSelectionChanged="c1_SelectionChanged" />
          </ContentTemplate>
     </asp:UpdatePanel>
</asp:Panel>
       <cc1:PopupControlExtender ID="pce1" runat="server"
     TargetControlID="tbDeparture" PopupControlID="pnlCalendar" Position="Bottom" >
       </cc1:PopupControlExtender>
       <cc1:PopupControlExtender ID="pce2" runat="server"
     TargetControlID="tbReturn" PopupControlID="pnlCalendar" Position="Bottom"  >
       </cc1:PopupControlExtender>

vb is :

Protected Sub c1_SelectionChanged(ByVal sender As Object, ByVal e As EventArgs)
    Dim pce As PopupControlExtender = AjaxControlToolkit.PopupControlExtender.GetProxyForCurrentPopup(Page)
    pce.Commit(CType(sender, Calendar).SelectedDate.ToShortDateString())
End Sub

' Clear the current text.
       Message.Text = ""

       ' Iterate through the SelectedDates collection and display the
       ' dates selected in the Calendar control.
       Dim day As DateTime

       For Each day In Calendar1.SelectedDates

           Message.Text &= day.Date.ToShortDateString() & "<br>"

       Next

For Each ArticleRow As DataSetCalendarEvents.BlogArticlesRow In ArticleDayNumber
    If e.Day.Date.Date = ArticleRow.ArticleDate.Date Then
        Dim T As String = ArticleRow.ArticleTitle.ToString()
        Dim Id As String = ArticleRow.ArticleId.ToString()

        e.Cell.Controls.Add(New LiteralControl("<br/>-<a href='../Blog/BlogView.aspx?ArticleId=" + Id + "'>" + T + "</a>"))

Sub MonthChange(sender As Object, e As MonthChangedEventArgs)

         If e.NewDate.Month > e.PreviousDate.Month Then

            Message.Text = "You moved forward one month."

         Else

            Message.Text = "You moved backwards one month."

         End If

      End Sub

    End If
Next