LIRE ET ECRIRE LES COOKIES POUR VOTRE SITE FAÇILEMENT

    Public Function getCookies(ByVal Request As System.Web.HttpRequest, ByVal CookiesName As String) As String
        ' On récupère les cookies du poste client
        Dim Cookies As System.Web.HttpCookie

        ' Vérification si des Cookies sont présent
        Cookies = Request.Cookies(CookiesName)
        If Not Cookies Is Nothing Then
            ' Si on trouve des cookies on récupère la valeur
            Return Cookies.Value
        Else
            Return ""
        End If

    End Function

    Public Sub SetCookies(ByRef Response As System.Web.HttpResponse, ByVal CookiesName As String, ByVal Value As String, ByVal DaysValidity As Integer, ByVal HoursValidity As Integer, ByVal MinutesValidity As Integer)
        ' On écrit le cookies sur le poste client
        Dim Cookies As System.Web.HttpCookie
        Dim dt As DateTime = DateTime.Now()
        Dim ts As New TimeSpan(DaysValidity, HoursValidity, MinutesValidity, 0) ' Days, Hours, Minutes, Second)
        Cookies = New System.Web.HttpCookie(CookiesName)
        Cookies.Value = Value
        Cookies.Expires = dt.Add(ts)
        Response.SetCookie(Cookies)
    End Sub