Développeur

if (isset($_COOKIE["CookieConsent"]))
{
    switch ($_COOKIE["CookieConsent"])
    {
        case "0":
            //L'utilisateur n'a pas accepté les cookies - n'installer que les cookies strictement nécessaires
            break;

        case "-1":
            //L'utilisateur ne se trouve pas dans une région qui requiert un accord - tous les cookies sont acceptés
            break;

        default: //L'utilisateur a accepté un ou plusieurs types de cookies
            
            //Lire le consentement de l'utilisateur actuel encodé au format JavaScript
            $valid_php_json = preg_replace('/\s*:\s*([a-zA-Z0-9_]+?)([}\[,])/', ':"$1"$2', preg_replace('/([{\[,])\s*([a-zA-Z0-9_]+?):/', '$1"$2":', str_replace("'", '"',stripslashes($_COOKIE["CookieConsent"]))));
            $CookieConsent = json_decode($valid_php_json);

            if (filter_var($CookieConsent->preferences, FILTER_VALIDATE_BOOLEAN))
            {
                //L'utilisateur actuel accepte les cookies de préférences
            }
            else
            {
                //L'utilisateur actuel N'ACCEPTE PAS les cookies de préférences
            }

            if (filter_var($CookieConsent->statistics, FILTER_VALIDATE_BOOLEAN))
            {
                //L'utilisateur actuel accepte les cookies statistiques
            }
            else
            {
                //L'utilisateur actuel N'ACCEPTE PAS les cookies statistiques
            }

            if (filter_var($CookieConsent->marketing, FILTER_VALIDATE_BOOLEAN))
            {
                //L'utilisateur actuel accepte les cookies marketing
            }
            else
            {
                //L'utilisateur N'ACCEPTE PAS les cookies marketing
            }   
    }
}
else
{
    //L'utilisateur n'a pas accepté les cookies - n'installer que les cookies strictement nécessaires
}

Imports System.Web.Script.Serialization
...

Dim CurrentUserConsent As HttpCookie = Request.Cookies("CookieConsent")

If CurrentUserConsent IsNot Nothing Then
    Select Case CurrentUserConsent.Value
        Case "0"
            REM L'utilisateur n'a pas accepté les cookies - n'installer que les cookies strictement nécessaires
            Exit Select

        Case "-1"
            REM L'utilisateur ne se trouve pas dans une région qui requiert un accord - tous les cookies sont acceptés
            Exit Select

        Case Else REM L'utilisateur a accepté un ou plusieurs types de cookies
            
            REM Lire le consentement de l'utilisateur actuel encodé au format JavaScript
            Dim CookieConsentSerializer As New JavaScriptSerializer()
            Dim CookieConsent As dynamic = CookieConsentSerializer.Deserialize(Of Object)(HttpUtility.UrlDecode(CurrentUserConsent.Value))

            If CookieConsent("preferences") Then
                REM L'utilisateur actuel accepte les cookies de préférences
            Else
                REM L'utilisateur actuel N'ACCEPTE PAS les cookies de préférences
            End If

            If CookieConsent("statistics") Then
                REM L'utilisateur actuel accepte les cookies statistiques
            Else
                REM L'utilisateur actuel N'ACCEPTE PAS les cookies statistiques
            End If

            If CookieConsent("marketing") Then
                REM L'utilisateur actuel accepte les cookies marketing
            Else
                REM L'utilisateur N'ACCEPTE PAS les cookies marketing
            End If
    End Select
Else
    REM L'utilisateur n'a pas accepté les cookies - n'installer que les cookies strictement nécessaires
End If