function extraiScript(texto){
//desenvolvido por Skywalker.to, Micox e Pita.
//http://forum.imasters.uol.com.br/index.php?showtopic=165277
var ini, pos_src, fim, codigo;
var objScript = null;
ini = texto.indexOf('<script', 0)
while (ini!=-1){
var objScript = document.createElement("script");
//Busca se tem algum src a partir do inicio do script
pos_src = texto.indexOf(' src', ini)
ini = texto.indexOf('>', ini) + 1;
 
//Verifica se este e um bloco de script ou include para um arquivo de scripts
if (pos_src < ini && pos_src >=0){//Se encontrou um "src" dentro da tag script, esta e um include de um arquivo script
//Marca como sendo o inicio do nome do arquivo para depois do src
ini = pos_src + 4;
//Procura pelo ponto do nome da extencao do arquivo e marca para depois dele
fim = texto.indexOf('.', ini)+4;
//Pega o nome do arquivo
codigo = texto.substring(ini,fim);
//Elimina do nome do arquivo os caracteres que possam ter sido pegos por engano
codigo = codigo.replace("=","").replace(" ","").replace("\"","").replace("\"","").replace("\'","").replace("\'","").replace(">","");
// Adiciona o arquivo de script ao objeto que sera adicionado ao documento
objScript.src = codigo;
}else{//Se nao encontrou um "src" dentro da tag script, esta e um bloco de codigo script
// Procura o final do script
fim = texto.indexOf('</script>', ini);
// Extrai apenas o script
codigo = texto.substring(ini,fim);
// Adiciona o bloco de script ao objeto que sera adicionado ao documento
objScript.text = codigo;
}
 
//Adiciona o script ao documento
document.body.appendChild(objScript);
// Procura a proxima tag de <script
ini = texto.indexOf('<script', fim);
 
//Limpa o objeto de script
objScript = null;
}
}

var url4;
var xmlHttp4=null;
function Carrega4(str4)
{
xmlHttp4=GetXmlHttpObject();
url4=str4;
xmlHttp4.onreadystatechange=stateChanged4;
xmlHttp4.open("GET",url4,true);
xmlHttp4.send(null);
return url4;
}


function stateChanged4()
{
if (xmlHttp4.readyState==1)
{
var resultado4 = document.getElementById("conteudo4").innerHTML="<div align=center><img src=images/loading.gif width=220 height=19></div>"
}
if (xmlHttp4.readyState==4 && xmlHttp4.status == 200)
{
var resultado4 = document.getElementById("conteudo4").innerHTML=xmlHttp4.responseText;
//executar scripts
texto=unescape(xmlHttp4.responseText.replace(/\+/g," "));
document.getElementById("conteudo4").innerHTML=texto;
extraiScript(texto);
}
}


function GetXmlHttpObject()
{
if (window.XMLHttpRequest) {  
           a=new XMLHttpRequest(); }
       else {  
         try {  
            a=new ActiveXObject("Msxml4.XMLHTTP");  
         }    
         catch(e) {  
           try {  
              a=new ActiveXObject("Microsoft.XMLHTTP");
           }    
           catch(e) {
              a=false;  
           }  
         }  
       }  
       return a;  
     }