Sviluppatori

if (isset($_COOKIE["CookieConsent"]))
{
    switch ($_COOKIE["CookieConsent"])
    {
        case "0":
            //L'utente non ha accettato i cookie - imposta solo i cookie strettamente necessari
            break;

        case "-1":
            //L'utente non è in una regione che richiede consenso - tutti i cookie sono accettati
            break;

        default: //L'utente ha accettato uno o più tipi di cookie
            
            //Leggi il consenso dell'utente attuale nel formato codificato 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'utente corrente accetta cookie di preferenza
            }
            else
            {
                //L'utente corrente NON accetta cookie di preferenza
            }

            if (filter_var($CookieConsent->statistics, FILTER_VALIDATE_BOOLEAN))
            {
                //L'utente corrente accetta cookie di statistica
            }
            else
            {
                //L'utente corrente NON accetta cookie di statistica
            }

            if (filter_var($CookieConsent->marketing, FILTER_VALIDATE_BOOLEAN))
            {
                //L'utente corrente accetta cookie di marketing
            }
            else
            {
                //L'utente corrente NON accetta cookie di marketing
            }   
    }
}
else
{
    //L'utente non ha accettato i cookie - imposta solo i cookie strettamente necessari
}

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'utente non ha accettato i cookie - imposta solo i cookie strettamente necessari
            Exit Select

        Case "-1"
            REM L'utente non è in una regione che richiede consenso - tutti i cookie sono accettati
            Exit Select

        Case Else REM L'utente ha accettato uno o più tipi di cookie
            
            REM Leggi il consenso dell'utente attuale nel formato codificato JavaScript
            Dim CookieConsentSerializer As New JavaScriptSerializer()
            Dim CookieConsent As dynamic = CookieConsentSerializer.Deserialize(Of Object)(HttpUtility.UrlDecode(CurrentUserConsent.Value))

            If CookieConsent("preferences") Then
                REM L'utente corrente accetta cookie di preferenza
            Else
                REM L'utente corrente NON accetta cookie di preferenza
            End If

            If CookieConsent("statistics") Then
                REM L'utente corrente accetta cookie di statistica
            Else
                REM L'utente corrente NON accetta cookie di statistica
            End If

            If CookieConsent("marketing") Then
                REM L'utente corrente accetta cookie di marketing
            Else
                REM L'utente corrente NON accetta cookie di marketing
            End If
    End Select
Else
    REM L'utente non ha accettato i cookie - imposta solo i cookie strettamente necessari
End If