response.buffer=true
dim style,referer
referer=request.servervariables("http_referer")
if referer="" then
referer="index.asp"
end if
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 referer
%>
