<%@ Language="VBScript" %> <% Option Explicit %> <% Response.Buffer = True %> <% ' %> <% ' Dim pc_afdb_cnt__ID_Contenido 'ID de piso (producto) pc_afdb_cnt__ID_Contenido = "" Dim pc_cnt__ID_Menu pc_cnt__ID_Menu = "" %> <% Call afdb_gen__IniEstatus() Call afdb_cnt__Iniciar(pn_afdb_pub__Error) Call afdb_gen__PagNormal(kc_afdb_pub__ID_Pag__Contenido, "", pc_cnt__ID_Menu, kc_afdb_pub__Ruta_XSL__Contenido, null, pn_afdb_pub__Error) Call afdb_gen__EnviarRespuesta(pn_afdb_pub__Error) %> <% ' %> <% Function afdb_cnt__Iniciar(ByRef lError) Dim cAS 'AS diversas Dim nErrorArgus 'errores en AS Call depuMostrar("afdb_cnt__Iniciar() llamado", "") if (lError <> kiErrorNinguno) then Call depuErrorHeredado("afdb_cnt__Iniciar()", lError) Exit Function end if pc_afdb_cnt__ID_Contenido = genObtenerValorRequest(kc_afdb_cnt__AS_ID_Contenido) pc_cnt__ID_Menu = Replace(kc_afdb_pub__ID_Menu__Contenidos, kc_gen__CTR_1, pc_afdb_cnt__ID_Contenido) Call depuMostrar(": pc_afdb_cnt__ID_Contenido", pc_afdb_cnt__ID_Contenido) End Function %> <% ' %> <% ' %> <% Function afdb_gen__fdu_Adr_XML_Ifaz(ByRef oPagXML, ByRef oIfazXML, ByRef lError) Call pagAnadirInterfaz(oIfazXML, oPagXML, kc_afdb_gen__ID_IFaz__Contenido, "", lError) Call pagAnadirInterfaz(oIfazXML, oPagXML, kc_afdb_gen__ID_IFaz__Contenidos_Tipos, "", lError) End Function %> <% ' %> <% Function afdb_gen__fdu_Adr_XML_Datos(ByRef oPagXML, ByRef lError) Dim cConsulta 'consulta cConsulta = Replace(kc_afdb_cnt__SQL_Obt_Contenido_1_ID, kc_gen__CTR_1, gen_pag_utl__ObtIdioma()) cConsulta = Replace(cConsulta, kc_gen__CTR_2, ubdValorSQL(pc_afdb_cnt__ID_Contenido, null)) Call afdb_pub__Adr_XML_Datos_Consulta(oPagXML, cConsulta, kc_afdb_pub__XML_ne_paginas_contenidos, kc_afdb_pub__XML_ne_pagina_contenidos, 1, lError) End Function %>