<% If Request("command") = "Set Cookie" Then name = CStr(Request("cookieName")) key = CStr(Request("cookieKey")) value = CStr(Request("cookieValue")) If key = "" Then Response.Cookies(name) = value Response.Cookies(name).Expires = "11/7/2030" Else Response.Cookies(name)(key) = value Response.Cookies(name).Expires = "11/7/2030" End If End If If Request("command") = "Delete Cookie" Then name = CStr(Request("deleteCookieName")) Response.Cookies(name) = "" Response.Cookies(name).Expires = "1/1/2000" End If If Request("command") = "Set Session" Then name = CStr(Request("sessionName")) value = CStr(Request("sessionValue")) Session(name) = value End If If Request("command") = "Delete Session" Then name = CStr(Request("deleteSessionName")) Session.Contents.Remove(name) End If %> Cookies:
<% For Each cookie In Request.Cookies %> <% Next %>

<% Response.Write(cookie & " = " & Request.Cookies(cookie)) %>

Set a cookie:
  Name:
  Key: (optional)
  Value:

---

Sessions:
<% For Each Item in Session.Contents If IsObject( Session.Contents(Item)) Then Response.Write("") Else Response.Write("") End If %> <% Next %>

" & Item & " is an object.
" & Item & "=" & Session.Contents(Item) & "

Set a session variable:
  Name:
  Value:

---