Unnamed

Partial Class SalesReport2
    Inherits System.Web.UI.Page

    Dim con As New Data.SqlClient.SqlConnection(ConfigurationSettings.AppSettings.Get("VMFGConnectionString"))

    Sub Page_Load()
        'GetSalesmen()
        Response.Write(con)
    End Sub

    Sub GetSalesmen()
        Dim str As String = "SELECT NAME FROM SALES_REP"
        Dim cmd As New Data.SqlClient.SqlCommand(str, con)
        con.Open()
        ddlSalesRep.DataSource = cmd.ExecuteReader()
        ddlSalesRep.DataTextField = "Name"
        ddlSalesRep.DataValueField = "Name"
        ddlSalesRep.DataBind()
        con.Close()
    End Sub

    Sub btnSubmit_OnClick(ByVal s As Object, ByVal e As EventArgs)
        Response.Write("<p>From " + calStartDate.SelectedDate.ToString("MM/dd/yy") + " to " + calEndDate.SelectedDate.ToString("MM/dd/yy") + ".</p>")
    End Sub

    Sub ddlStartYear_OnSelectedIndexChanged(ByVal s As Object, ByVal e As EventArgs)
        Dim myDate As DateTime = DateTime.Now
        Dim myYear As Long = myDate.Year
        Dim iDiff As Integer = myYear - CInt(ddlStartYear.SelectedItem.Text)
        calStartDate.TodaysDate = myDate.AddYears(-iDiff)
    End Sub

    Sub ddlEndYear_OnSelectedIndexChanged(ByVal s As Object, ByVal e As EventArgs)
        Dim myDate As DateTime = DateTime.Now
        Dim myYear As Long = myDate.Year
        Dim iDiff As Integer = myYear - CInt(ddlEndYear.SelectedItem.Text)
        calEndDate.TodaysDate = myDate.AddYears(-iDiff)
    End Sub

End Class