<%@ Language=VBScript %> <% option explicit Response.Buffer = True Response.Expires = 0 '------------------------------------------------------------------------------------------ ' Name: Default.asp ' HTML: ' Script: Dwight Johnson, Database Solutions, Inc. ' Desc: Default page without user interface. ' Args: ' Methods: ' Synopsis: '------------------------------------------------------------------------------------------ ' Who When What changed '------------------------------------------------------------------------------------------ ' djohnson 2001-03-12 Original scripting. '------------------------------------------------------------------------------------------ %> <% dim sGuid Dim oEPI dim oUID dim sMachineId dim sVideoRequested dim sFirstVisitDate dim sPub dim sDoTest dim sSwitch dim host sMachineId = Request.Cookies("EndlessPools")("MachineID") sVideoRequested = Request.Cookies("EndlessPools")("VideoRequested") sFirstVisitDate = Request.Cookies("EndlessPools")("FirstVisitDate") sPub = Request.QueryString("Pub") host = request.servervariables("HTTP_HOST") ' If a publication code is found, rewrite cookie with pub code if len(sPub) > 0 then if isnumeric(sPub) then Response.Cookies("EndlessPools")("Pub") = sPub Response.Cookies("EndlessPools").Expires = dateadd("M", 24, date()) end if end if ' ABSwitch will be set to A or B if ABSwitch is turned on and if the visitor has not yet requested a video absplit %> <% default sub absplit select case session("ABSwitch") case "A" Response.Redirect("index.html") case "B" Response.Redirect("index.html") case else Response.Redirect("index.html") end select end sub %>