<%@ Language="VBScript" %> <% Option Explicit %> <% Response.Buffer = True %> <% '***************************************************************************** ' Nombre: afdb__smp.asp ' Tipo: ASP archivo ' Proyecto: ASFEDEBI (afdb) ' Autor: Novisline ' Fecha: 2008-11-08 ' Versión: 0.0 beta ' Comentarios: Este archivo genera el HTML de la pagina "sitemap". '******************************************************************************** %> <% '****************************************************************** 'declaracion de constantes / variables privadas (globales a nivel de archivo) '********************************************************************* 'constantes 'variables %> <% 'codigo principal 'iniciar estatus y variables particulares antes de crear pagina generica y enviar el HTML Call afdb_gen__IniEstatus() Call afdb_gen__PagNormal(kc_afdb_pub__ID_Pag__Sitemap, "", kc_afdb_pub__ID_Menu__Sitemap, kc_afdb_pub__Ruta_XSL__Sitemap, null, pn_afdb_pub__Error) Call afdb_gen__EnviarRespuesta(pn_afdb_pub__Error) %> <% '************************************************************** 'funciones utilizadas por "afdb_pub__util.inc" ' ************************************************************* %> <% '************************************************************** ' Nombre: afdb_gen__fdu_Adr_XML_Ifaz ' Tipo: Funcion VBScript ' Proyecto: ASFEDEBI (afdb) ' Acepta: oPagXML XML de la pagina ' oIfazXML XML de interfaz ' lError codigo de error heredado ' Devuelve: nada ' Comentarios: Llamado por "afdb_pub__util.inc:afdb_gen__PagNormal()" para ' anadir los concretos. ' Autor: Novisline ' Fecha: 2008-11-08 ' ************************************************************* %> <% Function afdb_gen__fdu_Adr_XML_Ifaz(ByRef oPagXML, ByRef oIfazXML, ByRef lError) 'On Error Resume Next 'anadir concretos Call pagAnadirInterfaz(oIfazXML, oPagXML, kc_afdb_gen__ID_IFaz__Sitemap, "", lError) End Function %> <% '************************************************************** ' Nombre: afdb_gen__fdu_Adr_XML_Datos ' Tipo: Funcion VBScript ' Proyecto: ASFEDEBI (afdb) ' Acepta: oPagXML XML de la pagina ' lError codigo de error heredado ' Devuelve: nada ' Comentarios: Llamado por "afdb_pub__util.inc:afdb_gen__PagNormal()" para ' anadir el XML de los datos concretos. ' ' ANade los datos en funcion de la operacion a realizar. ' Autor: Novisline ' Fecha: 2008-11-08 ' ************************************************************* %> <% Function afdb_gen__fdu_Adr_XML_Datos(ByRef oPagXML, ByRef lError) 'On Error Resume Next Dim oXML_HTTP Dim oXML_DOM Dim cRSS_XML Dim cRuta Dim nErrorLocal 'anadir XML de sitemap Call afdb_pub__Adr_XML_Datos(oPagXML, kc_afdb_pub__ruta_XML__sitemap, gen_pag_utl__ObtIdioma(), lError) If (pb_gen_pag_utl__IP_Cliente_es_Novisline) Then Set oXML_HTTP = Server.CreateObject("MSXML2.ServerXMLHTTP.3.0") Call oXML_HTTP.Open("GET", "http://feeds2.feedburner.com/Bytescout", false) Call oXML_HTTP.Send() cRSS_XML = oXML_HTTP.ResponseText Set oXML_DOM = Server.CreateObject("MSXML2.DomDocument.3.0") oXML_DOM.async = False oXML_DOM.validateOnParse = False oXML_DOM.resolveExternals = False If (not oXML_DOM.LoadXml(cRSS_XML)) Then Call depuMostrar("NSP cargar XML de RSS", xmlDOM.parseError.reason) ' ErrorMessage = "Can not load XML:" & vbCRLF & xmlDOM.parseError.reason & vbCRLF & ErrorMessage else Call depuMostrar("gerinthere", "") End If end if End Function %>