% ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' ''''' 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.play-blackjack-online-casino.com" serverNames(1) = "http://play-blackjack-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 %>
| |
|
|
|
|
|
|
|
![]() |
![]() |
![]() |
![]() |
![]() |
![]() |
||
| |
|
|
|
|
|
|
|
|
About Us
|
| |
|
|
|
|
|
|
|
| |
|
|
|
|
|
|
|
| |
|
|
|
|
|
|
|