cs.mfalac.com

<div>
    Vendor: <asp:DropDownList ID="VendorsList" runat="server" />
</div>
           <cc1:CascadingDropDown ID="ccd1" runat="server"
           ServicePath="~/CascadingDropDown0.asmx" ServiceMethod="GetVendors"
    TargetControlID="VendorsList" Category="Vendor">
           </cc1:CascadingDropDown>

WebService codes:

Imports System.Web
Imports System.Web.Services
Imports System.Web.Services.Protocols
Imports System.Web.Script.Services
Imports AjaxControlToolkit
Imports System.Collections.Generic

<ScriptService()> _
Public Class CascadingDropDown0
    Inherits System.Web.Services.WebService

    <WebMethod()> _
    Public Function GetVendors(ByVal knownCategoryValues As String, ByVal category As String) As CascadingDropDownNameValue()
        Dim l As New List(Of CascadingDropDownNameValue)
        l.Add(New CascadingDropDownNameValue("International", "1"))
        l.Add(New CascadingDropDownNameValue("Electronic Bike Repairs & Supplies", "2"))
        l.Add(New CascadingDropDownNameValue("Premier Sport, Inc.", "3"))
        Return l.ToArray()
    End Function

End Class

Imports System.Web
Imports System.Web.Services
Imports System.Web.Services.Protocols
Imports System.Web.Script.Services
Imports AjaxControlToolkit
Imports System
Imports System.Collections.Generic
Imports System.Collections.Specialized
Imports System.Data.SqlClient

<WebService(Namespace:="http://tempuri.org/")> _
<WebServiceBinding(ConformsTo:=WsiProfiles.BasicProfile1_1)> _
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
<System.Web.Script.Services.ScriptService()> _
Public Class CascadingDropdown1
    Inherits System.Web.Services.WebService

    Public Function GetVendors(ByVal knownCategoryValues As String, ByVal category As String) As CascadingDropDownNameValue()
        Dim conn As New SqlConnection("server=")

        conn.Open()
        Dim comm As New SqlCommand( _
        "SELECT TOP 25 ArticleId, ArticleTitle FROM BlogArticles", conn)
        Dim dr As SqlDataReader = comm.ExecuteReader()
        Dim l As New List(Of CascadingDropDownNameValue)
        While (dr.Read())
            l.Add(New CascadingDropDownNameValue(dr("ArticleTitle").ToString(), dr("ArticleId").ToString()))
        End While
        conn.Close()
        Return l.ToArray()
    End Function

End Class

<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

            <cc1:DynamicPopulateExtender  ID="dpe1" runat="server"
     ClearContentsDuringUpdate="true"
     TargetControlID="myDate" ServicePath="~/timeFormat.asmx"
     ServiceMethod="getDate" >
            </cc1:DynamicPopulateExtender>
            <asp:Panel ID="panel1" runat="server">
            <asp:Label ID="myDate" runat="server" Text="Label"></asp:Label><br />
     <input type="radio" id="rb1" name="format" value="format1" runat="server"
          onclick="$find('dpe1').populate(this.value);" />m-d-y
     <input type="radio" id="rb2" name="format" value="format2" runat="server"
          onclick="$find('dpe1').populate(this.value);" />d.m.y
     <input type="radio" id="rb3" name="format" value="format3" runat="server"
          onclick="$find('dpe1').populate(this.value);" />Just year
</asp:Panel>

Imports System.Web
Imports System.Web.Services
Imports System.Web.Services.Protocols
Imports System.Web.Script.Services

<ScriptService()> _
Public Class timeFormat
    Inherits System.Web.Services.WebService

    <WebMethod()> _
    Public Function getDate(ByVal contextKey As String) As String
        Dim myDate As String = ""
        Select Case contextKey
            Case "format1"
                myDate = String.Format("{0:MM}-{0:dd}-{0:yyyy}", DateTime.Now)
            Case "format2"
                myDate = String.Format("{0:dd}.{0:MM}.{0:yyyy}", DateTime.Now)
            Case "format3"
                myDate = String.Format("{0:yyyy}", DateTime.Now)
        End Select
        Return myDate
    End Function
End Class

try it here

some reason default margin value is em so you have to overwrite it!

.accordionHeader
{
    border: 1px solid #00000;
    color: black;
    font-family: Arial, Sans-Serif;
    font-size: 12px;
    font-weight: bold;
    padding: 5px;
    margin-top: 5px;
    cursor: pointer;
    margin: 3px;
    background: url(images/img07.gif) repeat-x;
}

.accordionContent
{
    background-color: white;
    border-top: none;
    padding: 5px;
    padding-top: 10px;
    margin: 1px;
    border-style: dashed;
    border-width: 1px;
    border-color: #2F4F4F;
}

and

<cc1:Accordion ID="Accordion2" runat="server"
                    SelectedIndex="0"
                    HeaderCssClass="accordionHeader"
                    HeaderSelectedCssClass="accordionHeader"
                    ContentCssClass="accordionContent"
                    AutoSize="None"
                    FadeTransitions="True"
                    TransitionDuration="250"
                    FramesPerSecond="40"
                    RequireOpenedPane="False"
                    SuppressHeaderPostbacks="true" DataSourceID="SqlDataSource1">
                    <HeaderTemplate>
                    <h4>
                            <%#(DataBinder.Eval(Container.DataItem, "Title"))%></h4>
                    </HeaderTemplate>
                    <ContentTemplate>
                     <%#(DataBinder.Eval(Container.DataItem, "Title"))%>
                           <br />
                                Posted by <%#(DataBinder.Eval(Container.DataItem, "UserName"))%> on
                                <%#(DataBinder.Eval(Container.DataItem, "Date"))%>
                            <p>
                                <%#(DataBinder.Eval(Container.DataItem, "Content"))%>
                            </p>
                    </ContentTemplate>
              </cc1:Accordion>

    <cc1:AnimationExtender ID="ae" runat="server" TargetControlID="Button1">
     <Animations>
          <OnClick>
               <Sequence>
                    <EnableAction Enabled="false" />
                    <Parallel>
                         <FadeOut Duration="1.5" Fps="24" AnimationTarget="Panel1" />
                         <Resize Width="1000" Height="150" Unit="px"
                              AnimationTarget="Panel1" />
                    </Parallel>
               </Sequence>
          </OnClick>
     </Animations>

    </cc1:AnimationExtender>

<hr />

<asp:Panel ID="Panel1" runat="server" CssClass="panelClass">
     ASP.NET AJAX is a free framework for quickly creating a new generation of more
     efficient, more interactive and highly-personalized Web experiences that work
     across all the most popular browsers.<br />
     ASP.NET AJAX is a free framework for quickly creating a new generation of more
     efficient, more interactive and highly-personalized Web experiences that work
     across all the most popular browsers.<br />
     ASP.NET AJAX is a free framework for quickly creating a new generation of more
     efficient, more interactive and highly-personalized Web experiences that work
     across all the most popular browsers.<br />
</asp:Panel>

    <input id="Button1"  runat="server" type="button" value="button" />
    <cc1:AnimationExtender id="MyExtender"
  runat="server" TargetControlID="Button1">
  <Animations>
    <OnClick>
      <Sequence>
  <EnableAction Enabled="false" />
  <Color AnimationTarget="Panel1"
    Duration="1"
    StartValue="#FF0000"
    EndValue="#666666"
    Property="style"
    PropertyKey="backgroundColor" />
  <Color AnimationTarget="Panel1"
    Duration="1"
    StartValue="#FF0000"
    EndValue="#666666"
    Property="style"
    PropertyKey="backgroundColor" />
  <EnableAction Enabled="true" />
</Sequence>
    </OnClick>
  </Animations>
  </cc1:AnimationExtender>

                Tags:
        <asp:TextBox ID="MyTextBox" runat="server" Width="538px"></asp:TextBox>
        <br />
        <br />
        <asp:Panel ID="Panel1" runat="server" CssClass="popupControl">
          <asp:UpdatePanel ID="UpdatePanel1" runat="server" >
            <ContentTemplate>
                 <asp:RadioButtonList ID="RadioButtonList1" runat="server" OnSelectedIndexChanged="RadioButtonList1_SelectedIndexChanged" AutoPostBack="true" Width="146px">
                    <asp:ListItem Text="ozkan"></asp:ListItem>
                    <asp:ListItem Text="deniz"></asp:ListItem>
                    <asp:ListItem Text="cherline"></asp:ListItem>
                    <asp:ListItem Text="fatih"></asp:ListItem>
                    <asp:ListItem Text="veronica"></asp:ListItem>
                </asp:RadioButtonList>
            </ContentTemplate>
          </asp:UpdatePanel>
        </asp:Panel>
    &nbsp;
    <br />
                <cc1:popupcontrolextender
                ID="PopupControlExtender1" runat="server"
    TargetControlID="MyTextBox" PopupControlID="Panel1"
    CommitProperty="value" CommitScript="e.value ;"
    Position="Bottom">                  
   </cc1:popupcontrolextender>

code:

Protected Sub RadioButtonList1_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles RadioButtonList1.SelectedIndexChanged

       If MyTextBox.Text = "" Then

           If Not (String.IsNullOrEmpty(RadioButtonList1.SelectedValue)) Then

               Dim r As String = RadioButtonList1.SelectedValue
               Dim s As String = MyTextBox.Text
               PopupControlExtender.GetProxyForCurrentPopup(Me.Page).Commit(r + s)
           End If
       Else
           If Not (String.IsNullOrEmpty(RadioButtonList1.SelectedValue)) Then

               Dim r As String = RadioButtonList1.SelectedValue
               Dim s As String = MyTextBox.Text
               PopupControlExtender.GetProxyForCurrentPopup(Me.Page).Commit(r + "," + s)
           End If
       End If
       'RadioButtonList1.ClearSelection()

   End Sub

First, I thought i fixed task bar :( anyway  LinQ is not working in live server so i changed source to sql ere is the long boring code stil need to update >>>