Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
Label1.Text = Calendar1.SelectedDate
End Sub
Protected Sub Button2_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim path As String = "-/newfile/"
If FileUpload1.HasFile Then
path = path & FileUpload1.FileName
FileUpload1.SaveAs(MapPath(path))
End If
End Sub