Partial Public Class _Default
    Inherits System.Web.UI.Page
 
    Protected Sub Page_Load(ByVal sender As Object, ByVal e As _
      System.EventArgs) Handles Me.Load
 
    End Sub
 
    Protected Sub btnSubmit_Click(ByVal sender As Object, ByVal e As EventArgs) _
      Handles btnSubmit.Click
        lblEnddatum.Text = cldStartdatum.SelectedDate.AddDays(7).ToString()
 
    End Sub
 
    Protected Sub txtZeitspanne_TextChanged(ByVal sender As Object, ByVal e As _
      EventArgs) Handles txtZeitspanne.TextChanged
        Me.ViewState("_Zeitspanne") = txtZeitspanne.Text
        txtZeitspanne.Text = CStr(Me.ViewState("_Zeitspanne"))
        Session("_Zeitspanne") = txtZeitspanne.Text
        txtZeitspanne.Text = CStr(Session("Zeitspanne"))
 
 
 
 
    End Sub
End Class