%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% server.ScriptTimeout=10000 idioma="esp" if Request("idioma")<>"" then session("idioma") = Request("idioma") idioma = Request("idioma") end if if session("idioma")="" then idioma="esp" else idioma = session("idioma") end if session("idioma")=idioma select case ucase(idioma) case "ESP" tit_buscar = "BUSCAR" tit_mas = "VER MAS" nombre_menu = "nombre" subtitulo = "Departamento de Integración y Programas Regionales" titulo = "Instituto para la Integración de América Latina y el Caribe (INTAL)" tit_buscar = "Buscador por palabras" tit_btn_buscar = "Buscar" tit_actualizacion = "Ultima Actualización" home_where = "HOME" case "ENG" tit_buscar = "SEARCH" tit_mas = "MORE" nombre_menu = "name" subtitulo = "Department of Integration and Regional Programs" titulo = "Institute for the Integration of Latin America and the Caribbean (INTAL)" tit_buscar = "Searcher for words" tit_btn_buscar = "Search" tit_actualizacion = "Last Update" home_where = "HOME_ENG" case "POR" tit_buscar = "BUSCAR" tit_mas = "VER MAS" nombre_menu = "nome" subtitulo = "Departamento de Integração e Programas Regionais" titulo = "Institua para a Integração de América Latina e o Caribe (INTAL)" tit_buscar = "Pesquisador " tit_btn_buscar = "Pesquisa" tit_actualizacion = "Por último Atualização" home_where = "HOME_POR" end select set menu = server.CreateObject("ADODB.Recordset") menu.activeconnection = MM_Conexion_STRING menu.source = "SELECT * FROM "&db_name&"MENU WHERE PARENT_ID=50 AND TYPE<>8 ORDER BY ROWORDER" menu.open() set noticias_home = server.CreateObject("ADODB.Recordset") noticias_home.activeconnection = MM_Conexion_String noticias_home.source = "SELECT * FROM "&db_name&"NOVEDADES" noticias_home.open() tipo_carta_home=0 set carta_home = server.CreateObject("ADODB.Recordset") carta_home.activeconnection = MM_Conexion_String carta_home.source = "SELECT * FROM "&db_name&"CARTA_MENSUAL WHERE ACTIVE='1' AND "&home_where&"=1" carta_home.open() if carta_home.eof then tipo_carta_home = 1 carta_home.close() set carta_home = nothing set carta_home = server.CreateObject("ADODB.Recordset") carta_home.activeconnection = MM_Conexion_String carta_home.source = "SELECT * FROM "&db_name&"PUB_PUBLICACION WHERE ACTIVA_"&idioma&"=1 AND HOME=1 AND TIPO_ID=" & id_tipo_carta_mensual carta_home.open() end if if carta_home.eof then tipo_carta_home = 0 carta_home.close() set carta_home = nothing set carta_home = server.CreateObject("ADODB.Recordset") carta_home.activeconnection = MM_Conexion_String carta_home.source = "SELECT TOP 1 * FROM "&db_name&"CARTA_MENSUAL WHERE ACTIVE='1' ORDER BY FECHA" carta_home.open() end if if carta_home.eof then tipo_carta_home = 1 carta_home.close() set carta_home = nothing set carta_home = server.CreateObject("ADODB.Recordset") carta_home.activeconnection = MM_Conexion_String carta_home.source = "SELECT * FROM "&db_name&"PUB_PUBLICACION ACTIVA_"&idioma&"=1 WHERE TIPO_ID=" & id_tipo_carta_mensual carta_home.open() end if set titulos = server.CreateObject("ADODB.Recordset") titulos.activeconnection = MM_Conexion_String titulos.source = "SELECT * FROM "&db_name&"TITULOS_ADMIN_"&idioma titulos.open() set parametros = server.CreateObject("ADODB.Recordset") parametros.activeconnection = MM_Conexion_STRING parametros.source = "SELECT * FROM "&db_name&"PARAMETROS" parametros.open() fecha_actualizacion = day(parametros.fields.Item("fecha").value) & "/" & month(parametros.fields.Item("fecha").value) & "/" & year(parametros.fields.Item("fecha").value) parametros.close() set parametros = nothing %>
| Banco interamericano de Desarollo | Departamento de Integración | English | Portugues | |||||
![]() |
INTAL Instituto para la Integración de América Latina y el Caribe Banco Interamericano de Desarrollo |
|
|||
| Información | Calendario | Redes | Capacitación | Centro de Documentación | Publicaciones | Eventos | Base de Datos | Instrumentos |
![]() ![]() |
| Novedades |
Enlaces |
Contáctenos |
Mapa del Sitio |
Esmeralda 130, piso 16 - (C1035ABD) Buenos Aires - República Argentina - Tel: (5411) 4323-2350 Fax: (5411) 4323-2365 - E-mail: intal@iadb.org |
| Ultima Actualización: 11/10/2007 |