<% 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 ' '%>
Berühmtheit Momentfotografie
Spielen Berühmtheit Momentfotografie

Beschreibung:

Nehmen Sie die Sterne, wenn sie an ihrem besten und ihrem niedrigsten sind! Aber seien Sie vorsichtig, so werden Sie sich nicht verfangen. Verursacht, dass Sie eine Berühmtheit Momentfotografie sind!

Anleitung:

Benutzen Sie Ihre MAUS, um zu spielen. LINKES KLICKEN, um Bilder zu klicken. Verfangen Sie sich nicht von Wachmänner, sonst wird das Spiel nie fertig sein. Klicken Sie auf ‚Kameraspeicher‘ an, um die Bilder zu verkaufen und um Geld zu verdienen. Kaufen Sie Ausrüstungen vom Geschäft, sich Bilder zu erholen. Sammeln Sie genug Geld, um das Studio auszukaufen und um irgendein Bild zu nehmen, das Sie wollen!