Session Cookie ASP.Net

<%
Dim Counter1, Counter2 As Integer
Dim Keys(), SubKeys() As String
Dim CookieColl As HttpCookieCollection 
Dim Cookie As HttpCookie
Dim Expires As DateTime
CookieColl = Request.Cookies
Keys = CookieColl.AllKeys
For Counter1 = 0 To Keys.GetUpperBound(0)
   Cookie = CookieColl(Keys(Counter1))
   Response.Write("Cookie: " & Cookie.Name & "
")
   Expires = Cookie.Expires
   Response.Write("Expires: " & Expires & "
")
   SubKeys = Cookie.Values.AllKeys
   For Counter2 = 0 To SubKeys.GetUpperBound(0)
      Response.Write("Key " & CStr(Counter2) + ": " & SubKeys(Counter2) & "
")
      Response.Write("Value " & CStr(Counter2) + ": " & Cookie.Values(Counter2) & "
")
   Next Counter2
Next Counter1
%>