Me.cblCompTypeID.Attributes.Add("onclick", _
            "return theConfirm('Are you sure you want to change this selection ? \n\nChanging this selection will alter the inventory queries and reports for this rule.');")

function theConfirm(theMessage)
{
    if(confirm(theMessage))
    {
    return true;
    }
    else
    {
    return false;
    }
}

    Sub saveComponentTypes(ByVal s As Object, ByVal e As EventArgs) Handles cblCompTypeID.SelectedIndexChanged
        If ddlRuleID.SelectedIndex > 0 Then
            Dim theConfirm As String = "<script language='javascript'>confirm('Changing the rule groups will affect reports for this rule. Be very careful in assigning or unassigning groups.');</script>"
            Page.RegisterClientScriptBlock("PopupScript", theConfirm)
            Dim Pass As Integer
            Try
                _oConn.Open()
                Dim SQL As String = "DELETE FROM RuleComponentTypes WHERE RuleID = " & ddlRuleID.SelectedValue & ";"
                Dim CMD As New SqlCommand(SQL, _oConn)
                CMD.ExecuteNonQuery()
                For Each i As ListItem In cblCompTypeID.Items

                    If i.Selected Then
                        Dim SQL2 As String = "INSERT INTO RuleComponentTypes (RuleID, CompTypeID, Status) VALUES (" & ddlRuleID.SelectedValue & ", " & i.Value & ", 1);"
                        Dim CMD2 As New SqlCommand(SQL2, _oConn)
                        CMD2.ExecuteNonQuery()
                    Else
                        Dim SQL3 As String = "DELETE FROM RuleComponents WHERE RuleID = " & ddlRuleID.SelectedValue & " AND CompTypeID = " & i.Value & ";"
                        Dim CMD3 As New SqlCommand(SQL3, _oConn)
                        CMD3.ExecuteNonQuery()
                    End If
                Next
            Catch ex As Exception
                Session("Alert") = ex.Message
            Finally
                _oConn.Close()
                Session("Confirm") = "The rule components have been saved"
            End Try
        Else
            Session("Alert") = "Please select a rule from the list to configure."
        End If
    End Sub

 Dim theConfirm As String = "<script language='javascript'>function theConfirm(){if(confirm('Changing the rule groups will affect reports
 for this rule. Be very careful in assigning or unassigning groups.')){return true;}else{return false;}}</script>"
            Page.RegisterClientScriptBlock("PopupScript", theConfirm)