<%@ Language=VBScript %>

<%

IF Request.Cookies("eXtremeFXGallery") = "TRUE" THEN
  response.redirect "galleryvisited.asp"
ELSE
  SET_COOKIE
  Response.redirect "gallerynewvisit.asp"
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 = DayLater

'##################
'## Cookie Setting

  '## This sets the cookie so that the next time the
  '## user comes back he/she will skip the splash page
  Response.Cookies("eXtremeFXGallery") = "TRUE"
  Response.Cookies("eXtremeFXGallery").expires = TargetDate

%>
<% END SUB %>