It's urget please help me with this code
-
Please help me with this code ************* Protected Sub ButtonSubMana_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles ButtonSubMana.Click Dim ds1 As New Data.DataSet Dim obj As Businesslayer.TimeSheet = New Businesslayer.TimeSheet Dim NumberOfBoxes As Integer Dim WhichBox As Integer NumberOfBoxes = Integer.Parse(WhichBox) Dim rows(NumberOfBoxes) As Integer Dim Repeater1 As Repeater For WhichBox = 0 To NumberOfBoxes Dim txtDate As TextBox = CType(Repeater1.Items(WhichBox).FindControl("txtDate"), TextBox) Dim cmbProjectName As DropDownList = CType(Repeater1.Items(WhichBox).FindControl("cmbProjectName"), DropDownList) Dim cmbClientSite As DropDownList = CType(Repeater1.Items(WhichBox).FindControl("cmbClientSite"), DropDownList) Dim cmbProjectManager As DropDownList = CType(Repeater1.Items(WhichBox).FindControl("cmbProjectManager"), DropDownList) Dim cmbProjectMember As DropDownList = CType(Repeater1.Items(WhichBox).FindControl("cmbProjectMember"), DropDownList) Dim cmbCategory As DropDownList = CType(Repeater1.Items(WhichBox).FindControl("cmbCategory"), DropDownList) Dim cmbOccupation As DropDownList = CType(Repeater1.Items(WhichBox).FindControl("cmbOccupation"), DropDownList) Dim txtHours As TextBox = CType(Repeater1.Items(WhichBox).FindControl("txtHours"), TextBox) Dim CheckBox1 As CheckBox = CType(Repeater1.Items(WhichBox).FindControl("CheckBox1"), CheckBox) Dim txtDescription As TextBox = CType(Repeater1.Items(WhichBox).FindControl("txtDescription"), TextBox) obj.addTimesheet(txtIDNumber.Text, cmbProjectName.SelectedItem.Text, cmbClientSite.SelectedItem.Text, cmbProjectManager.SelectedItem.Text, cmbProjectMember.SelectedItem.Text, cmbOccupation.SelectedItem.Text, txtDate.Text, Double.Parse(txtHours.Text), txtDescription.Text, CheckBox1.Checked, cmbCategory.SelectedItem.Text) Next Dim Manager_Id(0) As Integer Dim Timesheet(0) As String Dim i As Integer For i = Manager_Id To Timesheet Manager_Id(i) = Manager_Id(i - 1) + Manager_Id(i - Timesheet) Next Me.DataSource = Manager_Id Me.Repeater1.DataBind() Dim from As MailAddress = New MailAddress("boipelo@ecominstitute.com", "Boipelo Mothusi") Dim recieve As MailAddress = New M