xmlhttp

Seguinte to fazendo um site da jovem pan (afiliada) e preciso de pegar toda a página do pânico, para não precisar fazer frame, to usando este código, que pega a página certinho, mas as imagens perdem o caminho e queria mudar a cor de fundo, como faço isso?<%Function BinaryToString(strBinary) Dim intCount, xBinaryToString xBinaryToString ="" For intCount = 1 to LenB(strBinary) xBinaryToString = xBinaryToString & chr(AscB(MidB(strBinary,intCount,1))) Next BinaryToString = xBinaryToString End Function Function loadURL(URL) set xmlHttp=server.CreateObject("Microsoft.XMLHTTP") xmlHttp.open "GET",URL,false xmlHttp.send loadURL="erro" if xmlHttp.readyState=4 then loadURL=BinaryToString(xmlHttp.responseBody) end ifEnd Functionpagina = "http://jovempanfm.virgula.com.br/panico/"cont_html = loadURL(pagina)response.write cont_html%>