I don't know why this code brings up a blank screen.....
<%
dim iCount
dim strCookie
for iCount=1 to request.form("menu").count
response.cookies("strCookie") = request.form("menu")(iCount)
next
for each x in request.cookies("strCookie")
if request.cookies("strcookie").HasKeys then
response.write x
end if
next
%>
<%
dim iCount
dim strCookie
for iCount=1 to request.form("menu").count
response.cookies("strCookie") = request.form("menu")(iCount)
next
for each x in request.cookies("strCookie")
if request.cookies("strcookie").HasKeys then
response.write x
end if
next
%>