<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%> <% dim strReferer, strTarget strReferer = Request.ServerVariables("http_REFERER") If ( InStr(strReferer, "/main/") > 0 ) Then strTarget = Replace(strReferer, "/main/", "/mainfr/") End If If ( StrComp(strReferer, "http://www.hajinformation.com/", 1) = 0 ) Then strTarget = "http://www.hajinformation.com/indexfr.htm" End If If ( StrComp(strReferer, "http://hajinformation.com/", 1) = 0 ) Then strTarget = "http://www.hajinformation.com/indexfr.htm" End If If ( InStr(strReferer, "index.htm") > 0 ) Then strTarget = Replace(strReferer, "index.htm", "indexfr.htm") End If If ( InStr(strReferer, "indexfr.htm") > 0 ) Then strTarget = Replace(strReferer, "indexfr.htm", "index.htm") End If If ( InStr(strReferer, "hajj_agents.php") > 0 ) Then strTarget = Replace(strReferer, "hajj_agents.php", "hajj_agents_fr.php") End If If ( InStr(strReferer, "umrah_agents.php") > 0 ) Then strTarget = Replace(strReferer, "umrah_agents.php", "umrah_agents_fr.php") End If If ( InStr(strReferer, "get_news.php") > 0 ) Then strTarget = Replace(strReferer, "get_news.php", "get_news_fr.php") End If If ( InStr(strReferer, "search_site.php") > 0 ) Then strTarget = Replace(strReferer, "search_site.php", "search_site_fr.php") strTarget = Replace(strTarget, "lang=0", "lang=1") End If If ( InStr(strReferer, "search_news.php") > 0 ) Then strTarget = Replace(strReferer, "search_news.php", "search_news_fr.php") End If If ( InStr(strReferer, "display_news.php") > 0 ) Then strTarget = Replace(strReferer, "display_news.php", "display_news_fr.php") End If If ( InStr(strReferer, "flashdaybyday.htm") > 0 ) Then strTarget = Replace(strReferer, "flashdaybyday.htm", "flashdaybydayfr.htm") End If If ( InStr(strReferer, "flashdaybydayfr.htm") > 0 ) Then strTarget = Replace(strReferer, "flashdaybydayfr.htm", "flashdaybyday.htm") End If If ( InStr(strReferer, "/mainfr/") > 0 ) Then strTarget = Replace(strReferer, "/mainfr/", "/main/") End If If ( InStr(strReferer, "_fr.php") > 0 ) Then strTarget = Replace(strReferer, "_fr.php", ".php") strTarget = Replace(strTarget, "lang=1", "lang=0") End If If ( InStr(strReferer, "site_map.htm") > 0 ) Then strTarget = Replace(strReferer, "site_map.htm", "site_mapfr.htm") End If If ( InStr(strReferer, "site_mapfr.htm") > 0 ) Then strTarget = Replace(strReferer, "site_mapfr.htm", "site_map.htm") End If If ( len(strTarget) = 0 ) Then strTarget = strReferer End If Response.Redirect(strTarget) %>