<?
include ('fxinit.php');

$key_gerry = 103564;
if ($key <> $key_gerry)
    include ('login_inc.php');
else
    include ('fxconn.php');

include ('actual.php');
include ('fxtitu.php');
include ('comandos.php');
include ('fxheta.php');

include ("ng_util.php");
include ("nc_util.php");
include ("pi_util.php");
include ("eq_util.php");
include ("co_util.php");
include ("mo_util.php");
include ("pn_util.php");
include ("util.php");


$cmd=-1;
$ano=-1;
$rng=-1;
$rnc=-1;
$rpi=-1;
$req=-1;
$rco=-1;
$rma=-1;
$rrca=-1;
$rpn=-1;
$rna=-1;
$m_eq=-1;
$ini_dos=0;
$trpi = 0;

$modo=strtolower(trim(get_arg("cmd")));
$modo=str_replace("+"," ",$modo);
if (strlen($modo)>0)
{

  if (!(strpos("words",$modo) === false))
  {
    $cmd=2;
  }
    else
  if (!(strpos("photos",$modo) === false))
  {

    $cmd=3;
    $fotografo=str_replace("+"," ",get_arg("p"));
    $dias=intval(get_arg("day"));
    if ($dias>0 && $dias<=60)
    {

      $inicio=$Hoje;  // $DateAdd["d"][-$dias][$Hoje];
      $ini_dos=0; // (strftime("%Y")$inicio-1980)*512+strftime("%m")$inicio*32+$Day[$inicio];
    }

  }
    else
  if (!(strpos("comments",$modo) === false))
  {

    $cmd=4;
  }

}


log_page($REF_GOGO,0,$cmd);

if (get_arg("mod")!="")
{
  $rnc= NCref(get_arg("cir"));
  $nonc= NCnome($rnc);
}

if (get_arg("y")!="")
{
  $oano="=";
  $ano=get_arg("y");
  if (!is_numeric(substr($ano,0,1)))
  {
    $oano=substr($ano,0,1);
    $ano=substr($ano,strlen($ano)-(strlen($ano)-1));
  }

  if (is_numeric($ano))
  {
    $ano=intval($ano);
  }
    else
      $ano=0;
}

if ($ano<$anoIni)
    $ano=$ano+1900;

if ($ano<$anoIni || $ano>$anoFin)
    $ano=-1;

// Damage control
if ($key == $key_gerry)
    $ano = $anoFin;

if (get_arg("gp")!="")
{
  $rng= NGref(get_arg("gp"));
  $nong= NGnome($rng);
}
  else
if (get_arg("rng")!="")
{
  $rng=get_arg("rng");
  $nong= NGnome($rng);
}


if (get_arg("cir")!="")
{
  $rnc= NCref(get_arg("cir"));
  $nonc= NCnome($rnc);
}

if (get_arg("dri")!="")
{
  $rpi= PIref(get_arg("dri"));
  $pi_nome= PInome($rpi);
}
  else
if (get_arg("rpi")!="")
{
  $pi_nome= PInome(get_arg("rpi"));
  $rpi= PIref($pi_nome);
  $pi_nome= PInome($rpi);
}
  else
if (get_arg("cty")!="")
{

  $rna= Pais_cod(get_arg("cty"));
  $cy_nome= Pais($rna);
}


if (get_arg("ent")!="")
{
  if (get_arg("ent")=="y")
  {
    $m_eq=1;
  }
    else
  {
    $req= EQref(get_arg("ent"));
    $eq_nome= EQnome($req);
  }
}
  else
if (get_arg("req")!="")
{
  $req=get_arg("req");
  $eq_nome= EQnome($req);
}

if (get_arg("mak")!="")
{

  $rco= COref(get_arg("mak"));
  $ma_nome= COnome($rco);
}
  else
if (get_arg("rma")!="")
{
  $rco=get_arg("rma");
  $ma_nome= COnome($rco);
}

if (get_arg("eng")!="")
{
  $rma= MOref(get_arg("eng"));
  $mo_nome= MOnome($rma);
}
  else
if (get_arg("rmo")!="")
{
  $rma=get_arg("rmo");
  $mo_nome= MOnome($rma);
}


if (get_arg("typ")!="")
{
  $rrca= CAref($rco,get_arg("typ"));
  if ($rrca>0)
  {
    $ca_nome= CAnome($rrca);
    $rco=-1;
  }
}

if (get_arg("rca")!="")
{
  $rrca=intval(get_arg("rca"));
  $ca_nome= CAnome($rrca);
}

if (get_arg("tyr")!="")
{
  $rpn= PNref(get_arg("tyr"));
  $pn_nome= PNnome($rpn);
}
else
if (get_arg("rpn")!="")
{
  $rpn=get_arg("rpn");
  $pn_nome= PNnome($rpn);
}

if (get_arg("tyr")=="x")
{
  $tp=1;
}
  else
{
  $tp=0;
}

$stat = intval(get_arg("stat"));

$cgre=get_arg("grid");
if ($cgre=="")
{
  $ogre="...";
}
  else
{
  if (!is_numeric(substr($cgre,0,1)))
  {
    $ogre=substr($cgre,0,1);
    $cgre=substr($cgre,strlen($cgre)-(strlen($cgre)-1));
  }
    else
  {
    $ogre="=";
  }
}


$ccla=get_arg("race");
if ($ccla=="")
{
  $ocla="...";
}
  else
{
  if (!is_numeric(substr($ccla,0,1)))
  {
    $ocla=substr($ccla,0,1);
    $ccla=substr($ccla,strlen($ccla)-(strlen($ccla)-1));
  }
    else
  {
    $ocla="=";
  }
}


$cvmr=get_arg("flap");
if ($cvmr=="")
{

  $ovmr="...";
}
  else
{

  if (!is_numeric(substr($cvmr,0,1)))
  {

    $ovmr=substr($cvmr,0,1);
    $cvmr=substr($cvmr,strlen($cvmr)-(strlen($cvmr)-1));
  }
    else
  {

    $ovmr="=";
  }

}


$numb=get_arg("n");
if (strlen($numb)>0 && is_numeric($numb))
{

  $numb=intval($numb);
}
  else
{

  $numb=-1;
}


if ($super_modo>$Modo_publico)
{
  $cha=get_arg("cha");
  $nqu=get_arg("nqu");
  $npq=get_arg("npq");
  $led=get_arg("led");
}



fxhead("Forix: ".$titulo[$N_SEAR]);
if ($ano>0 || $rng>0 || $rnc>0 || $rpi>0 || $req>0 || $rco>0 || $rma>0 || $rrca>0 || $rna>0 || $ogre!="..." || $ocla!="..." || $ovmr!="..." || $numb>=0 || $ini_dos>0)
{
  $SQLQuery="SELECT papi.*, pin.nabr as pi_nome, eq.nome as eq_nome, ngn.nome as ng_nome, can.nome as co_nome, ca.nome as ca_nome, mon.nome as mo_nome, mot.tipo as mo_tipo, tpar.nome as ncpar, tabd.nome as ncaba, tpneu.nome as pneu, tlub.nome as lubr, tlub1.nome as fuel";

  if ($cmd==3)
  {

    $SQLQuery=$SQLQuery.", fotos.foto, fotos.dat, contactos.copynote";
  }
    else
  if ($cmd==4)
  {

    $SQLQuery=$SQLQuery.", texto.fich, contactos.copynote";
  }


  $SQLQuery=$SQLQuery." FROM (((((((((((((((ngn INNER JOIN papi ON papi.rng = ngn.rng) INNER JOIN pin ON papi.rpi=pin.rpi) INNER JOIN eq ON papi.req=eq.req) inner join can on papi.rco=can.rco) inner join ca on papi.rca=ca.rca) inner join mon on papi.rma=mon.rma) inner join mot on papi.rmo=mot.rmo) INNER JOIN tpar ON papi.cpar=tpar.cod) INNER JOIN tabd ON papi.caba=tabd.cod) inner join tpneu on papi.cpne=tpneu.cod) INNER JOIN tlub ON papi.club=tlub.cod) INNER JOIN tlub as tlub1 ON papi.ccom = tlub1.cod) inner join pil on papi.rpi=pil.rpi) inner join tpais on tpais.cod=pil.cpais";

  if ($cmd==3)
  {

    $SQLQuery=$SQLQuery.") inner join fotos on papi.rpa=fotos.ref) inner join contactos on fotos.sig=contactos.sig ";
  }
    else
  if ($cmd==4)
  {

    $SQLQuery=$SQLQuery.") inner join texto on papi.rpa=texto.ref) inner join contactos on texto.autor=contactos.name ";
  }
    else
  {

    $SQLQuery=$SQLQuery.")) ";
  }


  $SQLQuery=$SQLQuery."WHERE ((ngn.lin=".$lin.") and (tpar.lin=".$lin." and can.lin=".$linx." and mon.lin=".$linx.") and (tabd.lin=".$lin.") and (tpais.lin=".$lin.") and (tpneu.lin=".$linx.") and (tlub.lin=".$linx.") and (tlub1.lin=".$linx.") ";

  if ($cmd==3)
  {

    $SQLQuery=$SQLQuery."and (fotos.dat<=".$hiso.") and (fotos.cref=".$REF_PA.")";
    if (strlen($fotografo)>0)
    {

      $SQLQuery=$SQLQuery."and (contactos.copynote like '%".$fotografo."%')";
    }

    if ($ini_dos>0)
    {

      $SQLQuery=$SQLQuery."and (fotos.dat >=".$ini_dos.")";
    }

  }
    else
  if ($cmd==4)
  {

    $SQLQuery=$SQLQuery."and (texto.cref=".$REF_PA.") and (texto.tipo=".$TXT_PAR.") and (texto.lin=".$lin.")";
  }


  if ($ano>0)
  {

    if ($oano=="=")
    {

      $SQLQuery=$SQLQuery."and (papi.rpa>=".(($ano-1900)*100000)." and papi.rpa<".(($ano-1899)*100000).")";
    }
      else
    if ($oano=="<")
    {
      $SQLQuery=$SQLQuery."and (papi.rpa<".(($ano-1900)*100000).")";
    }
      else
    if ($oano==">")
    {
      $SQLQuery=$SQLQuery."and (papi.rpa>".(($ano-1900+1)*100000).")";
    }
  }

  if ($rng>0)
    $SQLQuery=$SQLQuery."and (papi.rng=".$rng.")";

  if ($rnc>0)
    $SQLQuery=$SQLQuery."and (papi.rnc=".$rnc.")";

  if ($rpi>0)
  {
    $trpi=1;
    $SQLQuery=$SQLQuery."and (papi.rpi=".$rpi.")";
  }


  if ($req>0)
  {

//    trpi = 1
    $SQLQuery=$SQLQuery."and (papi.req=".$req.")";
  }

  if ($rna>0)
    $SQLQuery=$SQLQuery."and (tpais.cod=".$rna.")";

  if ($rco>0)
    $SQLQuery=$SQLQuery."and (papi.rco=".$rco.")";

  if ($rma>0)
    $SQLQuery=$SQLQuery."and (papi.rma=".$rma.")";

  if ($rrca>0)
    $SQLQuery=$SQLQuery."and (papi.rca=".$rrca.")";

  if ($rpn>=0)
    $SQLQuery=$SQLQuery."and (papi.cpne=".$rpn.")";

    if ($stat > 0)
	switch ($stat) {
	    case $cmdStatVit:
		$SQLQuery .= "and (papi.cla=1)";
		break;
	    case $cmdStatPol:
		$SQLQuery .= "and (papi.gre=1)";
		break;
	    case $cmdStatVmr:
		$SQLQuery .= "and (papi.vmr=1)";
		break;
	    case $cmdStatPod:
		$SQLQuery .= "and (papi.cla>=1) and (papi.cla<=3)";
		break;
	    case $cmdStatPli:
		$SQLQuery .= "and (papi.pli=1)";
		break;
	    case $cmdStatGpc:
		$SQLQuery .= "and (papi.cnv>0)";
		break;
	}

  if ($ogre=="-")
    $SQLQuery=$SQLQuery."and (papi.gre=0)";
  else
  if ($ogre!="...")
  {
    if (!is_numeric($cgre))
      $cgre=1;
    $SQLQuery=$SQLQuery."and (papi.gre <> 0) and (papi.gre".$ogre.$cgre.")";
  }

  if ($ocla=="-")
  {

    $SQLQuery=$SQLQuery."and (papi.cla=0)";
  }
    else
  if ($ocla!="...")
  {

    if (!is_numeric($ccla))
    {
      $ccla=1;
    }
    $SQLQuery=$SQLQuery."and (papi.cla <> 0) and (papi.cla".$ocla.$ccla.")";
  }


  if ($ovmr=="-")
  {
    $SQLQuery=$SQLQuery."and (papi.vmr=0)";
  }
    else
  if ($ovmr!="...")
  {

    if (!is_numeric($cvmr))
    {
      $cvmr=1;
    }
    $SQLQuery=$SQLQuery."and (papi.vmr <> 0) and (papi.vmr".$ovmr.$cvmr.")";
  }


  if ($numb>=0)
    $SQLQuery=$SQLQuery."and (papi.num=".$numb.")";

  if (strlen($cha)>0)
    $SQLQuery=$SQLQuery."and (papi.cha like '".$cha."')";

  if ($nqu==1)
    $SQLQuery=$SQLQuery."and (papi.nqu=1)";

  if ($npq==1)
    $SQLQuery=$SQLQuery."and (papi.npq=1)";

  if ($led>0)
    $SQLQuery=$SQLQuery."and (papi.cnv=$led)";

  $SQLQuery=$SQLQuery.") order by ";
  if ($ini_dos>0)
    $SQLQuery=$SQLQuery."fotos.dat, ";

  $SQLQuery=$SQLQuery."truncate(papi.rpa/1000,0), papi.num, papi.rpa";

  if ($super_modo==$Modo_publico)
    $SQLQuery=$SQLQuery." Limit 100";

$result = mysql_query($SQLQuery);
$RSList= mysql_fetch_array($result);
tab_ini();
tab_bar(2);
?><TR><TH><FONT SIZE="+2">&nbsp;<?
  if ($cmd==3)
  {

    if (strlen($fotografo)>0 && $RSList)
    {

?>[<?       echo $RSList["copynote"]; ?>]<?
    }

    if ($ini_dos>0)
    {

?>[&gt;=&nbsp;<?       echo pri_data(Day($inicio), Month($inicio), Year($inicio),1); ?>]<?
    }

  }

  if ($ano>0)
  {

?>[<?     if ($oano!="=")
    {
?><?       echo htmlspecialchars($oano); ?><?     } ?><A HREF="cp.asp?<?     echo $args; ?>&r=<?     echo $ano; ?>&c=<?     echo $cmdCPfic; ?>"><?     echo $ano; ?></A>]<?
  }

  if ($rng>0)
  {

?>[<A HREF="ng.asp?<?     echo $args; ?>&r=<?     echo $rng; ?>&c=<?     echo $cmdNGfic; ?>"><?     echo $nong; ?></A>]<?
  }

  if ($rnc>0)
  {

?>[<A HREF="nc.asp?<?     echo $args; ?>&r=<?     echo $rnc; ?>&c=<?     echo $cmdNCfic; ?>"><?     echo $nonc; ?></A>]<?
  }

  if ($rpi>0)
  {

?>[<A HREF="pi.asp?<?     echo $args; ?>&r=<?     echo $rpi; ?>&c=<?     echo $cmdPIfic; ?>"><?     echo $pi_nome; ?></A>]<?
  }

  if ($req>0)
  {

?>[<?     echo $eq_nome; ?>]<?
  }

  if ($rna>0)
  {

?>[<?     echo $titulo[$N_CTRY]; ?>:<A HREF="na.asp?<?     echo $args; ?>&r=<?     echo $rna; ?>&c=<?     echo $cmdNAfic; ?>"><?     echo $cy_nome; ?></A>]<?
  }

    if ($rco>0)
	echo("[$titulo[$N_MAKE]:<A HREF=\"cm.asp?$args&x=$REF_CO&r=$rco&c=$cmdCMfic\">$ma_nome</A>]");

  if ($rma>0)
  {

?>[<?     echo $titulo[$N_ENG]; ?>:<A HREF="cm.asp?<?     echo $args; ?>&x=<?     echo $REF_MA; ?>&r=<?     echo $rma; ?>&c=<?     echo $cmdCMfic; ?>"><?     echo $mo_nome; ?></A>]<?
  }

    if ($rrca>0)
	echo("[<A HREF=\"ca.asp?$args&r=$rrca&c=0\">$ca_nome</A>]");

?>&nbsp;</FONT><BR>&nbsp;<?
  if ($rpn>=0)
  {

?>[<?     echo $titulo[$N_TYRES]; ?>=<?     if ($rpn==0)
    {
?>?<?     }
      else
    {
?><A HREF="pn.asp?<?       echo $args; ?>&r=<?       echo $rpn; ?>&c=0"><?       echo $pn_nome; ?></A><?     } ?>]<?
  }

    if ($stat > 0)
	switch ($stat) {
	    case $cmdStatVit:
		echo("[$titulo[$N_RACE]: 1]");
		break;
	    case $cmdStatPol:
		echo("[$titulo[$N_GRID]: 1]");
		break;
	    case $cmdStatVmr:
		echo("[$titulo[$N_FLA]: 1]");
		break;
	    case $cmdStatPod:
		echo("[$titulo[$N_RACE]: $titulo[$N_POD]]");
		break;
	    case $cmdStatPli:
		echo("[$titulo[$N_GRID]: $titulo[$N_FROW]]");
		break;
	    case $cmdStatGpc:
		echo("[$titulo[$N_RACE]: $titulo[$N_LED]]");
		break;
	}


  if ($ogre!="...")
  {

?>[<?     echo $titulo[$N_GRID]; ?> <?     echo htmlspecialchars($ogre); ?> <?     echo $cgre; ?>]<?
  }

  if ($ocla!="...")
  {

?>[<?     echo $titulo[$N_RACE]; ?> <?     echo htmlspecialchars($ocla); ?> <?     echo $ccla; ?>]<?
  }

  if ($ovmr!="...")
  {

?>[<?     echo $titulo[$N_FLA]; ?> <?     echo htmlspecialchars($ovmr); ?> <?     echo $cvmr; ?>]<?
  }

  if ($numb>=0)
  {

?>[<?     echo $titulo[$N_NUMB]; ?> <?     echo $numb; ?>]<?
  }

?>&nbsp;</TH></TR>

<?
tab_bar(4);
  if ($RSList)
  {

    if ($cmd!=2 && $cmd!=4)
    {

tab_bor();
?><TR><TD ALIGN="center"><TABLE width="100%" border="0" cellspacing="0" cellpadding="2">
<TR>
<TD align="center"><B><?       echo $titulo[$N_ASEQ]; ?></B></TD>
<?       if ($ini_dos>0)
      {
?>
<TD align="center"><B><?         echo $titulo[$N_DATE]; ?></B></TD>
<?       } ?>
<?       if ($ano<=0 || $oano!="=")
      {
?>
<TD align="center"><B><?         echo $titulo[$N_YEAR]; ?></B></TD>
<?       } ?>
<TD align="center"><B><?       echo $titulo[$N_GPR]; ?></B></TD>
<TD align="center"><B><?       echo $titulo[$N_NUMB]; ?></B></TD>
<?       if ($m_eq>0)
      {
?>
<TD align="center"><B><?         echo $titulo[$N_ENTN]; ?></B></TD>
<?       } ?>
<?       if ($rpi<=0)
      {
?>
<TD align="center"><B><?         echo $titulo[$N_DRIV]; ?></B></TD>
<?       } ?>
<?       if ($super_modo>$Modo_publico)
      {
?>
<?         if ($rrca<=0)
        {
?>
<TD align="center"><B><?           echo $titulo[$N_CAR]; ?></B></TD>
<?         } ?>
<TD align="center"><B><?         echo $titulo[$N_CHAS]; ?></B></TD>
<TD align="center"><B><?         echo $titulo[$N_ENG]; ?></B></TD>
<?       }
        else
      {
?>
<TD align="center"><B><?         echo $titulo[$N_CAEN]; ?></B></TD>
<?       }

      if ($ini_dos==0)
      {

        if ($tp==1)
        {
?>
<TD align="center"><B><?           echo $titulo[$N_TYRES]; ?></B></TD>
<TD align="center"><B><?           echo $titulo[$N_OILF]; ?></B></TD>
<?         }
          else
        {
?>
<TD align="center"><B><?           echo $titulo[$N_GRID]; ?></B></TD>
<TD align="center"><B><?           echo $titulo[$N_RACE]; ?></B></TD>
<TD align="center"><B><?           echo $titulo[$N_FLA]; ?></B></TD>
<?         }

      }

?></TR><?
      $anop=0;
      $rgp=0;
      $rca=0;
      $rmo=0;
      $seq=0;
      $BGC=$TR2_BGC;
      mysql_data_seek($result, 0);
      while ($RSList= mysql_fetch_array($result))
      {

        if ($BGC==$TR1_BGC)
        {

          $BGC=$TR2_BGC;
        }
          else
        {

          $BGC=$TR1_BGC;
        }

?><TR BGCOLOR="<?         echo $BGC; ?>"><?
        if ($cmd==3)
        {

          $seq=$seq+1;
?><TD ALIGN="center" NOWRAP>&nbsp;<A HREF="photos.asp?<?           echo $args; ?>&x=101&f=<?           echo $RSList["foto"]; ?>"><?           echo $seq; ?></A></TD><?
          if ($ini_dos>0)
          {

            $aa=intval($RSList["dat"]/512);
            $mm=intval(($RSList["dat"]-$aa*512)/32);
            $dd=$RSList["dat"]-$aa*512-$mm*32;
?><TD ALIGN="right" NOWRAP>&nbsp;<?             echo pri_data($dd,$mm,0,0); ?></TD><?
          }

        }
          else
        {
include("seq.php");
        }

        if ($ano<=0 || $oano!="=")
        {
include("cp_ano.php");
        }
include("gp_nome.php");
include("pa_num.php");
         if ($m_eq>0)
        {
?>
<TD align="left" NOWRAP>&nbsp;<?           echo $RSList["eq_nome"]; ?></TD>
<?         } ?>
<?         if ($trpi<=0)
        {
include("pi_nome.php");
         } ?>
<?         if ($super_modo>$Modo_publico)
        {
?>
<?           if ($rrca<=0)
          {
include("car_link.php");
           } ?>
<TD ALIGN="center" NOWRAP>&nbsp;<?           echo $RSList["cha"]; ?></TD><?
include("mot_link.php");
         }
          else
        {
include("cm_nome.php");
         }

        if ($ini_dos==0)
        {

          if ($tp==1)
          {

?>
<TD ALIGN="left" NOWRAP>&nbsp;<?             echo $RSList["pneu"]; ?></TD>
<TD ALIGN="left" NOWRAP>&nbsp;<?             echo $RSList["lubr"]; ?><?
            if (strlen($RSList["fuel"])>0 && $RSList["fuel"]!=$RSList["lubr"])
            {

?> / <?               echo $RSList["fuel"]; ?><?
            }

?></TD><?
          }
            else
          {
include("pa_gre.php");
include("pa_cla.php");
include("pa_vmr.php");
          }

        }

?></TR><?
      }
?></TABLE></TD></TR><?
      if ($seq==100)
      {

tab_bor();
tab_bar(2);
?><TR><TD align="center"><B><?         echo $titulo[$N_OUTL]; ?></B></TD></TR><?
tab_bar(4);
      }

    }
      else
    if ($cmd==2)
    {

?><TR><TH><FONT SIZE="+3"><?       echo $titulo[$N_DWOR]; ?></FONT></TH></TR><?
tab_bar(6);
tab_bor();
mysql_data_seek($result, 0);
      while ($RSList= mysql_fetch_array($result))
      {

        $rpa=$RSList["rpa"];
        $ano=1900+intval($rpa/100000);

        $SQLQuery="SELECT words.*, tses.nome FROM words inner join tses on words.ses=tses.ses Where words.rpa=".$rpa." and tses.lin=".$lin." and (words.lin=".$lin;
        if ($lin!=$linEng)
        {

          $SQLQuery=$SQLQuery." or words.lin=".$linEng;
        }

        if ($lin==$linBra)
        {

          $SQLQuery=$SQLQuery." or words.lin=".$linPor;
        }

        $SQLQuery=$SQLQuery.") order by words.ses, words.lin desc";
	if (($result2 = mysql_query($SQLQuery)) and mysql_num_rows($result) > 0)
        {

?><TR BGCOLOR="<?           echo $TR2_BGC; ?>"><TH>
<FONT SIZE="+1">&nbsp;<A HREF="cp.asp?<?           echo $args; ?>&r=<?           echo $ano; ?>&c=<?           echo $cmdCPfic; ?>"><?           echo $ano; ?></A>, <A HREF="gp.asp?<?           echo $args; ?>&r=<?           echo intval($rpa/1000); ?>&c=<?           echo $cmdGPfic; ?>"><?           echo $RSList["ng_nome"]; ?></A>, <A HREF="pi.asp?<?           echo $args; ?>&r=<?           echo $RSList["rpi"]; ?>&c=<?           echo $cmdPIfic; ?>"><?           echo $RSList["pi_nome"]; ?></A>, <A HREF="pa.asp?<?           echo $args; ?>&r=<?           echo $rpa; ?>&c=<?           echo $cmdPAfic; ?>"><?           echo $RSList["num"]; ?></A></FONT><BR></TH></TR>
<TR><TD><table BGCOLOR="<?           echo $TR1_BGC; ?>" border="0" cellspacing="0" cellpadding="6">
<TR><TD WIDTH="500" ALIGN="left"><?
          $sesa=0;
	  while ($RSpp= mysql_fetch_array($result2))
          {

            $ses=$RSpp["ses"];
            if ($ses!=$sesa)
            {

              $sesa=$ses;
?><FONT SIZE="2"><b><?               echo $RSpp["nome"]; ?></b>:<br>&quot;<i><?               echo $RSpp["txt"]; ?></i>&quot;<?               echo $RSpp["com"]; ?></FONT><?
              if ($super_modo==$Modo_total)
              {

?><FONT SIZE="1">&nbsp;[<A HREF="words.asp?z=<?                 echo $zip; ?>&k=<?                 echo $key; ?>&l=<?                 echo $RSpp["lin"]; ?>&r=<?                 echo $rpa; ?>&s=<?                 echo $ses; ?>&c=5">Editar</A>]</FONT><?
              }

              if ($lin!=$RSpp["lin"] && $RSpp["lin"]==$linEng)
              {

?><FONT SIZE="1">&nbsp;[<A HREF="words.asp?<?                 echo $args; ?>&r=<?                 echo $rpa; ?>&s=<?                 echo $ses; ?>&c=6"><?
                if ($tipo_servidor==0)
                {

?>Traduzir<?
                }
                  else
                {

?>Send translation<?
                }

?></A>]</FONT><?
              }

?><P><?
            }

          }
?></TD></TR></TABLE></TD></TR><?
        }

      }

// Comments
    }
      else
    if ($cmd==4)
    {

?><TR><TH><FONT SIZE="+3"><?       echo $titulo[$N_COMM]; ?></FONT></TH></TR><?
tab_bar(6);
tab_bor();
      $rpaa=0;
      mysql_data_seek($result, 0);
      while ($RSList= mysql_fetch_array($result))
      {

        $rpa=$RSList["rpa"];
        $ano=1900+intval($rpa/100000);
        $fich=$base_dir."/txt/".$RSList["fich"];
        if ($rpa>$rpaa)
        {

?><TR BGCOLOR="<?           echo $TR2_BGC; ?>"><TH>
<FONT SIZE="+1">&nbsp;<A HREF="cp.asp?<?           echo $args; ?>&r=<?           echo $ano; ?>&c=<?           echo $cmdCPfic; ?>"><?           echo $ano; ?></A>, <A HREF="gp.asp?<?           echo $args; ?>&r=<?           echo intval($rpa/1000); ?>&c=<?           echo $cmdGPfic; ?>"><?           echo $RSList["ng_nome"]; ?></A>, <A HREF="pi.asp?<?           echo $args; ?>&r=<?           echo $RSList["rpi"]; ?>&c=<?           echo $cmdPIfic; ?>"><?           echo $RSList["pi_nome"]; ?></A>, <A HREF="pa.asp?<?           echo $args; ?>&r=<?           echo $rpa; ?>&c=<?           echo $cmdPAfic; ?>"><?           echo $RSList["num"]; ?></A></FONT><BR></TH></TR><?
        }

        $rpaa=$rpa;
?><TR BGCOLOR="<?         echo $TR1_BGC; ?>"><TD WIDTH="500" ALIGN="left"><?         echo $read_txt[$fich][1]; ?><BR><FONT SIZE="1">[&nbsp;<?         echo $RSList["copynote"]; ?>&nbsp;]<BR>&nbsp;</FONT></TD></TR><?
      }
    }

  }
    else
  {

tab_bor();
tab_bar1(2);
?><TR BGCOLOR="<?     echo $TR1_BGC; ?>"><TD align="center"><B><?     echo $titulo[$N_NOPA]; ?></B></TD></TR><?
tab_bar1(4);
  }

}
  else
{

log_page($REF_GOGO,1,0);
tab_ini();
tab_bar(2);
?><TR><TH><FONT SIZE="+3">How to Search<BR><IMG SRC="../pic/forixl.gif" ALT="Forix" WIDTH="89" HEIGHT="32"></FONT></TH></TR><?
tab_bar(6);
tab_bor();
?><TR BGCOLOR="<?   echo $TR1_BGC; ?>"><TD>
<B>This url, <FONT SIZE="+1">http://www.forix.com/asp/search.asp</FONT>,<BR>provides a link search interface to FORIX.<BR>The parameters and respective values are explained below.</B>
</TD></TR>

<TR BGCOLOR="<?   echo $TR2_BGC; ?>">
<TH><FONT SIZE="+1">Language</FONT></TH></TR>
<TR BGCOLOR="<?   echo $TR1_BGC; ?>"><TD><TABLE>
<TR><TD VALIGN="top"><FONT SIZE="+1"><B>lang= </B></FONT></TD>
<TD VALIGN=TOP WIDTH="130">
<B>eng</B>lish (default)<BR>
<B>afr</B>ikaans<BR>
<B>arm</B>enian<BR>
<B>bas</B>que<BR>
<B>bel</B>arusian<BR>
<B>bul</B>garian<BR>
<B>cat</B>alan<BR>
<B>chi</B>nese (Big5)<BR>
<B>gbc</B>hinese (GB)<BR>
<B>cro</B>atian<BR>
<B>cze</B>ch<BR>
<B>dan</B>ish<BR>
<B>dut</B>ch<BR>
<B>esp</B>eranto<BR>
</TD><TD VALIGN=TOP WIDTH="130">
<B>est</B>onian<BR>
<B>far</B>oese<BR>
<B>fin</B>nish<BR>
<B>fre</B>nch<BR>
<B>ger</B>man<BR>
<B>gre</B>ek<BR>
<B>hun</B>garian<BR>
<B>ice</B>landic<BR>
<B>ita</B>lian<BR>
<B>jap</B>anese<BR>
<B>kor</B>ean<BR>
<B>lat</B>vian<BR>
<B>lit</B>huanian<BR>
<B>malt</B>ese<BR>
</TD><TD VALIGN=TOP>
<B>mala</B>y<BR>
<B>nor</B>wegian<BR>
<B>pol</B>ish<BR>
<B>por</B>tuguese<BR>
<B>rom</B>anian<BR>
<B>rus</B>sian<BR>
<B>ser</B>bian<BR>
<B>slova</B>k<BR>
<B>slove</B>ne<BR>
<B>spa</B>nish<BR>
<B>swe</B>dish<BR>
<B>tur</B>kish<BR>
<B>ukr</B>ainian<BR>
</TD></TR>
</TABLE></TD></TR>

<TR BGCOLOR="<?   echo $TR2_BGC; ?>"><TH><FONT SIZE="+1">Championships</FONT></TH></TR>
<TR BGCOLOR="<?   echo $TR1_BGC; ?>"><TD><TABLE>
<TR><TD VALIGN="top"><FONT SIZE="+1"><B>y=</B></FONT></TD>
<TD> 'year', '&gt;year' or '&lt;year', where 'year' equals 50 to 99 or 1950 to <?   echo $anoFin; ?><BR></TD></TR>
</TABLE></TD></TR>

<TR BGCOLOR="<?   echo $TR2_BGC; ?>"><TH><FONT SIZE="+1">Grands Prix</FONT></TH></TR>
<TR BGCOLOR="<?   echo $TR1_BGC; ?>"><TD><TABLE>
<TR><TD VALIGN="center"><FONT SIZE="+1"><B>gp= </B></FONT></TD>
<FORM><TD>Grand Prix name from this list <SELECT><?
  $SQLQuery="Select ngn.nome from ngn where ngn.lin=0 order by ngn.nome";
  $result = mysql_query($SQLQuery);
  while ($RSngp= mysql_fetch_array($result))
  {

?><option><?     echo str_replace(" ","+",$RSngp["nome"]); ?><?
  }
?></SELECT></TD></FORM></TR>
</TABLE></TD></TR>

<TR BGCOLOR="<?   echo $TR2_BGC; ?>"><TH><FONT SIZE="+1">Circuits</FONT></TH></TR>
<TR BGCOLOR="<?   echo $TR1_BGC; ?>"><TD><TABLE>
<TR><TD VALIGN="center"><FONT SIZE="+1"><B>cir= </B></FONT></TD>
<FORM><TD>Circuit name from this list <SELECT><?
  $SQLQuery="Select ncn.nome from ncn where ncn.lin=0 order by ncn.nome";
  $result = mysql_query($SQLQuery);
  while ($RSncn= mysql_fetch_array($result))
  {

?><option><?     echo str_replace(" ","+",$RSncn["nome"]); ?><?
  }
?></SELECT></TD></FORM></TR>
</TABLE></TD></TR>

<TR BGCOLOR="<?   echo $TR2_BGC; ?>"><TH><FONT SIZE="+1">Makes</FONT></TH></TR>
<TR BGCOLOR="<?   echo $TR1_BGC; ?>"><TD><TABLE>
<TR><TD VALIGN="center"><FONT SIZE="+1"><B>mak= </B></FONT></TD>
<FORM><TD>Make name from this list <SELECT><?
  $SQLQuery="Select co.nome from co order by co.nome";
  $result = mysql_query($SQLQuery);
  while ($RSList= mysql_fetch_array($result))
  {

?><option><?     echo str_replace(" ","+",$RSList["nome"]); ?><?
  }
?></SELECT></TD></FORM></TR>
</TABLE></TD></TR>

<?   if ($super_modo>$Modo_publico)
  {
?>
<TR BGCOLOR="<?     echo $TR2_BGC; ?>"><TH><FONT SIZE="+1">Car type</FONT></TH></TR>
<TR BGCOLOR="<?     echo $TR1_BGC; ?>"><TD><TABLE>
<TR><TD VALIGN="center"><FONT SIZE="+1"><B>typ= </B></FONT></TD>
<TD>Car type</TD></TR>
</TABLE></TD></TR>
<?   } ?>

<TR BGCOLOR="<?   echo $TR2_BGC; ?>"><TH><FONT SIZE="+1">Engines</FONT></TH></TR>
<TR BGCOLOR="<?   echo $TR1_BGC; ?>"><TD><TABLE>
<TR><TD VALIGN="center"><FONT SIZE="+1"><B>eng= </B></FONT></TD>
<FORM><TD>Engine name from this list <SELECT><?
  $SQLQuery="Select mo.nome from mo order by mo.nome";
  $result = mysql_query($SQLQuery);
  while ($RSList= mysql_fetch_array($result))
  {

?><option><?     echo str_replace(" ","+",$RSList["nome"]); ?><?
  }
?></SELECT></TD></FORM></TR>
</TABLE></TD></TR>

<TR BGCOLOR="<?   echo $TR2_BGC; ?>"><TH><FONT SIZE="+1">Drivers</FONT></TH></TR>
<TR BGCOLOR="<?   echo $TR1_BGC; ?>"><TD><TABLE>
<TR><TD VALIGN="center"><FONT SIZE="+1"><B>dri= </B></FONT></TD>
<TD>free format driver name (use '+' as word separator)</TD></TR>
<TR><TD VALIGN="center"><FONT SIZE="+1"><B>cty= </B></FONT></TD>
<FORM><TD>Country name from this list <SELECT><?
  $SQLQuery="Select tpais.nome from tpais where tpais.lin=0 order by tpais.nome";
  $result = mysql_query($SQLQuery);
  while ($RSList= mysql_fetch_array($result))
  {

?><option><?     echo str_replace(" ","+",$RSList["nome"]); ?><?
  }
?></SELECT></TD></FORM></TR>
</TABLE></TD></TR>

<TR BGCOLOR="<?   echo $TR2_BGC; ?>"><TH><FONT SIZE="+1">Tyres</FONT></TH></TR>
<TR BGCOLOR="<?   echo $TR1_BGC; ?>"><TD><TABLE>
<TR><TD VALIGN="center"><FONT SIZE="+1"><B>tyr= </B></FONT></TD>
<FORM><TD>Tyre name from this list <SELECT><?
  $SQLQuery="Select tpneu.nome from tpneu where tpneu.lin=0 and tpneu.cod>0 order by tpneu.nome";
  $result = mysql_query($SQLQuery);
  while ($RSList= mysql_fetch_array($result))
  {

?><option><?     echo str_replace(" ","+",$RSList["nome"]); ?><?
  }
?></SELECT></TD></FORM></TR>
</TABLE></TD></TR>

<TR BGCOLOR="<?   echo $TR2_BGC; ?>"><TH><FONT SIZE="+1">Classifications</FONT></TH></TR>
<TR BGCOLOR="<?   echo $TR1_BGC; ?>"><TD><TABLE>
<TR><TD VALIGN="center"><FONT SIZE="+1"><B>grid= </B><BR><B>race= </B><BR><B>flap= </B><BR></FONT></TD>
<TD VALIGN="top">'position', '&gt;position' or '&lt;position'</TD></TR>
</TABLE></TD></TR>

<TR BGCOLOR="<?   echo $TR2_BGC; ?>"><TH><FONT SIZE="+1">Photographs</FONT></TH></TR>
<TR BGCOLOR="<?   echo $TR1_BGC; ?>"><TD><TABLE>
<TR><TD ALIGN="left" COLSPAN="2" WIDTH="500">When searching for photos the first column of the results table has direct links to the photos.</TD></TR>
<TR><TD COLSPAN="2"><FONT SIZE="+1"><B>cmd=photos</B></FONT></TD></TR>
<TR><TD><FONT SIZE="+1"><B>p= </B></FONT></TD><TD>photo provider name</TD></TR>
<TR><TD><FONT SIZE="+1"><B>day= </B></FONT></TD><TD>photos published during the last 'n' days (max 60)</TD></TR>
</TABLE></TD></TR>

<TR BGCOLOR="<?   echo $TR2_BGC; ?>"><TH><FONT SIZE="+1">Comments</FONT></TH></TR>
<TR BGCOLOR="<?   echo $TR1_BGC; ?>"><TD><TABLE>
<TR><TD ALIGN="left" COLSPAN="2" WIDTH="500">Restricts the result to those participations having comments and shows the corresponding text.</TD></TR>
<TR><TD COLSPAN="2"><FONT SIZE="+1"><B>cmd=comments</B></FONT></TD></TR>
</TABLE></TD></TR>

<?   if ($super_modo>=$Modo_privado)
  {
?>
<TR BGCOLOR="<?     echo $TR2_BGC; ?>"><TH><FONT SIZE="+1">Other fields</FONT></TH></TR>
<TR BGCOLOR="<?     echo $TR1_BGC; ?>"><TD><TABLE>
<TR><TD VALIGN="top">
<FONT SIZE="+1"><B>n= </B></FONT><BR>
<FONT SIZE="+1"><B>cha= </B></FONT><BR>
<FONT SIZE="+1"><B>nqu=1</B></FONT><BR>
<FONT SIZE="+1"><B>npq=1</B></FONT><BR>
<FONT SIZE="+1"><B>led= </B></FONT><BR>
</TD><TD>
Car number<FONT SIZE="+1"><B> </B></FONT><BR>
Chassis number<FONT SIZE="+1"><B> </B></FONT><BR>
Not qualified<FONT SIZE="+1"><B> </B></FONT><BR>
Not pre-qualified<FONT SIZE="+1"><B> </B></FONT><BR>
Number of laps led<FONT SIZE="+1"><B> </B></FONT><BR>
</TD></TR>
</TABLE></TD></TR>
<?   } ?>

<TR BGCOLOR="<?   echo $TR2_BGC; ?>"><TH><FONT SIZE="+1"><B>Examples</B></FONT></TH></TR>
<TR BGCOLOR="<?   echo $TR1_BGC; ?>"><TD WIDTH="500">
<FONT SIZE="+1">&nbsp;Ronnie Peterson in the Swedish GP, swedish</FONT><BR><?
  $Query="lang=swe&dri=ro+peter&gp=sweden";
?><A HREF="search.asp?<?   echo $Query; ?>">http://www.forix.com/asp/search.asp?<B><?   echo $Query; ?></B></A><P>

<FONT SIZE="+1">&nbsp;Michael Schumacher's 6th places</FONT><BR><?
  $Query="dri=mi+schum&race=6";
?><A HREF="search.asp?<?   echo $Query; ?>">http://www.forix.com/asp/search.asp?<B><?   echo $Query; ?></B></A><P>

<FONT SIZE="+1">&nbsp;Wins starting from 10th or worse in the grid, portuguese</FONT><BR><?
  $Query="lang=por&race=1&grid=>9";
?><A HREF="search.asp?<?   echo $Query; ?>">http://www.forix.com/asp/search.asp?<B><?   echo $Query; ?></B></A><P>

<FONT SIZE="+1">&nbsp;Senna poles in Lotus</FONT><BR><?
  $Query="dri=ayr+senna&mak=lotus&grid=1";
?><A HREF="search.asp?<?   echo $Query; ?>">http://www.forix.com/asp/search.asp?<B><?   echo $Query; ?></B></A><P>

<FONT SIZE="+1">&nbsp;Italian driver's wins for Ferrari </FONT><BR><?
  $Query="cty=italy&mak=ferrari&race=1";
?><A HREF="search.asp?<?   echo $Query; ?>">http://www.forix.com/asp/search.asp?<B><?   echo $Query; ?></B></A><P>

<FONT SIZE="+1">&nbsp;Fastest laps of a Williams-Ford</FONT><BR><?
  $Query="flap=1&mak=williams&eng=ford";
?><A HREF="search.asp?<?   echo $Query; ?>">http://www.forix.com/asp/search.asp?<B><?   echo $Query; ?></B></A><P>

<FONT SIZE="+1">&nbsp;Photos of french drivers in the French Grand Prix, in french</FONT><BR><?
  $Query="lang=fre&gp=france&cty=france&cmd=pho";
?><A HREF="search.asp?<?   echo $Query; ?>">http://www.forix.com/asp/search.asp?<B><?   echo $Query; ?></B></A><P>
</TD></TR><?
}

tab_fim();
fxtail();
?>