<% '## get the name of the current script for the navbar and header graphics ScriptName = Request.ServerVariables("SCRIPT_NAME") '## get the name of the browser to wrap in browser-specific tags UserAgent = Request.ServerVariables("HTTP_USER_AGENT") %> <% IF Request.Cookies("ASPSplashSkip") = "TRUE" THEN response.redirect "sample_splash_target.asp" ELSE SET_COOKIE HTML PHOTOS DESIGN WEB ARTICLES HTML2 END IF %> <% SUB SET_COOKIE %> <% '############### '## Date Setting DayLater = DateAdd("d", 1, FormatDateTime(Now,vbGeneralDate)) WeekLater = DateAdd("ww", 1, FormatDateTime(Now,vbGeneralDate)) MonthLater = DateAdd("m", 1, FormatDateTime(Now,vbGeneralDate)) '## Choose a timeframe from above and '## make it equal to TargetDate TargetDate = MonthLater '################## '## Cookie Setting '## This sets the cookie so that the next time the '## user comes back he/she will skip the splash page Response.Cookies("ASPSplashSkip") = "TRUE" Response.Cookies("ASPSplashSkip").expires = TargetDate %> <% END SUB %> <% SUB HTML %> Adrian Roselli - Let the User Skip the Splash Page - Web Articles <% END SUB %> <% SUB HTML2 %>

Let the User Skip the Splash Page

This is a sample splash page for the splash skipping tutorial, it uses ASP to set and read the cookies. You may return to the tutorial, unless you find the Flash movie engaging, in which case you may stay as long as you like.

<% END SUB %>