// Curiosissimas
  if ($super_modo==$Modo_total && $lin==$linBra)
  {
    $SQLQuery="SELECT max(seq) as num FROM curiosidades";
    if (($result = mysql_query($SQLQuery)) and ($RStriv= mysql_fetch_array($result)))
    {
      $nl= rand(1,$RStriv["num"]);
      $SQLQuery="SELECT texto FROM curiosidades Where seq=".$nl;
      if (($result = mysql_query($SQLQuery)) and ($RStriv= mysql_fetch_array($result)))
      {
?>| 
 Curiosíssima (Homero Benevides) |  
|            echo $RStriv["texto"]; ?>  [outra] |  
 
  |  
      }
    }
  }
// Aniversários do dia corrente
aniversario();
// Stat-ix
statix();
//  Antes do inicio da época
  if ($anoNul==1)
  {
?>      echo $anoFin; ?>
  |  
 gp_next($anoFin);?>
      echo $titulo[$N_GPRIS]; ?> 
      echo $titulo[$N_MAKES]; ?> &      echo $titulo[$N_DRIVS]; ?> 
     if (0==1)
    {
?>
        echo $titulo[$N_WWW]; ?> 
     } ?>
 // call test_session (N_PST)  ?>
 |  
 
  |  
  }
// Pre-temporada
test_session_section ($N_PST);
//if anoNul = 0 then
  if (0==0)
  {
    if ($anoNul==0)
    {
      $ano=$anoFin;
    }
      else
    {
      $ano=$anoFin-1;
    }
// Campeonato actual
    $SQLQuery="SELECT cp.ngp From cp Where cp.rcp = ".$ano;
    $RSList = mysql_fetch_array(mysql_query($SQLQuery));
    $ngp=$RSList["ngp"];
    $rgp=($ano-1900)*100+$ngp;
    $nogp= GPnome($rgp);
?>
      echo $ano; ?> 
 |  
// Próximo GP
gp_next($ano);
// Ultimo GP disputado
    if ($anoNul==0 && strlen($nogp)>0) {
	echo(" ");
	echo("$nogp ");
	if ($rgp == $GP_rhc_last)
	    echo("         ");
	$SQLQuery="SELECT papi.cla, papi.rpa, papi.rpi, pin.nabr as pi_nome FROM papi INNER JOIN pin ON papi.rpi=pin.rpi where papi.rpa>".($rgp*1000)." and papi.rpa<".($rgp*1000+999)." and papi.cla>=1 and papi.cla<=3 order by papi.cla";
	if (($result = mysql_query($SQLQuery)) and mysql_num_rows($result) > 0) {
	    while ($RSList= mysql_fetch_array($result))
		echo("       " .$RSList["cla"]. "  " .$RSList["pi_nome"]. " ");
	}
    }
// Campeonato de Pilotos
?>      echo $titulo[$N_DCHAM]; ?> 
    $SQLQuery="SELECT cp_cla.pon, cp.ngp, pin.rpi, pin.nabr as pi_nome FROM (cp INNER JOIN cp_cla ON cp.rcp=cp_cla.rcp) inner join pin on cp_cla.ref=pin.rpi where cp_cla.rcp=".$ano." and cp_cla.cref=".$REF_PI." order by cp_cla.id Limit 3";
    if (($result = mysql_query($SQLQuery)) and mysql_num_rows($result) > 0)
    {
      $n=0;
      while ($RSList= mysql_fetch_array($result))
      {
?>       &c=         echo $cmdPIfic; ?>">         echo $RSList["pi_nome"]; ?> (         echo $RSList["pon"]/100; ?>) 
        $n=$n+1;
      }
    }
// Campeonato de Construtores
?>      echo $titulo[$N_CCHAM]; ?> 
    $SQLQuery="SELECT cp_cla.cla, cp_cla.pon, cp.ngp, cn.rcn, cn.rco, cn.rma, can.nome as co_nome, mon.nome as mo_nome FROM (((cp INNER JOIN cp_cla ON cp.rcp=cp_cla.rcp) inner join cn on cp_cla.ref=cn.rcn) inner join can on cn.rco=can.rco) inner join mon on cn.rma=mon.rma where cp_cla.rcp=".$ano." and cp_cla.cref=".$REF_CN." and can.lin=".$linx." and mon.lin=".$linx." order by cp_cla.id Limit 3";
    if (($result = mysql_query($SQLQuery)) and mysql_num_rows($result) > 0)
    {
      $n=0;
      while ($RSList= mysql_fetch_array($result))
      {
        $car=$RSList["co_nome"];
        $mot=$RSList["mo_nome"];
?>       &c=         echo $cmdCMfic; ?>">         echo $car; ?>
        if ($car!=$mot)
        {
          if ($lin==$linJap)
          {
?>E           }
            else
          {
?>/           } ?>&c=           echo $cmdCMfic; ?>">           echo $mot; ?>
        }
?> (         echo $RSList["pon"]/100; ?>) 
        $n=$n+1;
      }
    }
?>      echo $titulo[$N_GPRIS]; ?> 
      echo $titulo[$N_SBYS]; ?>:      echo $titulo[$N_SGRID]; ?> 
      echo $titulo[$N_CLAC]; ?> &      echo $titulo[$N_LARAC]; ?> 
      echo $titulo[$N_DRIVS]; ?> 
     if ($anoNul==0)
    {
?>
        echo $titulo[$N_MAKES]; ?> &        echo $titulo[$N_DRIVS]; ?> 
     } ?>
    if ($titulo[$N_RULES]!="?" && $lin>$linEng)
    {
?>        echo $titulo[$N_RULES]; ?> 
    }
    if (0==1)
    {
?>        echo $titulo[$N_WWW]; ?> 
// call test_session (N_STST)
    } ?>
 |  
 
  |  
  }
// Temporada de testes
// call test_session_section (N_PST)
// test_session_section($N_STST);
?>
 1950-2003 
 |  
    echo $titulo[$N_GPRIS]; ?> 
  if ($lin==$linPor)
  {
?>       Portugal, Brasil 
  }
    else
  if ($lin==$linBra)
  {
?>       Brasil 
  }
    else
  if ($lin==$linIta)
  {
?>       Italia, San Marino 
  }
    else
  if ($lin==$linEsp)
  {
?>       Argentina, España, México 
  }
    else
  if ($lin==$linSue)
  {
?>       Sverige 
  }
    else
  if ($lin==$linHun)
  {
?>       Magyarország 
  }
    else
  if ($lin==$linJap)
  {
?>       “ú–{ 
  }
?>
    echo $titulo[$N_CIRCS]; ?> 
  if ($lin==$linBra)
  {
?>       Interlagos, Jacarepaguá 
  }
    else
  if ($lin==$linIta)
  {
?>       Monza, Enzo e Dino Ferrari 
  }
?>
    echo $titulo[$N_DRIVS]; ?> 
  if ($lin==$linEng)
  {
?>       Where are they now ? 
  }
  if ($titulo[$N_WOMEN]!="?")
  {
?>            echo $titulo[$N_WOMEN]; ?> 
  }
// Photo gallery
  $SQLQuery="SELECT fotos.dat, contactos.copynote FROM fotos inner join contactos on fotos.sig=contactos.sig WHERE fotos.camp=1 and fotos.cref=".$REF_PI." order by fotos.dat desc Limit 1";
  $RSList = mysql_fetch_array(mysql_query($SQLQuery));
?>          echo $titulo[$N_PGAL]; ?>:    echo $titulo[$N_NEW]; ?> (   echo pri_data(fdia($RSList["dat"]),fmes($RSList["dat"]),0,0); ?>) 
  if ($lin==$linChe)
  {
?>            echo $titulo[$N_CAREE]; ?> (R.Pavelka) ![<?     echo $titulo[$N_NEW]; ?>](/pic/new.gif)  
  }
    else
  if (0==1 && $lin==$linHun)
  {
?>            echo $titulo[$N_CAREE]; ?> (E.Zsolt) 
  }
?>          echo $titulo[$N_BORN]; ?> &    echo $titulo[$N_DIED]; ?> 
echo("       $titulo[$N_DDEA] ".chr(10));
?>          echo $titulo[$N_CLACS]; ?> 
          echo $titulo[$N_SBYS]; ?> 
  if ($lin==$linPor)
  {
?>       Portugal, Brasil 
  }
    else
  if ($lin==$linBra)
  {
?>       Brasil 
  }
    else
  if ($lin==$linIta)
  {
?>       Italia 
  }
    else
  if ($lin==$linSue)
  {
?>       Sverige 
  }
    else
  if ($lin==$linFin)
  {
?>       Suomi 
  }
    else
  if ($lin==$linDin)
  {
?>       Danmark 
  }
    else
  if ($lin==$linJap)
  {
?>       “ú–{ 
  }
?>          echo $titulo[$N_CTRYS]; ?> 
    echo $titulo[$N_MAKES]; ?> 
    echo $titulo[$N_ENGS]; ?> 
    echo $titulo[$N_TYRES]; ?> 
 |  
 
  |  
// Non championship races
  if ($zip<10)
  {
?>
      echo $titulo[$N_NONC]; ?> 
 |  
      echo $titulo[$N_YEARS]; ?> 
      echo $titulo[$N_RACES]; ?> 
 |  
 
  |  
   }
// F3000
?>
 F.3000 
 |  
   if (0==1)
  {
?>
 2003:    echo $titulo[$N_RACES]; ?> 
}
   if (0==0)
  {
if (0 == 1) {
?>
      echo pri_data(13,9,0,1); ?>: Monza 
}
?> Monza 
       1  Bjorn Wirdheim 
       2  Patrick Friesacher 
       3  Ricardo Sperafico 
   } if (0==0)
  {?>
 2003:    echo $titulo[$N_CHAM]; ?> 
       Bjorn Wirdheim (78) 
       Ricardo Sperafico (43) 
       Giorgio Pantano (41) 
}
?>
 |  
 
 | 
  | 
// Noticias
  if ($zip<10)
  {
    if ($lin==$linEng && $servidor!="forix-s")
    {
    }
// Francês
    if ($lin==$linFra)
    {
	ask_forix();
	colabora();
    }
    else
// Espanhol
    if ($lin==$linEsp)
    {
?>|  Comentarios |  
    Entrevista con Fritz d'Orey (A.Carvalho) 
    1 de mayo de 1994 (M.Affabili) 
 |  
 
  |  
ask_forix();
colabora();
      if ($tipo_servidor==1)
      {
?>|  Noticias TheF1 |  | 
 |  
 
  |  
      }
    }
    else
// Italiano
    if ($lin==$linIta)
	colabora();
  }
  if ($super_modo==$Modo_total && $lin==$linPor)
	glossario();
// Photo gallery - new!
  $SQLQuery="SELECT fotos.*, contactos.copynote FROM fotos inner join contactos on fotos.sig=contactos.sig WHERE fotos.dat<=".$hiso." and fotos.camp=1 and (fotos.gal='img' or fotos.gal is NULL) and (fotos.cref=".$REF_PA." or fotos.cref=".$REF_GP.") order by fotos.dat desc, fotos.foto Limit 20";
  if (($result = mysql_query($SQLQuery)) and ($RSList = mysql_fetch_array($result)))
  {
    $mm= fmes($RSList["dat"]);
    $dd= fdia($RSList["dat"]);
    $nl= rand(0,19);
    $n=0;
    while($RSList && $n!=$nl)
    {
      $n=$n+1;
      $RSList= mysql_fetch_array($result);
    }
    $foto=$RSList["foto"];
    $copy=$RSList["copynote"];
    $zoom=$RSList["zoom"];
?>
      echo $titulo[$N_PGAL]; ?>:      echo $titulo[$N_NEW]; ?> (     echo pri_data($dd,$mm,0,0); ?>) 
 |  
 | 
    if ($zoom==0)
    {
?>  
    }
      else
    {
?>  
    }
?>     echo $copy; ?> |  |   
/*
// Timesharing
    $anuncio= rand(0,15);
    if ($anuncio<2)
    {
// Richard Macey Artwoork
      if ($lin==$linEng)
      {
?> |   |  
      }
    }
      else
    if ($anuncio<4)
    {
// Paolo Baldinotti
?> Paolo Baldinotti 
     Wallpaper  (       echo pri_data(6,6,0,0); ?>) |  
    }
      else
    {
// TotalPoster
?> TotalPoster 
      |  
    }
// Outras galerias
?> "Sibo"
        break;
      case 1:
?>f=carlos+yamazato">Carlos Yamazato
        break;
      case 2:
?>f=Ferdinand+Trauttmansdorff">Ferdinand Trauttmansdorff
        break;
      case 3:
?>f=Fernando+Passos">Fernando Passos
        break;
      case 4:
?>f=herb+edgecomb">Herb Edgecomb
        break;
    }
?> |   Daniele Amaduzzi
        break;
      case 1:
?>f=Luca+del+Monte">Luca del Monte
        break;
      case 2:
?>f=MPaula">Maria Paula
        break;
      case 3:
?>f=George+Standaar">George Standaar
        break;
      case 4:
?>f=Rob+Ryder">Rob Ryder
        break;
    }
?> |  
*/
?> 
  |  
  }
// Promotions
  if ($zip<10 || $zip==$Zip_ATL)
  {
    if (($lin==$linPor || $lin==$linBra))
    {
?>| 
        if ($lin==$linEng)
      {
?>See also       }
        else
      if ($lin==$linPor || $lin==$linBra)
      {
?>Veja também       } ?>
 |  
      if ($lin==$linPor || $lin==$linBra)
      {
?>
        if ($lin==$linPor)
        {
?>
  GP Áustria – Entre a emoção e a razão... (J.M.Barros, 17 Maio) 
  Ordens de equipa, sempre existiram! (J.M.Barros, 17 Maio) 
  A germanização da Fórmula 1 (J.C.Costa, 23 Jun) 
        }
        if ($lin==$linBra)
        {
?>
   Entrevista com Fritz d'Orey (A.Carvalho, 20 Jan) 
  A germanização da Fórmula 1 (J.C.Costa, 23 Jun) 
        }
?>
  As Heranças (A.Rowlands) 
  Trivia: Nelson Piquet 
?>
      }
?>
 |  
 
  |  
    }
  }
// Comentários
  if (0==1 && ($lin==$linEsp || $lin==$linIta))
  {
/*
    $SQLQuery="SELECT texto.ref, texto.cref, texto.data, texto.tipo, contactos.copynote FROM texto INNER JOIN contactos on texto.autor=contactos.name Where (texto.cref=".$REF_PA." or texto.cref=".$REF_GP.") and texto.lin=".$lin." order by texto.data desc, texto.cref, texto.ref Limit 6";
$dbc->Execute    $SQLQuery);
    if (!$RSList->EOF)
    {
?>
        echo $titulo[$N_COMM]; ?> 
 |  
      while(!$RSList->EOF)
      {
        $ref=$RSList["ref"];
        $tipo=$RSList["tipo"];
        $aa=intval($RSList["data"]/512);
        $mm=intval(($RSList["data"]-$aa*512)/32);
        $dd=$RSList["data"]-$aa*512-$mm*32;
?>         echo $pri_data[$dd][$mm][0][0]; ?>  gp.asp?           echo $args; ?>&r=           echo $ref; ?>&c=
          if ($tipo==$TXT_RHC)
          {
?>             echo $cmdGPrhc; ?>
          }
            else
          if ($tipo==$TXT_FAT)
          {
?>             echo $cmdGPfat; ?>
          }
            else
          if ($tipo==$TXT_COM)
          {
?>             echo $cmdGPfic; ?>
          }
            else
          if ($tipo==$TXT_VAV)
          {
?>             echo $cmdGPvav; ?>
          }
?>">           echo 1900+intval($ref/100); ?>            echo GPnome($ref); ?>
          if ($tipo==$TXT_RHC)
          {
?> -              echo $titulo[$N_RHC]; ?>
          }
            else
          if ($tipo==$TXT_FAT)
          {
?> - Facts & Trivia
          }
            else
          if ($tipo==$TXT_VAV)
          {
?> -              echo $titulo[$N_LAPC]; ?>
          }
        }
          else
        if ($RSList["cref"]==$REF_PA)
        {
          $SQLQuery="SELECT papi.rpa, papi.rpi, ngn.nome, pin.nabr FROM (papi INNER JOIN ngn on ngn.rng=papi.rng) inner join pin on pin.rpi=papi.rpi Where papi.rpa=".$ref." and ngn.lin=".$lin;
$dbc->Execute          $SQLQuery);
          if (!$RSList2->EOF)
          {
?>pa.asp?             echo $args; ?>&r=             echo $RSList2["rpa"]; ?>&c=             echo $cmdPAfic; ?>">             echo 1900+intval($RSList2["rpa"]/100000); ?>              echo $RSList2["nome"]; ?> -              echo $RSList2["nabr"]; ?>
          }
$RSList2->Close;
          $RSlist2=null;
        }
?>  (         echo $RSList["copynote"]; ?>) 
$RSList->MoveNext;
      }
?> |  
  
    }
*/
  }
// Statistics
?> |      echo $titulo[$N_STATS]; ?>
  |  
 Wildsoft F1 Ranking 
    echo $titulo[$N_ANNI]; ?> 
    echo $titulo[$N_DSCH]; ?> 
 Top 6,    echo $titulo[$N_WINS]; ?>,    echo $titulo[$N_POLES]; ?> 
    echo $titulo[$N_SEQS]; ?> 
 |  
 
  |  
// Palavras de pilotos
last_words();
?>
    if ($lin==$linEpt)
  {
?> TTT   }
    else
  {
?>WWW   } ?> 
 |  
   if ($lin!=$linPor && $lin!=$linBra && $lin!=$linRus)
  {
?> Atlas F1 News 
       Atlas F1 Magazine 
  }
    else
  if ($lin==$linRus)
  {
?>
 Atlas F1 - Æóðíàë î Ôîðìóëå 1 
       Íîâîñòè î Ôîðìóëå 1 
       Áèîãðàôèè ïèëîòîâ Ôîðìóëû 1 
     if (0==1)
    {
?>
 Ïðåäâàðèòåëüíûé îáçîð Ãðàí Ïðè Èòàëèè 
    }
  }
?>    echo $titulo[$N_WWW]; ?> 
 |  
 
  |  
// Sugestao de leitura
leitura();
?>
 ++ 
 |  
  if ($lin==$linPor || $lin==$linBra)
  {
?> As bandeiras na Fórmula 1 
  }
  if ($lin==$linEng || $lin==$linFra || $lin==$linEsp || $lin==$linIta || $lin==$linAle)
  {
    switch ($lin)
    {
      case       $linEng:
        $qia="FIA Q&A";
        break;
      case       $linFra:
        $qia="FIA: questions et réponses";
        break;
      case       $linEsp:
        $qia="FIA: preguntas y respuestas";
        break;
      case       $linIta:
        $qia="FIA: domande e risposte";
        break;
      case       $linAle:
        $qia="FIA: Fragen und Antworten";
        break;
    }
?>      echo $qia; ?> 
  }
    echo(" ");
    echo("$titulo[$N_SEAR], $titulo[$N_SEAR]-$titulo[$N_PGAL] ![\"$titulo[$N_NEW]\"](\"/pic/new.gif\")  ");
    echo(" $titulo[$N_JUMP] ");
   if ($zip==$Zip_BMW) {
?>
  }
  if ($zip<10 || $zip==$Zip_ATL)
  {
?>
 Daniele Amaduzzi 
     if (0 == 1 and $lin==$linEng)
    {
?>
 Share your knowledge 
     } ?>
      echo $titulo[$N_HOWL]; ?> 
     if ($lin==$linPor)
    {
?>
 Forix @ Público 
     } ?>
      echo $titulo[$N_SLAN]; ?> 
     if ($zip<10 && $zip!=0)
    {
?>
     } ?>
     if ($zip<10 && $zip!=1)
    {
?>
     } ?>
     if ($zip<10 && $zip!=2)
    {
?>
     } ?>
   } ?>
 |  
 
 | 
   if ($zip<10 or $zip == $Zip_BMW or $zip == $Zip_TAG)
  {
?>
  | 
// Subscriptions
    switch ($lin)
    {
      case       $linPor:
        $tit_subs=array("Contacto","Dados pessoais","Renovação","Sair","Identificação","Utilizador","Senha","Automático?","Não é assinante do FORIX?","Esqueceu-se da sua senha?","clique aqui","Enviar");
        break;
      case       $linBra:
        $tit_subs=array("Contato","Dados pessoais","Renovar","Sair","Identificação","Utilizador","Password","Automático?","Não é assinante do FORIX?","Esqueceu sua password?","toque aqui","Enviar");
        break;
      case       $linFra:
        $tit_subs=array("Contactez-nous","Mise à jour de votre identité","Modifiez / Renouvelez votre abonnement","Déconnexion","Connexion","Nom d'utilisateur","Mot de passe","Automatique?","Non abonné à FORIX ?","Oublié votre mot de passe ?","Cliquez ici","Envoyez");
        break;
      case       $linEsp:
        $tit_subs=array("Contacte con FORIX","Modificar perfil de usuario","Renovar/Extender","Salir","Entrar","Nombre de usuario","Contraseña","Automático?","¿No está suscrito a FORIX?","¿Olvidó su contraseña?","pulse aquí","Enviar");
        break;
      case       $linIta:
        $tit_subs=array("Contatta l'assistenza","Cambia i tuoi dati","Aggiorna / Rinnova","Logout","Ingresso","Utente","Password","Automatico?","Non sei abbonato a FORIX?","Dimenticato la password?","Clicca qui","Invia");
        break;
      case       $linAle:
        $tit_subs=array("Kontakt","Update-Details","Erweitern / Erneuern","Logout","Login","Benutzername","Passwort","Auto-Login?","Noch kein FORIX-Mitglied?","Passwort vergessen?","hier klicken","Senden");
        break;
      case       $linHol:
        $tit_subs=array("Hulp nodig?","Je abonnement veranderen","Uitbreiden / Verlengen","Uitloggen","Inloggen","Gebruikersnaam","Wachtwoord","Automatisch inloggen?","Geen abonnee van FORIX?","Je wachtwoord vergeten?","Klik hier","Log in");
        break;
      case       $linHun:
        $tit_subs=array("Kapcsolat a készitokkel","Részletek frissitése","Felülírás / Megujitás","Kijelentkezés","Bejelentkezés","Felhasználónév","Jelszó","Automatikus bejelentkezés?","Nem vagy még tagja a FORIX-nak?","Elfelejtetted a jelszavad?","kattints ide","Belépés");
        break;
      case       $linRom:
        $tit_subs=array("Serviciul de asistentã","Detalii Update","Reînnoieste","Log Out","Login","Nume utilizator","Parolã","Auto login?","Încã n-ai subscris la FORIX?","Ai uitat parola?","click aici","Trimite");
        break;
      case       $linLet:
        $tit_subs=array("Contact Support","Update Details","Upgrade / Renew","Log Out","Login","Lietotâjvârds","Parole","Auto login?","Not subscribed to FORIX?","Forgot your password?","click here","Submit");
        break;
      default:
        $tit_subs=array("Contact Support","Update Details","Upgrade / Renew","Log Out","Login","Username","Password","Auto login?","Not subscribed to FORIX?","Forgot your password?","click here","Submit");
        break;
    }
    if ($username!="")
    {
?>|         echo $username; ?> |  
	
	
	            echo $tit_subs[0]; ?> 
	            echo $tit_subs[1]; ?> 
	            echo $tit_subs[2]; ?> 
	            echo $tit_subs[3]; ?>
	 | 
	 
tab_bar2(6);
?> 
  |  
    }
      else
    {
      if (LOGIN_ACTIVE)
      {
	echo("
tab_bar2(6);
?> 
  |  
      }
    }
//  Mensagens de Natal e Ano Novo
    if ($hmes==12 && $hdia>14 && $hdia<=25)
    {
?>|         echo $titulo[$N_NATAL]; ?> |  
  |  
 
  |  
    }
      else
    if (($hmes==12 && $hdia>25) || ($hmes==1 && $hdia<7))
    {
?>|         echo $titulo[$N_ANOVO]; ?> |  
  |  
 
  |  
    }
// Partners
    if ($lin==$linBra)
    {
?>
  |  
 
  |  
  |  
 
  |  
    }
// Special promotions
    if ($zip == $Zip_TAG) {
	echo("  |  ");
	echo(" 
  |  ");
    } else {
	if ($lin == $linEsp) {
	    echo("  |  ");
	    echo(" 
  |  ");
	}
	echo("|  Diego García |  ");
	echo("  |  ");
	echo(" 
  |  ");
    }
// F1 le logiciel
    if ($lin==$linFra)
    {
?>
|  F1 Le Logiciel |  
  |  
 
  |  
// Autosprint
    }
      else
    if ($lin==$linIta)
    {
?>|  Autosprint |  
  |  
 
  |  
// R.Pavelka
    }
      else
    if (0 == 1 and $lin==$linChe)
    {
?>  |  
 
  |  
    }
// Skyscraper 24/7
    if ($pub_part==1 && $tipo_servidor==1 && $serv_addr!=$serv_AtlasF1)
    {
?>| 
 |  
    }
?>  | 
  }
?>