<?php
$conn=pg_pconnect("dbname=emecmistica user=postgres"); 
//retrouver mes variables
$tableau=explode("/", $PATH_INFO);
$x=count($tableau);
$idi=$tableau[$x-3];
$idaso=$tableau[$x-1];

$existe=0;
$queryidd=pg_exec($conn, "select id_asociacion from asociacion");
for ($sdd=0; $sdd<pg_numrows($queryidd); $sdd++) {
$gotdd=pg_fetch_row($queryidd, $sdd);
if ($gotdd[0]==$idaso) {
$existe=1;
}
}
if ($existe==0) {
include "error.php3";
}
elseif (($idi !="es") && ($idi!="en")&&($idi !="fr")&& ($idi !="po")) {
include "error.php3";
}
else {


//l' id du message
$queryid=pg_exec($conn, "select id_mensaje from asociacion where
id_asociacion='$idaso'");
$getid=pg_fetch_row($queryid, 0);
$id_mensaje=$getid[0];

$querycat=pg_exec($conn, "select id_categoria, fecha_dia from mensajes where id_mensaje='$id_mensaje'");
$getycaty=pg_fetch_row($querycat, 0);
$cat=$getycaty[0];

//fabrication de $dia

$tabdia=explode ("-", $getycaty[1]);
$tabdia[3]=$tabdia[0];
$tabdia[0]=$tabdia[1];
$tabdia[1]=$tabdia[3];
$exi=array ($tabdia[0], $tabdia[1], $tabdia[2]);
$getdia[0]=implode ("/", $exi);
$dia=str_replace("-","/",$getdia[0]);

//retrouver la date, le theme, la langue, la source et reply

$querygen=pg_exec($conn, "select fecha, id_tema, codigo_idioma_mensaje_original, nombre_fuente, e_mail_fuente, lista_fuente, e_mail_lista, reply, web from mensajes where id_mensaje='$id_mensaje'");
for ($j=0; $j<pg_numrows($querygen); $j++) {
$gen=pg_fetch_row($querygen, $j);
$fechada=$gen[0];
$fechada=date("D, d M Y H:i:s Z", $fechada);
$tem=$gen[1];
$lengua=$gen[2];
$nom_source=$gen[3];
$adr_source=$gen[4];
$lista_source=$gen[5];
$adr_lista=$gen[6];
$rep=$gen[7];
$web=$gen[8];
}
if ($web=='t') {

//retrouver l'auteur
$queryaut=pg_exec($conn, "select apellido_miembro, nombre_miembro, e_mail_miembro, url_pagina_personal, id_miembro from communidad, mensajes where id_mensaje='$id_mensaje' and mensajes.id_creador=communidad.id_miembro");
for ($s=0; $s<pg_numrows($queryaut); $s++) {
$getaut=pg_fetch_row($queryaut, $s);
$autor="$getaut[1] $getaut[0]";
$e_m=$getaut[2];
$pageperso=$getaut[3];
$id_miembro=$getaut[4];
}

//tableau coord
$coord = array(
    "cm"  => array("es"=>"Coordinación Mistica","en"=>"Mistica Coordination","fr"=>"Coordination Mistica","po"=>"Coordenação Mistica"),
    "ce"  => array("es"=>"Coordinación EMEC","en"=>"EMEC Coordination","fr"=>"Coordination EMEC","po"=>"EMEC Coordenação"));


if ($id_miembro==1) {
$autor=$coord ["cm"]["$idi"];
$autor=htmlentities($autor);
} 
elseif ($id_miembro==2) {
$autor=$coord["ce"]["$idi"];
$autor=htmlentities($autor);
} 
else {
$autor=stripslashes($autor);
$autortab=explode ("-", $autor);
$autor="";
for ($erx=0; $erx<count($autortab); $erx++) {
$autortab[$erx]=ucwords($autortab[$erx]);
}
$autor=implode ("-", $autortab);
$autosource=$autor;
$autor=htmlentities($autor);
}

//transfo de la date

$rex=substr("$fechada", -5);
$rexi=$rex/3600;
$rexa=abs($rexi);
$wawa=substr("$fechada", 0, -5);
$rexa=$rexa*100;
$fech="$wawa 0$rexa";
      
if ($idi != "en") {

$sous=substr("$fech", 0, 3);

$jour = array(
    "Mon"  => array("es"=>"Lun","fr"=>"Lun","po"=>"Segunda"),
    "Tue" => array("es"=>"Mar","fr"=>"Mar","po"=>"Terca"),
    "Wed"   => array ("es"=>"Mie","fr"=>"Mer","po"=>"Quarta"),
    "Thu"   => array ("es"=>"Jue","fr"=>"Jeu","po"=>"Quinta"),
    "Fri"   => array ("es"=>"Vie","fr"=>"Ven","po"=>"Sexta"),
    "Sat"   => array ("es"=>"Sab","fr"=>"Sam","po"=>"Sabado"),
    "Sun"   => array ("es"=>"Dom","fr"=>"Dim","po"=>"Domingo"));
$remp=$jour["$sous"]["$idi"];
$fech=str_replace("$sous", "$remp", $fech); 

//manque les mois
$meses = array(
    "Jan"  => array("es"=>"Ene","fr"=>"Jan","po"=>"Jan"),
    "Feb" => array("es"=>"Feb","fr"=>"Fev","po"=>"Fev"),
    "Mar"   => array ("es"=>"Mar","fr"=>"Mar","po"=>"Mar"),
    "Apr"   => array ("es"=>"Abr","fr"=>"Avr","po"=>"Abr"),
    "May"   => array ("es"=>"May","fr"=>"Mai","po"=>"Mai"),
    "Jun"   => array ("es"=>"Jun","fr"=>"Juin","po"=>"Jun"),
    "Jul"   => array ("es"=>"Jul","fr"=>"Juil","po"=>"Jul"),
    "Aug"   => array ("es"=>"Ago","fr"=>"Aou","po"=>"Ago"),
    "Sep"   => array ("es"=>"Sep","fr"=>"Sep","po"=>"Set"),
    "Oct"   => array ("es"=>"Oct","fr"=>"Oct","po"=>"Out"),
    "Nov"   => array ("es"=>"Nov","fr"=>"Nov","po"=>"Nov"),
    "Dec"   => array ("es"=>"Dic","fr"=>"Dec","po"=>"Dez"));
$sousmois=substr("$fech", -24, 3);
$emp=$meses["$sousmois"]["$idi"];
$fech=str_replace("$sousmois", "$emp", $fech); 
}

//fabrication des liens
$tabliens=$tableau;
if ($idi!=$lengua) {
$tabliens[$x-3]="$lengua";
$tabliens[$x-1]=$idaso;
$tabliens[$x-2]="idarchi";
$lienmessori=implode("/", $tabliens);
}
$tabliens[$x-3]="es";
$lienesp=implode("/", $tabliens);
$tabliens[$x-3]="en";
$lieneng=implode("/", $tabliens);
$tabliens[$x-3]="fr";
$lienfra=implode("/", $tabliens);
$tabliens[$x-3]="po";
$lienpor=implode("/", $tabliens);


// tableau des petites phrases a afficher
$phrases= array(
    "anexo"  => array("es"=>"Documento anexo","en"=>"Attachement","fr"=>"Pi&egrave;ce jointe","po"=>"Documento anexo"),
"bajarori"  => array("es"=>"BAJAR ESTE ARCHIVO","en"=>"CLICK HERE TO
DOWNLAOD THIS DOCUMENT","fr"=>"TELECHARGER L´ORIGINAL","po"=>" 
CARREGUE O ORIGINAL"),
"bajirori"  => array("es"=>"BAJAR ESTE ARCHIVO EN ","en"=>"CLICK HERE TO
DOWNLAOD THIS DOCUMENT IN","fr"=>"TELECHARGER L´ORIGINAL EN ","po"=>" 
CARREGUE O ORIGINAL EM"),
    "automatica"  => array("es"=>"OJO: A CONTINUACIÓN UNA TRADUCCIÓN AUTOMÁTICA NO REVISADA DEL","en"=>"WARNING: THE FOLLOWING IS A NON EDITED MACHINE TRANSLATION FROM THE ORIGINAL IN","fr"=>"ATTENTION : CECI EST UNE TRADUCTION AUTOMATIQUE NON REVISEE DE L'ORIGINAL EN","po"=>"ADVERTENCIA: A TRADUCAO SEGUINTE E UMA TRADUCAO AUTOMATICA NAO REVISADA DO ORIGINAL EM"),
    "contesta"  => array("es"=>"ESTE MENSAJE CONTESTA A","en"=>"THIS MESSAGE REPLIES TO","fr"=>"CE MESSAGE REPOND A","po"=>"ESTA MENSAGEM RESPONDE A"),
    "sourca1"  => array("es"=>"EL TEXTO SIGUIENTE HA SIDO ESCRITO POR","en"=>"THE FOLLOWING TEXT HAS BEEN WRITEN BY","fr"=>"LE TEXTE SUIVANT A ÉTÉ ECRIT PAR","po"=>"O TEXTO SEGUINTE FOI ESCREVA POR"),
    "sourca2"  => array("es"=>"Y REMITIDO A LISTA MISTICA POR","en"=>"AND FORWARDED TO LISTA MISTICA BY ","fr"=>"ET ENVOYE À LA LISTE MISTICA PAR","po"=>"E REMETEU A LISTA MISTICA POR"));

$bajori=$phrases["bajarori"]["$idi"];
$anexo=$phrases["anexo"]["$idi"];
$automatica=$phrases["automatica"]["$idi"];
$sourca1=$phrases ["sourca1"]["$idi"];
$sourca2=$phrases ["sourca2"]["$idi"];
$contesta=$phrases ["contesta"]["$idi"];
$bajiri=$phrases["bajirori"]["$idi"];

if ($cat !="C2") {

//calcul du numero de synthese
$qnumsin=pg_exec($conn, "select num_synthese from mensajes where id_mensaje='$id_mensaje'");
$getnum=pg_fetch_row($qnumsin, 0);
$numsin=$getnum[0];
if (($numsin>70) && ($idi=="fr")) {
$numsin++;
}
$len=strlen($numsin);
$sinth  = array(
"1"=>array("es"=>"<a href=\"/mistica/castellano/emec/produccion/hyper/000$numsin.html\">$sintesi</a>","en"=>"<a href=\"/mistica/english/emec/production/hyper/000$numsin.html\">$sintesi</a>","fr"=>"<a href=\"/mistica/francais/emec/prod/hyper/000$numsin.html\">$sintesi</a>","po"=>"<a href=\"/mistica/portugues/emec/prod/hyper/000$numsin.html\">$sintesi</a>"),
"2"  => array("es"=>"<a href=\"/mistica/castellano/emec/produccion/hyper/00$numsin.html\">$sintesi</a>","en"=>"<a href=\"/mistica/english/emec/production/hyper/00$numsin.html\">$sintesi</a>","fr"=>"<a href=\"/mistica/francais/emec/prod/hyper/00$numsin.htmltml\">$sintesi</a>","po"=>"<a href=\"/mistica/portugues/emec/prod/hyper/$numsin.html\">$sintesi</a>"),
"3"  => array("es"=>"<a href=\"/mistica/castellano/emec/produccion/hyper/0$numsin.html\">$sintesi</a>","en"=>"<a href=\"/mistica/english/emec/production/hyper/0$numsin.html\">$sintesi</a>","fr"=>"<a href=\"/mistica/francais/emec/prod/hyper/0$numsin.htmltml\">$sintesi</a>","po"=>"<a href=\"/mistica/portugues/emec/prod/hyper/$numsin.html\">$sintesi</a>"),
"4"  => array("es"=>"<a href=\"/mistica/castellano/emec/produccion/hyper/$numsin.html\">$sintesi</a>","en"=>"<a href=\"/mistica/english/emec/production/hyper/$numsin.html\">$sintesi</a>","fr"=>"<a href=\"/mistica/francais/emec/prod/hyper/$numsin.htmltml\">$sintesi</a>","po"=>"<a href=\"/mistica/portugues/emec/prod/hyper/$numsin.html\">$sintesi</a>"));

$sinthesoid=$sinth["$len"]["$idi"];
}

$longtem=strlen($tema);

//le corps du message

if ($lengua!=$idi) {
$tabtrad = array (
    "es"  => array("es"=>"ESPANOL", "en"=>"INGLES","fr"=>"FRANCES","po"=>"PORTUGUES"),
    "en" => array("es"=>"SPANISH","en"=>"ENGLISH","fr"=>"FRENCH","po"=>"PORTUGUESE"),
  "fr" => array("es"=>"ESPAGNOL","en"=>"ANGLAIS","fr"=>"FRANCAIS","po"=>"PORTUGAIS"),
  "po" => array("es"=>"ESPANHOL","en"=>"INGLÊS","fr"=>"FRANCES","po"=>"PORTUGUES"));

//$langue=$tabtrad[$idi][$lengua];

}


if ($cat != "C2") {
// retrouver le theme
if ($tem!=1) {
$querytemm= pg_exec($conn, "select abrev_es, abrev_en, abrev_fr, abrev_po from tema where id_tema='$tem'");
for ($gy=0; $gy<pg_numrows($querytemm); $gy++) {
$getem=pg_fetch_row($querytemm, $gy);
$tema_es=$getem[0];
$tema_en=$getem[1];
$tema_fr=$getem[2];
$tema_po=$getem[3];
}
} 

//retrouver le titre
if ($idi=="es") {
$querytit=pg_exec($conn, "select titulo_es from mensajes where id_mensaje='$id_mensaje'");
for ($n=0; $n<pg_numrows($querytit); $n++) {
$getit=pg_fetch_row($querytit, $n);
$titulo=$getit[0];
$titulo=stripslashes($titulo);
$titulo=htmlentities($titulo);
$tema=stripslashes($tema_es);
$tema=htmlentities($tema);
}
}
elseif ($idi=="en") {
$querytit=pg_exec($conn, "select titulo_en from mensajes where id_mensaje='$id_mensaje'");
for ($n=0; $n<pg_numrows($querytit); $n++) {
$getit=pg_fetch_row($querytit, $n);
$titulo=$getit[0];
$titulo=stripslashes($titulo);
$titulo=htmlentities($titulo);
$tema=stripslashes($tema_en);
$tema=htmlentities($tema);
}
}
elseif ($idi=="fr") {
$querytit=pg_exec($conn, "select titulo_fr from mensajes where id_mensaje='$id_mensaje'");
for ($n=0; $n<pg_numrows($querytit); $n++) {
$getit=pg_fetch_row($querytit, $n);
$titulo=$getit[0];
$titulo=stripslashes($titulo);
$titulo=htmlentities($titulo);
$tema=stripslashes($tema_fr);
$tema=htmlentities($tema);
}
}
elseif ($idi=="po") {
$querytit=pg_exec($conn, "select titulo_po from mensajes where id_mensaje='$id_mensaje'");
for ($n=0; $n<pg_numrows($querytit); $n++) {
$getit=pg_fetch_row($querytit, $n);
$titulo=$getit[0];
$titulo=stripslashes($titulo);
$titulo=htmlentities($titulo);
$tema=stripslashes($tema_po);
$tema=htmlentities($tema);
}
}
$longtem=strlen($tema);
if ($longtem !=0) {
$titulo="$tema : $titulo";
}
}
if ($cat =="C2") {
if ($lengua=="es") {
$querytit=pg_exec($conn, "select titulo_es from mensajes where id_mensaje='$id_mensaje'");
}
elseif ($lengua=="en") {
$querytit=pg_exec($conn, "select titulo_en from mensajes where id_mensaje='$id_mensaje'");
}
elseif ($lengua=="fr") {
$querytit=pg_exec($conn, "select titulo_fr from mensajes where id_mensaje='$id_mensaje'");
}
elseif ($lengua=="po") {
$querytit=pg_exec($conn, "select titulo_po from mensajes where id_mensaje='$id_mensaje'");
}

for ($m=0; $m<pg_numrows($querytit); $m++) {
$getit=pg_fetch_row($querytit, $m);
$titulo=$getit[0];
$titulo=stripslashes($titulo);
$titulo=htmlentities($titulo);
}
}

$queriasociacion1=pg_exec($conn, "select codigo_idioma_original, nombre_archivo from asociacion where id_asociacion='$idaso'");
$getling=pg_fetch_row($queriasociacion1, 0);
$ling=$getling[0];
$nom=stripslashes($getling[1]);

include "bibo.php3";
include "head4.php3";

?>
<table width="640" border="0"> 
	 
  <tr>  
    <td width="618">  
      <table bgcolor="#eeeeee" width="146"> 
        <tr bgcolor="#FF9933">  
          <td>  

<?
echo "<td><div align=\"center\"><b><font face=\"Helvetica\" size=\"2\">$titulo</font></b></div></td>";
?>  
                </tr>  
      </table>
</tr> 
</table>

</tr> 
</table>
<?
if (($id_miembro !=1) && ($id_miembro !=2)) {
echo "<p><font size=\"2\" face=\"helvetica\">$fechadata: &nbsp; $fech<br>$auto:<a href=\"$pageperso\">$autor</a>&lt;<a href=\"mailto:$e_m\">$e_m</a>&gt;</font></p>";
}
else {
echo "<p><font size=\"2\" face=\"helvetica\">$fechadata: &nbsp; $fech<br>$auto: $autor <a href=\"mailto:$e_m\">$e_m</a>&gt;</font></p>";
}

if ($cat !="C2") {
//calcul du numero de synthese
$numsin=$id_mensaje-1;
if (($numsin>70) && ($idi=="fr")) {
$numsin++;
}
$len=strlen($numsin);
$sinth  = array(
"1"=>array("es"=>"<a href=\"/mistica/castellano/emec/produccion/hyper/000$numsin.html\">$sintesi</a>","en"=>"<a href=\"/mistica/english/emec/production/hyper/000$numsin.html\">$sintesi</a>","fr"=>"<a href=\"/mistica/francais/emec/prod/hyper/000$numsin.html\">$sintesi</a>","po"=>"<a href=\"/mistica/portugues/emec/prod/hyper/000$numsin.html\">$sintesi</a>"),
"2"  => array("es"=>"<a href=\"/mistica/castellano/emec/produccion/hyper/00$numsin.html\">$sintesi</a>","en"=>"<a href=\"/mistica/english/emec/production/hyper/00$numsin.html\">$sintesi</a>","fr"=>"<a href=\"/mistica/francais/emec/prod/hyper/00$numsin.htmltml\">$sintesi</a>","po"=>"<a href=\"/mistica/portugues/emec/prod/hyper/$numsin.html\">$sintesi</a>"),
"3"  => array("es"=>"<a href=\"/mistica/castellano/emec/produccion/hyper/0$numsin.html\">$sintesi</a>","en"=>"<a href=\"/mistica/english/emec/production/hyper/0$numsin.html\">$sintesi</a>","fr"=>"<a href=\"/mistica/francais/emec/prod/hyper/0$numsin.htmltml\">$sintesi</a>","po"=>"<a href=\"/mistica/portugues/emec/prod/hyper/$numsin.html\">$sintesi</a>"),
"4"  => array("es"=>"<a href=\"/mistica/castellano/emec/produccion/hyper/$numsin.html\">$sintesi</a>","en"=>"<a href=\"/mistica/english/emec/production/hyper/$numsin.html\">$sintesi</a>","fr"=>"<a href=\"/mistica/francais/emec/prod/hyper/$numsin.htmltml\">$sintesi</a>","po"=>"<a href=\"/mistica/portugues/emec/prod/hyper/$numsin.html\">$sintesi</a>"));
$sinthesoid=$sinth["$len"]["$idi"];


?>
   
      <table width="136" border="0">
        <tr bgcolor="#FF9933"> 
          <td> 
            <div align="center"><font color="#0034D0"><b><font color="#003468"><a href="
<?echo $sinthesi ?>"><font face="helvetica" size="2"><?echo"$sinthesoid";?></font></a></font></b></font></div>
          </td>
        </tr>
        <tr bgcolor="#FF9933"> 
          <td> 
<?
if ($idi!= $lengua) {
echo"<div align=\"center\"><font color=\"#0034D0\"><b><a
href=\"/mistica/bdd/men.php3$lienmessori\"><font face=\"helvetica\"
size=\"2\">$menori</font></a></b> </font></div>"; 
} 
?>          
</td>
        </tr>
      </table>
<?
}
//le corps du message
echo"<hr noshade color=\"C0C0C0\">";
?>
<table width="640">
<tr>
<td>
<?
// verif trad
$tabtrad = array (
    "es"  => array("es"=>"ESPANOL", "en"=>"INGLES","fr"=>"FRANCES","po"=>"PORTUGUES"),
    "en" => array("es"=>"SPANISH","en"=>"ENGLISH","fr"=>"FRENCH","po"=>"PORTUGUESE"),
  "fr" => array("es"=>"ESPAGNOL","en"=>"ANGLAIS","fr"=>"FRANCAIS","po"=>"PORTUGAIS"),
  "po" => array("es"=>"ESPANHOL","en"=>"INGLÊS","fr"=>"FRANCES","po"=>"PORTUGUES"));

$langue=$tabtrad[$idi][$ling];
if ($cat !="C2") {
if ($ling!=$idi) {

echo "<font face=\"helvetica, verdana, arial,  sans serif\" size=\"2\"><br>$automatica &nbsp; $langue.</font>";
}
}
echo "<p><font face=\"HELVETICA\" size=\"2\"><a href=\"http://funredes.org/mistica/bdd/attachements/$nom\">$bajiri $langue</a></font></p>";

if ($cat !="C2") {
//affichage message
echo"<p><font size=\"2\" face=\"Helvetica\">";
$attachement=pg_exec($conn, "select contenido, id_chunk_aso from
archi where id_asociacion='$idaso' and codigo_idioma='$idi' order
by id_chunk_aso");

for($h=0; $h<pg_numrows($attachement); $h++) { 
$got = pg_fetch_row($attachement,$h);
//$got[0]=htmlentities($got[0]);
$contenido=stripslashes($got[0]);
echo "$contenido";
}
echo" </font></p>";
}
if ($cat=="C2") {
//affichage message
echo"<p><font size=\"2\" face=\"Helvetica\">";
$attachement=pg_exec($conn, "select contenido, id_chunk_aso from
archi where id_asociacion='$idaso' and codigo_idioma='$ling' order
by id_chunk_aso");
for($h=0; $h<pg_numrows($attachement); $h++) { 
$got = pg_fetch_row($attachement,$h);
//$got[0]=htmlentities($got[0]);
$contenido=stripslashes($got[0]);
echo "$contenido";
}
echo" </font></p>";
}
?>
</td> 
		 
    <td bgcolor="#41a13f" width="15">&nbsp; </td> 
	</tr> 
</table> 

</table> 

<table width="640" border="0">
        <tr>
                <td bgcolor="#5050d1">
                        <table width="630" border="0">
                                <tr>
                                        <td bgcolor="#eeeeee" align="center">
                                                <font face="helvetica, verdana, arial,  sans serif" size="2">
                                                &nbsp;
                                                </font>
                                        </td>   
                                </tr>
                        </table>
                </td>   
        </tr>
</table>

<!--pie--> 
<hr>
<table width="640" border="0" bgcolor="#eeeeee">
        <tr>
                <td>
                        <a HREF="javascript:history.go(-1)" onMouseOver="if (VersionNavigateur(3.0,4.0))img7.src='/mistica/bdd/img/backcolor.gif' " onMouseOut="img7.src='/mistica/bdd/img/backnegro.gif' "><img name="img7" src="/mistica/bdd/img/backnegro.gif" width="18" height="18" border="0" alt="Sua página prévia" onLoad="tempImg=new Image(0,0); tempImg.src='/mistica/bdd/img/backcolor.gif'"></a>
                        
                </td>
                <td align="center">
                        <a HREF="#top" onMouseOver="if (VersionNavigateur(3.0,4.0))img6.src='/mistica/bdd/img/topcolor.gif' " onMouseOut="img6.src='/mistica/bdd/img/topnegro.gif' "><img name="img6" src="/mistica/bdd/img/topnegro.gif" width="18" height="18" border="0" alt="Em topo" onLoad="tempImg=new Image(0,0); tempImg.src='/mistica/bdd/img/topcolor.gif'"></a>
                </td>
                <td align="right">
                        
                        <a HREF="javascript:history.go(+1)" onMouseOver="if (VersionNavigateur(3.0,4.0))img8.src='/mistica/bdd/img/forwardcolor.gif' " onMouseOut="img8.src='/mistica/bdd/img/forwardnegro.gif' "><img name="img8" src="/mistica/bdd/img/forwardnegro.gif" width="18" height="18" border="0" alt="Sua próxima página" onLoad="tempImg=new Image(0,0); tempImg.src='/mistica/bdd/img/forwardcolor.gif'"></a>
                </td>
                
        </tr>
        
</table>

<table width="640" border="0">
        <tr>
                
                
    <td align="center"> <font face="helvetica, verdana, arial, sans serif" size="2"> 
      <?echo"$credit";?> | 
<?echo "$mapa";?> | <?echo"$correo"?>: <a HREF="MAILTO:webmistica@funredes.org">&lt;webmistica@funredes.org&gt;</a> 
      </font> </td>
        </tr>
        <tr>
<?
echo "<td align=\"center\"> <font face=\"helvetica, verdana, arial, sans serif\" size=\"2\">http://www.funredes.org/mistica$PHP_SELF<br>$modif: &nbsp; $dia</font>";
?>

        </tr>
</table>

</body>
</html>
<?
}
}
?>