<%@ Language="VBScript" %> <% Option Explicit %> <% Response.Buffer = True %> <% '***************************************************************************** ' Nombre: afdb__fch.asp ' Tipo: ASP archivo ' Proyecto: ASFEDEBI (afdb) ' Autor: Novisline ' Fecha: 2007-10-03 ' Versión: 0.0 beta ' Comentarios: Este archivo genera el HTML de la pagina "ficha". '******************************************************************************** %> <% '****************************************************************** 'declaracion de constantes / variables privadas (globales a nivel de archivo) '********************************************************************* 'constantes 'variables Dim pc_afdb_fch__Aux_1 'dato de operacion auxiliar pc_afdb_fch__Aux_1 = "" Dim pc_afdb_fch__ID_Org 'ID de piso (producto) pc_afdb_fch__ID_Org = "" Dim pc_afdb_fch__Modo pc_afdb_fch__Modo = kc_afdb_pub__ID_Modo__Ficha_PD %> <% 'codigo principal 'iniciar estatus y variables particulares antes de crear pagina generica y enviar el HTML Call afdb_gen__IniEstatus() Call afdb_fch__Iniciar(pn_afdb_pub__Error) Call afdb_gen__PagNormal(kc_afdb_pub__ID_Pag__Ficha, pc_afdb_fch__Modo, "", kc_afdb_pub__Ruta_XSL__Ficha, null, pn_afdb_pub__Error) 'ID de federacion PD ' Call gen_pag_utl__Est_Estatus(kc_afdb_pub__Estatus__Federacion_1, pc_afdb_fch__ID_Org) Call afdb_fch__Act_Cookies(pn_afdb_pub__Error) Call afdb_gen__EnviarRespuesta(pn_afdb_pub__Error) %> <% '************************************************************** ' Nombre: afdb_fch__Iniciar ' Tipo: Funcion VBScript ' Proyecto: ASFEDEBI (afdb) ' Acepta: lError codigo de error heredado ' Devuelve: nada ' Comentarios: Inicia el tipo de noticia. ' Autor: Novisline ' Fecha: 2007-10-03 ' ************************************************************* %> <% Function afdb_fch__Iniciar(ByRef lError) 'On Error Resume Next Dim cAS 'AS diversas Dim nErrorArgus 'errores en AS 'comprobar si hay error heredado y salir si eso Call depuMostrar("afdb_fch__Iniciar() llamado", "") if (lError <> kiErrorNinguno) then Call depuErrorHeredado("afdb_fch__Iniciar()", lError) Exit Function end if 'iniciar operacion y datos auxiliares pc_afdb_fch__Modo = genObtenerValorRequest(kc_afdb_fch__AS_Modo) select case pc_afdb_fch__Modo case kc_afdb_pub__ID_Modo__Ficha_Principal case kc_afdb_pub__ID_Modo__Ficha_Todas_Actividades case kc_afdb_pub__ID_Modo__Ficha_Todos_Descargas case kc_afdb_pub__ID_Modo__Ficha_1_Enlace case kc_afdb_pub__ID_Modo__Ficha_Todos_Enlaces case kc_afdb_pub__ID_Modo__Ficha_Todas_Galerias case kc_afdb_pub__ID_Modo__Ficha_Todas_Noticias 'no hacer nada case kc_afdb_pub__ID_Modo__Ficha_1_Actividad, kc_afdb_pub__ID_Modo__Ficha_1_Galeria, kc_afdb_pub__ID_Modo__Ficha_1_Noticia pc_afdb_fch__Aux_1 = genObtenerValorRequest(kc_afdb_fch__AS_Aux_1) case else pc_afdb_fch__Modo = kc_afdb_pub__ID_Modo__Ficha_PD end select 'ID de federacion pc_afdb_fch__ID_Org = genObtenerValorRequest(kc_afdb_fch__AS_ID_Org) Call depuMostrar(": pc_afdb_fch__Modo", pc_afdb_fch__Modo) Call depuMostrar(": pc_afdb_fch__ID_Org", pc_afdb_fch__ID_Org) End Function %> <% '************************************************************** ' Nombre: afdb_fch__Act_Cookies ' Tipo: Funcion VBScript ' Proyecto: ASFEDEBI (afdb) ' Acepta: oPagXML XML de la pagina ' lError codigo de error heredado ' Devuelve: nada ' Comentarios: Almacena los cookies que contienen los IDs de las ultimas ' federaciones vistas. ' Autor: Novisline ' Fecha: 2007-10-07 ' ************************************************************* %> <% Function afdb_fch__Act_Cookies(ByRef lError) 'On Error Resume Next Dim cFed_1 Dim cFed_2 Dim cFed_3 'comprobar si hay error heredado y salir si eso Call depuMostrar("afdb_fch__Act_Cookies() llamado", "") if (lError <> kiErrorNinguno) then Call depuErrorHeredado("afdb_fch__Act_Cookies()", lError) Exit Function end if cFed_1 = gen_pag_utl__Obt_Val_Estatus(kc_afdb_pub__Estatus__Federacion_1) cFed_2 = gen_pag_utl__Obt_Val_Estatus(kc_afdb_pub__Estatus__Federacion_2) cFed_3 = gen_pag_utl__Obt_Val_Estatus(kc_afdb_pub__Estatus__Federacion_3) if (not genCadenaVacia(pc_afdb_fch__ID_Org)) then Call genEstablecerValorCookie(kc_afdb_pub__cookie__Federacion_3, cFed_2, ke_afdb_pub__DiasCookies) Call genEstablecerValorCookie(kc_afdb_pub__cookie__Federacion_2, cFed_1, ke_afdb_pub__DiasCookies) Call genEstablecerValorCookie(kc_afdb_pub__cookie__Federacion_1, pc_afdb_fch__ID_Org, ke_afdb_pub__DiasCookies) end if End Function %> <% '************************************************************** 'funciones utilizadas por "afdb__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__util.inc:afdb_gen__PagNormal()" para ' anadir los concretos. ' Autor: Novisline ' Fecha: 2007-10-03 ' ************************************************************* %> <% Function afdb_gen__fdu_Adr_XML_Ifaz(ByRef oPagXML, ByRef oIfazXML, ByRef lError) 'On Error Resume Next Dim cID 'IDs diversas 'anadir concretos Call pagAnadirInterfaz(oIfazXML, oPagXML, kc_afdb_gen__ID_IFaz__Ficha, "", lError) select case pc_afdb_fch__Modo case kc_afdb_pub__ID_Modo__Ficha_Principal case kc_afdb_pub__ID_Modo__Ficha_1_Enlace 'no hacer nada case kc_afdb_pub__ID_Modo__Ficha_Todas_Actividades 'actividades Call pagAnadirInterfaz(oIfazXML, oPagXML, kc_afdb_gen__ID_IFaz__Ficha_Acts, "", lError) case kc_afdb_pub__ID_Modo__Ficha_1_Actividad '1 actividad Call pagAnadirInterfaz(oIfazXML, oPagXML, kc_afdb_gen__ID_IFaz__Ficha_Act_1, "", lError) case kc_afdb_pub__ID_Modo__Ficha_Todos_Descargas 'descargas Call pagAnadirInterfaz(oIfazXML, oPagXML, kc_afdb_gen__ID_IFaz__Ficha_Descargas, "", lError) case kc_afdb_pub__ID_Modo__Ficha_Todos_Enlaces 'enlaces Call pagAnadirInterfaz(oIfazXML, oPagXML, kc_afdb_gen__ID_IFaz__Ficha_Enlaces, "", lError) case kc_afdb_pub__ID_Modo__Ficha_Todas_Galerias 'galerias Call pagAnadirInterfaz(oIfazXML, oPagXML, kc_afdb_gen__ID_IFaz__Ficha_Galerias, "", lError) case kc_afdb_pub__ID_Modo__Ficha_1_Galeria '1 galeria Call pagAnadirInterfaz(oIfazXML, oPagXML, kc_afdb_gen__ID_IFaz__Ficha_Galeria_1, "", lError) case kc_afdb_pub__ID_Modo__Ficha_Todas_Noticias 'noticias Call pagAnadirInterfaz(oIfazXML, oPagXML, kc_afdb_gen__ID_IFaz__Ficha_Noticias, "", lError) case kc_afdb_pub__ID_Modo__Ficha_1_Noticia '1 noticia Call pagAnadirInterfaz(oIfazXML, oPagXML, kc_afdb_gen__ID_IFaz__Ficha_Noticia_1, "", lError) end select 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__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: 2007-10-03 ' ************************************************************* %> <% Function afdb_gen__fdu_Adr_XML_Datos(ByRef oPagXML, ByRef lError) 'On Error Resume Next Dim oConxnBD 'conexion ADO con la BD Dim oRS 'recordset ADO Dim oResXML 'XML de resultados Dim oXML 'objetos XML diversos Dim oXML_2 'objetos XML diversos Dim oXML_DOM Dim fHoy Dim cConsulta 'consulta Dim cCriterios Dim cID_Album Dim cID_Org Dim cID_Picasa Dim cID_Usuario Dim cURL Dim eTipo Dim bGaleriaEsPicasa: bGaleriaEsPicasa = false Dim lErrorLocal cCriterios = "" if (genCadenaVacia(pc_afdb_fch__ID_Org)) then else 'operacion por defecto, ficha principal 'sacar datos de la federacion cConsulta = Replace(kc_afdb_fch__SQL_Obt_Org_ID, kc_gen__CTR_1, gen_pag_utl__ObtIdioma()) cConsulta = Replace(cConsulta, kc_gen__CTR_2, ubdValorSQL(pc_afdb_fch__ID_Org, null)) ' Call afdb_pub__Adr_XML_Datos_Consulta(oPagXML, cConsulta, kc_afdb_pub__XML_ne_orgs, kc_afdb_pub__XML_ne_org, 1, lError) Set oConxnBD = afdb_pub__ObtConxnBD(lError) Set oRS = ubdConsultar(oConxnBD, cConsulta, 1, lError) 'sacar ID de Picasa para las galerias if (true or pb_gen_pag_utl__IP_Cliente_es_Novisline) then Call oRS.MoveFirst() cID_Picasa = Trim(oRS.Fields.Item("picasa")) bGaleriaEsPicasa = not genCadenaVacia(cID_Picasa) end if Set oResXML = ubd__ObtDocuXML_RS_Datos(oRS, kc_afdb_pub__XML_ne_orgs, kc_afdb_pub__XML_ne_org, kc_afdb_pub__XML_ns_afdb, 1, 1, lError) Call ubdCerrarRS(oRS) Set oResXML = gen_xml__ObtElemDocu(oResXML, lError) Call pagAnadirElementoDatos(oPagXML, oResXML, lError) Call ubdCerrarConxn(oConxnBD) 'anadir ID de la federacion Call pagAnadirHijoDeValorDatos(oPagXML, kc_afdb_pub__XML_ne_id_org, kc_afdb_pub__XML_ns_afdb, pc_afdb_fch__ID_Org, lError) select case pc_afdb_fch__Modo case kc_afdb_pub__ID_Modo__Ficha_Principal case kc_afdb_pub__ID_Modo__Ficha_1_Enlace 'no hacer nada case kc_afdb_pub__ID_Modo__Ficha_Todas_Actividades 'sacar proximas y ultimas actividades fHoy = Date() cConsulta = Replace(kc_afdb_fch__SQL_Obt_Actividades_Proximas_x_ID, kc_gen__CTR_1, gen_pag_utl__ObtIdioma()) cConsulta = Replace(cConsulta, kc_gen__CTR_2, ubdValorSQL(pc_afdb_fch__ID_Org, null)) cConsulta = Replace(cConsulta, kc_gen__CTR_3, ubdValorSQL(fHoy, 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, -1, lError) fHoy = Date() cConsulta = Replace(kc_afdb_fch__SQL_Obt_Actividades_Ultimas_x_ID, kc_gen__CTR_1, gen_pag_utl__ObtIdioma()) cConsulta = Replace(cConsulta, kc_gen__CTR_2, ubdValorSQL(pc_afdb_fch__ID_Org, null)) cConsulta = Replace(cConsulta, kc_gen__CTR_3, ubdValorSQL(fHoy, 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, -1, lError) case kc_afdb_pub__ID_Modo__Ficha_1_Actividad 'actividad 1 cConsulta = Replace(kc_afdb_fch__SQL_Obt_Act_1_ID, kc_gen__CTR_1, gen_pag_utl__ObtIdioma()) cConsulta = Replace(cConsulta, kc_gen__CTR_2, ubdValorSQL(pc_afdb_fch__Aux_1, null)) Call afdb_pub__Adr_XML_Datos_Consulta(oPagXML, cConsulta, kc_afdb_pub__XML_ne_acts, kc_afdb_pub__XML_ne_act, 1, lError) case kc_afdb_pub__ID_Modo__Ficha_Todos_Descargas cConsulta = Replace(kc_afdb_fch__SQL_Obt_Descargas_ID, kc_gen__CTR_1, gen_pag_utl__ObtIdioma()) cConsulta = Replace(cConsulta, kc_gen__CTR_2, ubdValorSQL(pc_afdb_fch__ID_Org, null)) Call afdb_pub__Adr_XML_Datos_Consulta(oPagXML, cConsulta, kc_afdb_pub__XML_ne_descargas, kc_afdb_pub__XML_ne_descarga, -1, lError) case kc_afdb_pub__ID_Modo__Ficha_Todos_Enlaces 'sacar enlaces cConsulta = Replace(kc_afdb_fch__SQL_Obt_Enlaces_ID, kc_gen__CTR_1, gen_pag_utl__ObtIdioma()) cConsulta = Replace(cConsulta, kc_gen__CTR_2, ubdValorSQL(pc_afdb_fch__ID_Org, null)) Call afdb_pub__Adr_XML_Datos_Consulta(oPagXML, cConsulta, kc_afdb_pub__XML_ne_enlaces, kc_afdb_pub__XML_ne_enlace, -1, lError) case kc_afdb_pub__ID_Modo__Ficha_Todas_Galerias 'sacar galerias o bien de la BD o de Picasa if (bGaleriaEsPicasa) then cURL = Replace(kc_afdb_pub__Picasa_URI_Indice, kc_gen__CTR_1, cID_Picasa) if (pb_gen_pag_utl__IP_Cliente_es_Novisline) then ' Call Response.Write("

" & cURL & "

") end if Set oXML_DOM = gen_xml__Obt_HTTP_DOM(cURL, lErrorLocal) Set oXML_DOM = gen_xml__ObtElemDocu(oXML_DOM, lErrorLocal) Call pagAnadirElementoDatos(oPagXML, oXML_DOM, lErrorLocal) else cConsulta = Replace(kc_afdb_fch__SQL_Obt_Galerias_ID, kc_gen__CTR_1, gen_pag_utl__ObtIdioma()) cConsulta = Replace(cConsulta, kc_gen__CTR_2, ubdValorSQL(pc_afdb_fch__ID_Org, null)) Call afdb_pub__Adr_XML_Datos_Consulta(oPagXML, cConsulta, kc_afdb_pub__XML_ne_galerias, kc_afdb_pub__XML_ne_galeria, -1, lError) end if case kc_afdb_pub__ID_Modo__Ficha_1_Galeria 'una galeria concreta if (bGaleriaEsPicasa) then cID_Album = genObtenerValorRequest(kc_afdb_fch__AS_Galeria_ID_Album) cID_Usuario = genObtenerValorRequest(kc_afdb_fch__AS_Galeria_ID_Usuario) cURL = Replace(kc_afdb_pub__Picasa_URI_Album, kc_gen__CTR_1, cID_Usuario) cURL = Replace(cURL, kc_gen__CTR_2, cID_Album) Call depuMostrar(": cURL", cURL) Set oXML_DOM = gen_xml__Obt_HTTP_DOM(cURL, lErrorLocal) Set oXML_DOM = gen_xml__ObtElemDocu(oXML_DOM, lErrorLocal) Call pagAnadirElementoDatos(oPagXML, oXML_DOM, lErrorLocal) else cConsulta = Replace(kc_afdb_fch__SQL_Obt_Galeria_1_ID, kc_gen__CTR_1, gen_pag_utl__ObtIdioma()) cConsulta = Replace(cConsulta, kc_gen__CTR_2, ubdValorSQL(pc_afdb_fch__Aux_1, null)) Call afdb_pub__Adr_XML_Datos_Consulta(oPagXML, cConsulta, kc_afdb_pub__XML_ne_galerias, kc_afdb_pub__XML_ne_galeria, 1, lError) end if case kc_afdb_pub__ID_Modo__Ficha_Todas_Noticias 'sacar actividades cConsulta = Replace(kc_afdb_fch__SQL_Obt_Noticias_ID, kc_gen__CTR_1, gen_pag_utl__ObtIdioma()) cConsulta = Replace(cConsulta, kc_gen__CTR_2, ubdValorSQL(pc_afdb_fch__ID_Org, null)) Call afdb_pub__Adr_XML_Datos_Consulta(oPagXML, cConsulta, kc_afdb_pub__XML_ne_noticias, kc_afdb_pub__XML_ne_noticia, -1, lError) case kc_afdb_pub__ID_Modo__Ficha_1_Noticia 'actividad 1 cConsulta = Replace(kc_afdb_fch__SQL_Obt_Noticia_1_ID, kc_gen__CTR_1, gen_pag_utl__ObtIdioma()) cConsulta = Replace(cConsulta, kc_gen__CTR_2, ubdValorSQL(pc_afdb_fch__Aux_1, null)) Call afdb_pub__Adr_XML_Datos_Consulta(oPagXML, cConsulta, kc_afdb_pub__XML_ne_noticias, kc_afdb_pub__XML_ne_noticia, 1, lError) end select Call ubdCerrarConxn(oConxnBD) end if Set oRS = Nothing Set oConxnBD = Nothing Set oResXML = Nothing Set oXML = Nothing Set oXML_DOM = Nothing End Function %>