<%@ Language="VBScript" %> <% Option Explicit %> <% Response.Buffer = True %> <% ' %> <% ' %> <% Call afdb_gen__IniEstatus() Call afdb_gen__PagNormal(kc_afdb_pub__ID_Pag__Principal, "", kc_afdb_pub__ID_Menu__Principal, kc_afdb_pub__Ruta_XSL__Principal, null, pn_afdb_pub__Error) Call afdb_gen__EnviarRespuesta(pn_afdb_pub__Error) %> <% ' %> <% ' %> <% Function afdb_gen__fdu_Adr_XML_Ifaz(ByRef oPagXML, ByRef oIfazXML, ByRef lError) Call pagAnadirInterfaz(oIfazXML, oPagXML, kc_afdb_gen__ID_IFaz__Principal, "", lError) End Function %> <% ' %> <% Function afdb_gen__fdu_Adr_XML_Datos(ByRef oPagXML, ByRef lError) Dim cRuta Dim nErrorLocal Call afdb_pub__Adr_XML_Datos(oPagXML, kc_afdb_pub__ruta_XML__noticias, gen_pag_utl__ObtIdioma(), lError) Call afdb_pub__Adr_XML_Datos(oPagXML, kc_afdb_pub__ruta_XML__noticia_ppl, gen_pag_utl__ObtIdioma(), lError) Call afdb_pub__Adr_XML_Datos(oPagXML, kc_afdb_pub__ruta_XML__galerias, gen_pag_utl__ObtIdioma(), lError) Call afdb_ppl__Adr_Actividades(oPagXML, lError) End Function %> <% ' %> <% Function afdb_ppl__Adr_Actividades(ByRef oPagXML, ByRef lError) Dim fTope Dim fDesde Dim cConsulta 'consulta Call depuMostrar("afdb_ppl__Adr_Actividades() llamado", "") if (lError <> kiErrorNinguno) then Call depuErrorHeredado("afdb_ppl__Adr_Actividades()", lError) Exit Function end if fDesde = Date() cConsulta = Replace(kc_afdb_ppl__SQL_Obt_Actividades_Proximas, kc_gen__CTR_1, gen_pag_utl__ObtIdioma()) cConsulta = Replace(cConsulta, kc_gen__CTR_2, ubdValorSQL(fDesde, kn_ubd__TipoFecha_F)) Call afdb_pub__Adr_XML_Datos_Consulta(oPagXML, cConsulta, kc_afdb_pub__XML_ne_prx_act, kc_afdb_pub__XML_ne_act, ke_afdb_ppl__Actividades_Max, lError) cConsulta = Replace(kc_afdb_ppl__SQL_Obt_Actividades_Ultimas, kc_gen__CTR_1, gen_pag_utl__ObtIdioma()) cConsulta = Replace(cConsulta, kc_gen__CTR_2, ubdValorSQL(fDesde, kn_ubd__TipoFecha_F)) Call afdb_pub__Adr_XML_Datos_Consulta(oPagXML, cConsulta, kc_afdb_pub__XML_ne_ult_act, kc_afdb_pub__XML_ne_act, ke_afdb_ppl__Actividades_Max, lError) Call depuMostrar(": fDesde", fDesde) Call depuMostrar(": fTope", fTope) End Function %>