% 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
%>