\n"; $strXML .= "\n"; //Cabecera $strXML .= " \n"; $strXML .= " ".RSS_TITULO."\n"; $strXML .= " ".SERVER."\n"; $strXML .= " \n"; $strXML .= " \n"; $strXML .= " ".SERVER.DOC_ROOT.DIR_IMAGENES."logotipo.gif"."\n"; $strXML .= " ".RSS_LOGO."\n"; $strXML .= " ".SERVER."\n"; $strXML .= " \n"; switch($Cod_Idioma){ case "EN": $strXML .= " "."en-us"."\n"; //$strXML .= " "."en-gb"."\n"; break; case "FR": $strXML .= " "."fr-fr"."\n"; break; case "DE": $strXML .= " "."de-de"."\n"; break; case "CT": $strXML .= " "."zh-tw"."\n"; break; case "CS": $strXML .= " "."zh-cn"."\n"; break; case "JP": $strXML .= " "."ja"."\n"; break; default://ES $strXML .= " "."es-es"."\n"; break; } //Cuerpo $PA = " SELECT "; $PA.= " tbNoticia.Noticia_ID, tbNoticia.TipoNoticia_ID, tbNoticia.Fecha, "; $PA.= " tbNoticia.Titulo, tbNoticia.Subtitulo, "; $PA.= " tbNoticia.Fuente, tbNoticia.Texto, "; $PA.= " tbTipoNoticia.Nombre TipoNoticia "; $PA.= " FROM tbNoticia INNER JOIN tbTipoNoticia ON tbTipoNoticia.TipoNoticia_ID = tbNoticia.TipoNoticia_ID"; $PA.= " WHERE 1=1"; $PA.= " AND tbNoticia.bActivo=1"; $PA.= " AND tbTipoNoticia.bActivo=1"; $PA.= " AND tbTipoNoticia.TipoNoticia_ID NOT IN(75, 76) "; $PA.= " ORDER BY tbNoticia.Noticia_ID DESC"; $PA.= " LIMIT 0,".RSS_NOTICIAS_TOP; $resultado = ExecPA($PA); $NumElementosTotales=mysql_affected_rows(); for ($i=0;$i<$NumElementosTotales;$i++){ $Noticia_ID= intval(ValorCelda($resultado,$i,"Noticia_ID")); $Fecha= date("r",ValorCelda($resultado,$i,"Fecha")); //Thu, 21 Dec 2000 16:01:07 +0200 $Titulo= stripslashes(ValorCelda($resultado,$i,"Titulo")); $Subtitulo= stripslashes(ValorCelda($resultado,$i,"Subtitulo")); $Fuente= stripslashes(ValorCelda($resultado,$i,"Fuente")); $Texto= stripslashes(ValorCelda($resultado,$i,"Texto")); $TipoNoticia= stripslashes(ValorCelda($resultado,$i,"TipoNoticia")); $TipoNoticia= str_replace(" ","",$TipoNoticia); //$TipoNoticia= ParseToUTF8($TipoNoticia); $strXML .= " \n"; $strXML .= " <![CDATA[".$Titulo."]]>\n"; if(trim($Texto)!=""){ $Texto = htmlentities($Texto, ENT_QUOTES, 'UTF-8'); $Texto = utf8_decode($Texto); $Texto = html_entity_decode($Texto, ENT_QUOTES, 'ISO-8859-1'); $strXML .= " \n"; }elseif(trim($Subtitulo)!=""){ $Subtitulo = htmlentities($Subtitulo, ENT_QUOTES, 'UTF-8'); $Subtitulo = utf8_decode($Subtitulo); $Subtitulo = html_entity_decode($Subtitulo, ENT_QUOTES, 'ISO-8859-1'); $strXML .= " \n"; } $strXML .= " ".$Fecha."\n"; if(strlen($TipoNoticia)>0){ $strXML .= " \n"; } $strXML .= " ".SERVER.DOC_ROOT.DIR_NOTICIAS."noticia.php?id=".$Noticia_ID."\n"; $strXML .= " ".SERVER.DOC_ROOT.DIR_NOTICIAS."noticia.php?id=".$Noticia_ID."\n"; $strXML .= " \n"; }//End For //Cierre $strXML .= " \n"; $strXML .= "\n"; echo $strXML; ?>