Noticias Clarion (eng):
<% 'Response.Charset = "iso-8859-1" Session.LCID = 2058 Dim mm_xsl1: Set mm_xsl1 = new MM_XSLTransform mm_xsl1.setXML "http://www.clarionmag.com/news.rss" mm_xsl1.setXSL "noticiasclarion.xsl" mm_xsl1.addParameter "ItemsPerPage", "10" 'Validar que se conecte a las noticias de Codegear: 'Se modifico el /includes/MM_XSLTransform.classVB.asp para que valide bien. 'agregando en la lectura del rss o del xsl las variables de sesion session("NoLoadXML") y session("NoLoadXSL") 'Load XSL Dim contenido contenido = mm_xsl1.Transform() if (session("NoLoadXML") = "true") or (session("NoLoadXSL") = "true") then 'response.Write("No se cargo el rss") response.Write("
 Noticias temporalmente inactivas.
") else response.Write("
") Response.write(""& contenido & "") response.Write("
") end if 'No se usa: 'Validar que se conecte a las noticias de Codegear: 'Load XSL 'Set xmlObj = Server.CreateObject("Microsoft.XMLDOM") 'xmlObj.Async = False 'xmlObj.validateOnParse = False 'response.write ("
"&Server.MapPath("../t90qdv3/noticiascodegear.xsl")) 'If xmlObj.Load(Server.MapPath("../t90qdv3/noticiascodegear.xsl")) Then ' response.Write("
") ' Response.write(""& mm_xsl1.Transform() & "") ' response.Write("
") 'Else ' response.Write("
  Noticias 'temporalmente inactivas.
") 'End If %>