if (!Utils) 
    var Utils = {};

// Cet objet contient 2 mèthodes pour lire et écrire des cookies en JavaScript

Utils.Cookies = {
    // setValue(name, value[, seconds, path, domain, secure])
    setValue: function(name, value) {
        var argv = arguments;
        var argc = arguments.length;
        if( argc > 2 ){
            var cdate = new Date();
            var expires = new Date(cdate.getTime() + (argv[2]*1000));
        }else{
            var expires = null;
        }
        var path = (argc > 3) ? argv[3] : null;
        var domain = (argc > 4) ? argv[4] : null;
        var secure = (argc > 5) ? argv[5] : false;
        document.cookie = name + "=" + escape(value)
            + ((expires == null) ? "" : ("; expires=" + expires.toGMTString()))
            + ((path == null) ? "" : ("; path=" + path))
            + ((domain == null) ? "" : ("; domain=" + domain))
            + ((secure == true) ? "; secure" : "");
    },
    // getValue(name)
    getValue: function(name) {
        if( document.cookie ){
            var arg = name + '=';
            var i = 0;

            while( i < document.cookie.length ){
                var j = i + arg.length;
                if( document.cookie.substring(i, j) == arg ){
                    var endstr = document.cookie.indexOf(';', j);
                    if( endstr == -1 )
                        endstr = document.cookie.length;
                   return unescape(document.cookie.substring(j, endstr));
                }
                i = document.cookie.indexOf(' ', i) + 1;
                if( i == 0 ) 
                    break;
            }
        }
        return null;
    } 
}



// Utilisation : 

// Ecriture
    Utils.Cookies.setValue('cookieName', value);

// Lecture
    value = Utils.getValue('cookieName');

' Lecture d'un cookie
Dim cookie As HttpCookie = Request.Cookies("cookieName")
Dim value As String = cookie.Value


'Ecriture d'un cookie
Dim cookie As New HttpCookie("cookieName")
cookie.Value = "maValue"*
Response.Cookies.Add(cookie)

// Lecture d'un cookie
HttpCookie cookie = Request.Cookies["cookieName"];
String value = cookie.Value; 


// Ecriture d'un cookie 
HttpCookie cookie = new HttpCookie("cookieName"); 
cookie.Value = "maValue"; 
Response.Cookies.Add(cookie);

Lire un cookie :
funtion LireCookie( aCookie:string):string;
begin
  Result := Request.Cookies[ 'MonCookie'].Value;
end;
Ecrire un cookie 
procedure EcrireCookie( aCookie, aValue: string);
var
  Cookie : HttpCookie;
begin
  Cookie := HttpCookie.Create( 'MonCookie', 'Valeur du cookie');
  Response.Cookies.Add( Cookie);
end;