<%
browsertype=LCase(Request.ServerVariables("HTTP_USER_AGENT"))
query_string = Request.ServerVariables("QUERY_STRING")
if ( (InStr(browsertype, "kindle") + InStr(browsertype, "silk") + InStr(browsertype, "kindle fire")) >0 ) then
Response.redirect "http://www.games2win.com/en/amazon-games/kindle-fire-game-apps.asp"
End If
if ( (InStr(browsertype, "ipad")) >0 ) then
Response.redirect "http://www.games2win.com/en/ios-games/ios-ipad-game-apps.asp"
End If
if ( (InStr(browsertype, "android")) >0 ) then
if((InStr(query_string,"utm_source=game"))>0)then
'Response.redirect "http://www.games2win.com/en/android-games/android-game-apps.asp"
Response.redirect "http://www.games2win.com/corporate/privacy-policy.asp"
else
Response.redirect "http://www.games2winmedia.com/our-games"
End if
End If
if ( (InStr(browsertype, "iphone") + InStr(browsertype, "ipod") + InStr(browsertype, "itouch")) >0 ) then
Response.redirect "http://www.games2win.com/en/ios-games/ios-iphone-game-apps.asp"
End If
if ( (InStr(browsertype, "android")) >0 ) then
if((InStr(query_string,"privacy-policy.asp"))>0)then
Response.redirect "https://www.games2win.com/corporate/privacy-policy-mobile.asp"
else
Response.redirect "https://www.games2win.com/corporate/privacy-policy.asp"
End if
End If
if ( (InStr(browsertype, "iphone") + InStr(browsertype, "ipod") + InStr(browsertype, "itouch")) >0 ) then
if((InStr(query_string,"privacy-policy.asp"))>0)then
Response.redirect "https://www.games2win.com/corporate/privacy-policy-mobile.asp"
else
Response.redirect "https://www.games2win.com/corporate/privacy-policy.asp"
End if
End If
if ( (InStr(browsertype, "windows phone") ) >0 ) then
Response.redirect "http://www.games2win.com/en/windows-games/windows-game-apps.asp"
End If
if ( (InStr(browsertype, "windows tablet") + InStr(browsertype, "touch")) >0 ) then
Response.redirect "http://www.games2win.com/en/windows-games/windows-tab-game-apps.asp"
End If
Response.redirect "http://www.games2winmedia.com/our-games"
%>
<%
SetLanguage = Request.Cookies("language")
'Response.Write(SetLanguage)
page = split(Request.ServerVariables("URL"),"/")
section_name = page(2)
section_name = replace(section_name,".asp","")
'Response.Write(Request.ServerVariables("HTTP_ACCEPT_LANGUAGE"))
'if SetLanguage =""then
SetLanguage = page(1)
'end if
if SetLanguage <>"" then
SetLanguage = SetLanguage
'Response.Write(SetLanguage)
else
SetLanguage = "en"
end if
if SetLanguage ="en" then
char_set = "UTF-8"
set appDict = appDictEnglish
char_code = 1252
end if
if SetLanguage ="zh" then
char_set = "UTF-8"
set appDict = appDictChinese
char_code = 65001
end if
if SetLanguage ="fr" then
char_set = "UTF-8"
set appDict = appDictFrench
char_code = 65001
end if
if SetLanguage ="es" then
char_set = "UTF-8"
set appDict = appDictSpenish
char_code = 65001
end If
if SetLanguage ="de" then
char_set = "UTF-8"
set appDict = appDictGerman
char_code = 65001
end If
if SetLanguage ="it" then
char_set = "UTF-8"
set appDict = appDictItalian
char_code = 65001
end If
if SetLanguage ="nl" then
char_set = "UTF-8"
set appDict = appDictDutch
char_code = 65001
end If
if SetLanguage ="ru" then
char_set = "UTF-8"
set appDict = appDictRussian
char_code = 65001
end If
if SetLanguage ="no" then
char_set = "UTF-8"
set appDict = appDictNorwegian
char_code = 65001
end If
if SetLanguage ="sv" then
char_set = "UTF-8"
set appDict = appDictSwedish
char_code = 65001
end If
if SetLanguage ="da" then
char_set = "UTF-8"
set appDict = appDictDanish
char_code = 65001
end If
if SetLanguage ="fi" then
char_set = "UTF-8"
set appDict = appDictFinnish
char_code = 65001
end If
if SetLanguage ="pl" then
char_set = "UTF-8"
set appDict = appDictPolish
char_code = 65001
end If
if SetLanguage ="el" then
char_set = "UTF-8"
set appDict = appDictGreek
char_code = 65001
end If
if SetLanguage ="br" then
char_set = "UTF-8"
set appDict = appDictPortuguese
char_code = 65001
end If
if SetLanguage ="ja" then
char_set = "UTF-8"
set appDict = appDictJapanese
char_code = 65001
end If
if SetLanguage ="cs" then
char_set = "UTF-8"
set appDict = appDictCzech
char_code = 65001
end if
if SetLanguage ="ko" then
char_set = "UTF-8"
set appDict = appDictKorean
char_code = 65001
end if
if SetLanguage ="tw" then
char_set = "UTF-8"
set appDict = appDictChineseTaiwan
char_code = 65001
end if
if SetLanguage ="tr" then
char_set = "UTF-8"
set appDict = appDictTurkish
char_code = 65001
end if
if SetLanguage ="hu" then
char_set = "UTF-8"
set appDict = appDictHungarian
char_code = 65001
end if
if SetLanguage ="bg" then
char_set = "UTF-8"
set appDict = appDictBulgarian
char_code = 65001
end if
if SetLanguage ="ro" then
char_set = "UTF-8"
set appDict = appDictRomanian
char_code = 65001
end if
if SetLanguage ="sk" then
char_set = "UTF-8"
set appDict = appDictSlovak
char_code = 65001
end if
session("lang") = SetLanguage
'Check whether the page is home page, section page or game page
if ubound(page) =2 then
'Include section file - desi, bolyywod, etc...
include_file = "/"&SetLanguage&"/gamemenu_"§ion_name&".html"
'For Home page
featured_include_file = "/"&SetLanguage&"/"&"homepage_feat.html"
teen_include_file = "/"&SetLanguage&"/"&"homepage_teen.html"
exotic_include_file = "/"&SetLanguage&"/"&"homepage_desi.html"
international_include_file = "/"&SetLanguage&"/"&"homepage_intl.html"
misc_include_file = "/"&SetLanguage&"/"&"homepage_misc.html"
bollywood_include_file = "/"&SetLanguage&"/"&"homepage_blyw.html"
cricket_include_file = "/"&SetLanguage&"/"&"homepage_crkt.html"
sports_include_file = "/"&SetLanguage&"/"&"homepage_sprt.html"
shooting_include_file = "/"&SetLanguage&"/"&"homepage_shot.html"
logic_include_file = "/"&SetLanguage&"/"&"homepage_logc.html"
action_include_file = "/"&SetLanguage&"/"&"homepage_actn.html"
'Response.Write(include_file)
'Response.End()
' Game page then
else
Set xmlGamePage = Server.CreateObject("Microsoft.XMLDOM")
xmlGamePage.async = False
end if
Response.CodePage = char_code
response.Charset= char_set
'Look UP Function for Cacheing XML values
function LookUp(keyname)
LookUp = empty
If appDict.Exists(keyname)= True then
LookUp = appDict.item(keyname)
Else
Set xmlCommon = Server.CreateObject("Microsoft.XMLDOM")
CommonFilePath = "/"&SetLanguage&"/"&"common.xml"
xmlCommon.async = False
xmlCommon.load (Server.MapPath(CommonFilePath))
'Response.Write(keyname)
'Response.End()
'Find Item in DOM, FoundItem
FoundItem = xmlCommon.getElementsByTagName(keyname).item(0).text
'Put FoundItem into Global Array
appDict.Add keyname, FoundItem
'Return = FoundItem.value
LookUp = FoundItem
end if
end function
'
' ' For Common Language and HomePage **********************************************************
'
' 'Response.Buffer = True
'
' 'Set xmlCommon = Server.CreateObject("Microsoft.XMLDOM")
'' Set xmlHome = Server.CreateObject("Microsoft.XMLDOM")
'
'
' SetLanguage = Request.Cookies("language")
' if SetLanguage ="" then
' SetLanguage = "en"
' end if
' '
'' CommonFilePath = "/"&SetLanguage&"/"&"common.xml"
'' GameListFilePath = "/"&SetLanguage&"/"&"homepage.xml"
''
'' xmlCommon.async = False
'' xmlHome.async = False
' Dim xmlCommon
' if SetLanguage ="en" then
' char_set = "ISO-8859-1"
' 'xmlCommon1 = Application("appDict")
' char_code = 1252
' end if
' if SetLanguage ="zh" then
' char_set = "gb2312"
'
' char_code = 936
'
' end if
' if SetLanguage ="fr" then
' char_set = "ISO-8859-1"
'
' char_code = 1252
' end if
' if SetLanguage ="sp" then
' char_set = "ISO-8859-1"
'
' char_code = 1252
' end if
'
' 'page = split(Request.ServerVariables("URL"),"/")
' 'Response.Write(xmlCommon1.value)
' 'Response.Write "hello"
'
' 'Response.Write(xmlCommon.getElementsByTagName("featured_game_tab").item(0).text)
' 'Response.End()
'
' 'Set objLstFeaturedTab = xmlHome.getElementsByTagName("featured_online_games_tab")
'' Set objLstTeenTab = xmlHome.getElementsByTagName("teen_games_tab")
'' Set objLstExoticTab = xmlHome.getElementsByTagName("exotic_games_tab")
'' Set objLstInternationalTab = xmlHome.getElementsByTagName("international_games_tab")
'' Set objLstMiscellaneousTab = xmlHome.getElementsByTagName("miscellaneous_games_tab")
'' Set objLstBollywoodTab = xmlHome.getElementsByTagName("bollywood_games_tab")
'' Set objLstCricketTab = xmlHome.getElementsByTagName("cricket_games_tab")
'' Set objLstSportsTab = xmlHome.getElementsByTagName("sports_games_tab")
'' Set objLstShootingTab = xmlHome.getElementsByTagName("shooting_games_tab")
'' Set objLstLogicTab = xmlHome.getElementsByTagName("logic_games_tab")
'
' 'Response.Write( objLst(0)
' 'Response.Write(objLstFeaturedTab.length)
' 'Response.End()
'
' 'Set objLst = xml.getElementsByTagName("header")
'
' 'headingtag = xmlCommon.getElementsByTagName("headingtag").item(0).text
' 'hometab = xmlCommon.getElementsByTagName("hometab").item(0).text
' 'featuredtab = xmlCommon.getElementsByTagName("featuredtab").item(0).text
' 'Response.Write(headingtag)
' 'Set xmlCommon = Nothing
'
'%>
