<% Option Explicit %> <% Dim NomeCookie, Chiave For Each NomeCookie In Request.Cookies 'Se il cookie attuale ha delle chiavi, bisogna scorrere le chiavi ‘usando ciclo For. . .Next If Request.Cookies(NomeCookie).HasKeyS Then For Each Chiave In RequeSt.Cookies(NomeCookie) Response.Write NomeCookie & "(" & Chiave & ") = " & _ Request.Cookies(NomeCookie)(Chiave) ResponSe.Write "
" Next Else 'Non vi sono chiavi per questo cookie ‘quindi si visualizza il valore del cookie Response.Write NomeCookie & "= " & Request.Cookies(NomeCookie) End If Response.Write "
" Next %>