<%
response.buffer=true
dim style
style=request.querystring("style")
if style="" or not isNumeric(style) then
	style=1
else
	style=int(style)
end if

if cookiePath<>"" then
	response.cookies("style").Path=cookiePath
end if
response.cookies("style")=cstr(style)
response.cookies("style").expires=dateadd("m",1,now())
response.redirect request.servervariables("http_referer")
%>