<%
select case Request("menu")

case "skins"
Response.Cookies("skins")=""&Request("no")&""
Response.Cookies("skins").Expires=date+365

case "eremite"
Response.Cookies("eremite")="1"
Response.Cookies("eremite").Expires=date+365

case "online"
Response.Cookies("eremite")="0"
Response.Cookies("eremite").Expires=date+365

end select

url=Request.ServerVariables("http_referer")
if url<>empty then
response.redirect url
else
response.write "<SCRIPT>top.location='Default.htm';</SCRIPT>"
end if
%>