Writing a dictionary cookie called DICTCOOK1 with several values an expiration one day in the future using the code below.
Response.Buffer = true
...
Response.Cookies("DICTCOOK1")("Value1") = 1
Response.Cookies("DICTCOOK1")("Value2") = 2
Response.Cookies("DICTCOOK1")("Value3") = 3
Response.Cookies("DICTCOOK1").Expires = date + 1