<%
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
%>
