Private Sub btnChg_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnChg.Click
         Dim objEmployee As New Employee.Business.Employee(CInt(Request.QueryString("id")))
            Dim objemployee2 As New Employee.Business.Employee(cboSup.SelectedItem.Value)

                       
            If Not txtStartDate.Text = "" And Not txtStartDate.Text = " " Then
                If IsDate(txtStartDate.Text) Then
                    objEmployee.StartDate = txtStartDate.Text
                Else
                    scriptAlert("InvalidDate", "Start Date is Invalid")
                    Exit Sub
                End If
            Else
                objEmployee.StartDate = Null.NullDate
            End If
         'uneccesary code removed    

            If objEmployee.Update() Then
                scriptAlert("Updated", txtFName.Text + " " + txtLName.Text + "'s record has been updated.")
            Else
                scriptAlert("NotUpdated", txtFName.Text + " " + txtLName.Text + "'s record could not be updated.\nPlease check your values.")
            End If

            Response.Redirect("EmployeeListing.aspx")

        End Sub

Private Sub scriptAlert(ByVal key As String, ByVal message As String)
            Dim scriptKey As String = key
            Dim javaScript As String = "<script type='text/javascript' language=""JavaScript"">alert(""" + message + """);</script>"
            ClientScript.RegisterClientScriptBlock(Me.GetType(), scriptKey, javaScript)
        End Sub