<%
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
''''' This code goes on the casino home page, which should be configured as an ASP page '''''''
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Dim serverNames(10)
Dim numServerNames
Dim serverLen
Dim bUseCameFrom
CameFrom=Request.ServerVariables("HTTP_REFERER")
if (Len(CameFrom) > 0) then
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
''''''''''''' Change the parameters below per casino '''''''''''
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'''' How many base URLs for the web site are there? '''''''
numServerNames = 2
''''' List all possible base URLs for the web site here '''''
serverNames(0) = "http://www.nevada-online-casino.com"
serverNames(1) = "http://nevada-online-casino.com"
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
''''''''''''' Change the parameters above per casino '''''''''''
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'''''' This makes sure that we only save external referrers '''''
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
'''''' This saves the external HTTP referrer '''''
if bUseCameFrom then
Session("camefrom")=CameFrom
end if
end if
'''' This saves an explicit referrer (from=##) ''''''
ExplicitCameFrom=Request("from")
if Len(ExplicitCameFrom) > 0 then
Session("explicitcamefrom")=ExplicitCameFrom
end if
%>
Caribbean Poker Palace Casino link exchange program
This
is a section created for the exchange of general informational
links related to Sportsbooks, Casinos and others. If you would
like to place your link in this page send us an email to links@caribbeanpokerpalacecasino.com
