<% 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 ' '%>
Meuchelmörder

Beschreibung:

Schafft Ihre eigene Höhe und töten Sie die Feinde IHR Weg!

Anleitung:

Stellen Sie die Elemente und zeichnen die Linie um gewünschter Weg zu schaffen.