Visual Basic

<br />
Private Sub ButSave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButSave.Click<br />
        checkfortheSupplier()<br />
        'updateSupplierID()<br />
        If (Supplier = True) Then<br />
            If Not IsClientScriptBlockRegistered("alert") Then<br />
                Page.RegisterClientScriptBlock("alert", "<script language = 'javascript'>alert('Supplier Already Added!');</script>")<br />
            End If<br />
            Exit Sub<br />
            ' End If<br />
        Else<br />
<br />
            If (RdINR.Checked = True) Then<br />
                'inserttheSupplierINR()<br />
                SearchuniquesupplierID()<br />
                If Not IsClientScriptBlockRegistered("alert") Then<br />
                    Page.RegisterClientScriptBlock("alert", "<script language = 'javascript'>alert('Supplier Information Added Successfully!');</script>")<br />
                End If<br />
            ElseIf (RDForex.Checked = True) Then<br />
                'inserttheSupplierForex()<br />
                SearchuniquesupplierID()<br />
                If Not IsClientScriptBlockRegistered("alert") Then<br />
                    Page.RegisterClientScriptBlock("alert", "<script language = 'javascript'>alert('Supplier Information Added Successfully!');</script>")<br />
                End If<br />
<br />
            End If 'RDINR if is closed <br />
        End If<br />
    End Sub<br />
<br />

<br />
#Region "Check Wheather Supplier already added or not"<br />
    Public Sub checkfortheSupplier()<br />
        Try<br />
            connection.Open()<br />
            strSql = ""<br />
<br />
            For co = 0 To LstCurr.Items.Count - 1<br />
                If LstCurr.Items(co).Selected Then<br />
                    strSql = "select supplier_name,country_id,currency  from supplier_mst where  supplier_name = '" & Trim(TxtSupplierName.Text) & "'  and country_id='" & Trim(DpCountry.SelectedItem.Value) & "' and currency='" & Trim(LstCurr.Items(co).Text) & "'"<br />
                    command.CommandText = strSql<br />
                    command.Connection = connection<br />
                    dataReader = command.ExecuteReader<br />
                   End If<br />
            Next<br />
             While (dataReader.Read())<br />
             Supplier = True<br />
             End While<br />
<br />
<br />
        Catch ex As Exception<br />
        Finally<br />
            dataReader.Close()<br />
            connection.Close()<br />
        End Try<br />
    End Sub<br />
#End Region<br />
<br />