<% Dim serverNames(10) Dim numServerNames Dim serverLen Dim bUseCameFrom CameFrom=Request.ServerVariables("HTTP_REFERER") if (Len(CameFrom) > 0) then numServerNames = 2 serverNames(0) = "http://www.palaceofchance.com" serverNames(1) = "http://palaceofchance.com" bUseCameFrom = true for i=0 to numServerNames-1 serverLen = Len(serverNames(i)) if Left(CameFrom,serverLen) = serverNames(i) then bUseCameFrom = false exit for end if next if bUseCameFrom then Session("camefrom")=CameFrom end if end if ExplicitCameFrom=Request("from") if Len(ExplicitCameFrom) > 0 then Session("explicitcamefrom")=ExplicitCameFrom end if %>