Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        IntAgent_id = Request.QueryString("id")
        AGentConn.Open()

        strSelect = "select * from Agent where ag_id=" & IntAgent_id

        Try
            Dim selectCommand As New SqlCommand(strSelect, AGentConn)

            selectReader = selectCommand.ExecuteReader()

            While selectReader.Read()
                idtb.Text = (selectReader("ag_id"))
                nametb.Text = (selectReader("ag_name"))
                add1tb.Text = (selectReader("ag_address1"))
                add2tb.Text = (selectReader("ag_address2"))
                add3tb.Text = (selectReader("ag_address3"))
                phone1tb.Text = (selectReader("ag_telephone1"))
                phone2tb.Text = (selectReader("ag_telephone2"))
                faxtb.Text = (selectReader("ag_fax1"))
                contacttb.Text = (selectReader("ag_contact"))
                mobiletb.Text = (selectReader("ag_mobile"))
                email1tb.Text = (selectReader("ag_email1"))
                urltb.Text = (selectReader("ag_url"))


            End While



        Catch ex As Exception

        End Try
        selectReader.Close()
        AGentConn.Close()


    End Sub

    Private Sub editAgentBtn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles editAgentBtn.Click

        strUpdate = "Update Agent Set [email protected]_name, [email protected]_address1, [email protected]_address2, [email protected]_address3, [email protected]_telephone1, [email protected]_telephone2, [email protected]_fax1, [email protected]_contact, [email protected]_mobile, [email protected]_email1, [email protected]_url where ag_id=" & IntAgent_id

        Dim strAg_Name As String = nametb.Text
        Dim strAg_add1 As String = add1tb.Text
        Dim strAg_add2 As String = add2tb.Text
        Dim strAg_add3 As String = add3tb.Text
        Dim strAg_phone1 As String = phone1tb.Text
        Dim strAg_phone2 As String = phone2tb.Text
        Dim strAg_fax As String = faxtb.Text
        Dim strAg_contact As String = contacttb.Text
        Dim strAg_mobile As String = mobiletb.Text
        Dim strAg_email As String = email1tb.Text
        Dim strAg_url As String = urltb.Text

        strUpdateCmd = New SqlCommand(strUpdate, AGentConn)
        strUpdateCmd.Parameters.Add("@ag_name", strAg_Name)
        strUpdateCmd.Parameters.Add("@ag_address1", strAg_add1)
        strUpdateCmd.Parameters.Add("@ag_address2", strAg_add2)
        strUpdateCmd.Parameters.Add("@ag_address3", strAg_add3)
        strUpdateCmd.Parameters.Add("@ag_telephone1", strAg_phone1)
        strUpdateCmd.Parameters.Add("@ag_telephone2", strAg_phone2)
        strUpdateCmd.Parameters.Add("@ag_fax1", strAg_fax)
        strUpdateCmd.Parameters.Add("@ag_contact", strAg_contact)
        strUpdateCmd.Parameters.Add("@ag_mobile", strAg_mobile)
        strUpdateCmd.Parameters.Add("@ag_email1", strAg_email)
        strUpdateCmd.Parameters.Add("@ag_url", strAg_url)
        AGentConn.Open()

        strUpdateCmd.ExecuteNonQuery()

        AGentConn.Close()
        'Response.Write(nametb.Text.ToString)
        Response.Redirect("agentMaster.aspx")
    End Sub