Imports System.Drawing
Imports System.Web.UI.WebControls
Imports System.Web.UI.HtmlControls


Public Class calshow
    Inherits System.Web.UI.Page
    Protected WithEvents Calendar1 As System.Web.UI.WebControls.Calendar
    Protected WithEvents myspan As System.Web.UI.HtmlControls.HtmlGenericControl
    Protected WithEvents mybody As System.Web.UI.HtmlControls.HtmlGenericControl
    Protected WithEvents sendto As System.Web.UI.HtmlControls.HtmlInputHidden
    
#Region " Web Forms Designer Generated Code "
    
    'CODEGEN: This procedure is required by the Web Form Designer
    'Do not modify it using the code editor.
    Private Sub InitializeComponent()

    End Sub

#End Region

    Protected Sub Page_Init(ByVal Sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Init
        'CODEGEN: This method call is required by the Web Form Designer
        'Do not modify it using the code editor.
        InitializeComponent()
    End Sub

    Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        If Not Page().IsPostBack() Then
            sendto().Value = Request().QueryString("sendto")
            Calendar1().SelectedDate = DateTime.Now()
        End If

    End Sub

    Private Sub Calendar1_SelectionChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Calendar1.SelectionChanged
        Response().Write("<SCRIPT FOR=window EVENT=onload LANGUAGE=JScript>" & vbCrLf)
        Response().Write("return senddate();" & vbCrLf)
        Response().Write("</script>" & vbCrLf)
    End Sub

End Class
