América Central, Panamá y la República Dominicana Sitio del Representante Residente Regional

Oficina del Representante Residente Regional en América Central, Panamá y la República Dominicana

Mayo 2010

Esta página de internet contiene información sobre la labor del FMI en América Central, Panamá y República Dominicana, incluyendo las actividades de la Oficina de Representación del FMI en la Región. Las páginas de internet del FMI correspondientes a los países del área centroamericana ampliada (Costa Rica, República Dominicana, El Salvador, Guatemala, Honduras, Nicaragua y Panamá) contienen información adicional, incluyendo informes oficiales del FMI y documentos del Directorio Ejecutivo en inglés y español que se ocupan de Centroamérica como una región y de cada uno de sus países.

Noticias Relevantes

<% Dim strConnRRNews strConnRRNews = "Driver={ODBC Driver 11 for SQL Server}; Server=PRDINTERNETDB.IMF.ORG,5876; Database=GOTOAPPSDB; UID=www_meta_user; PWD=usemeta;" Dim countryPageURLParts Dim countryISOCode Dim countryPage Dim data_found_rrNews Dim cn_rrNews, rs_rrNews, html_string_rrNews 'SRS 3538 : Added by TCS on 4th August, 2009 Dim rs_rrNewsLOELinks 'Added by TCS for adding new page language Dim pageLang, RTLLanguages 'The following languages follow RTL direction RTLLanguages = "ARA,PER,URD" Dim arrayRTL arrayRTL = Split(RTLLanguages,",") Dim fromDate_rrNews, toDate_rrNews Dim currentPage_rrNews Dim noOfRecords_rrNews Dim totalRecords_rrNews totalRecords_rrNews = 3 currentPage_rrNews = 1 noOfRecords_rrNews = 5 Const adCmdStoredProc_rrNews = &H0004 Const adInteger_rrNews = 3 Const adVarChar_rrNews = 200 Const adParamInput_rrNews = &H0001 Const adParamOutput_rrNews = &H0002 Const adDBDate_rrNews = 133 'open connection and recordset objects set cn_rrNews = server.createObject("ADODB.Connection") set rs_rrNews = server.createObject("ADODB.Recordset") 'SRS 3538 : Added by TCS on 4th August, 2009 set rs_rrNewsLOELinks = server.CreateObject("ADODB.Recordset") 'Use the path of the script to get the country ISO Code. countryPage = Request.ServerVariables("SCRIPT_NAME") If( InStr( 1, countryPage, "/external", 1 ) = 0 ) Then countryPage = "/external" & countryPage End If countryPageURLParts = split( countryPage, "/", -1, 1 ) 'SRS 4866 : Added by TCS on 4th January, 2010 Dim isRegion isRegion = 0 If( InStr( 1, countryPage, "/external/region/", 1 ) > 0 ) Then isRegion = 1 End If countryISOCode = countryPageURLParts(3) pageLang = countryPageURLParts(5) pageLang = Trim(pageLang) 'Page language would be 3 letter iso code for that language. 'If value comes as index.htm the it is main RR page, then language should be ENG by default. If( Len(pageLang) <> 3 ) Then pageLang = "ENG" End If cn_rrNews.open strConnRRNews rs_rrNews.activeconnection = cn_rrNews data_found_rrNews = 0 fromDate_rrNews ="1/1/1901" toDate_rrNews ="1/1/1901" set cmdStoredProc = Server.CreateObject("ADODB.Command") with cmdStoredProc .Prepared = True .CommandType = adCmdStoredProc_rrNews set .ActiveConnection = cn_rrNews .CommandText = "usp_Get_Latest_RRNews" .Parameters.Append .CreateParameter("countryISOCode",adVarChar_rrNews,adParamInput_rrNews,3,countryISOCode) .Parameters.Append .CreateParameter("currentPage",adInteger_rrNews,adParamInput_rrNews,4,currentPage_rrNews) .Parameters.Append .CreateParameter("noOfRecords",adInteger_rrNews,adParamInput_rrNews,4,noOfRecords_rrNews) .Parameters.Append .CreateParameter("fromDate",adVarChar_rrNews,adParamInput_rrNews, 20, fromDate_rrNews) .Parameters.Append .CreateParameter("toDate",adVarChar_rrNews,adParamInput_rrNews,20, toDate_rrNews) .Parameters.Append .CreateParameter("pageLang",adVarChar_rrNews,adParamInput_rrNews,3, pageLang) Set rs_rrNews = .Execute End With set cmdStoredProc = nothing if (rs_rrNews.eof) Then html_string_rrNews = html_string_rrNews & "

Currently there are no News Items

" else If(pageLang = "ENG") Then 'SRS 5243 : Added by TCS on 4th January, 2010 for RSS feeds for RR News section. html_string_rrNews = html_string_rrNews & "" End If End if Dim rrNews_Description, rrNews_Title, rrNews_fileURL,publ_date_rrNews,strDate_rrNews 'SRS 3538 : Added by TCS on 4th August, 2009 Dim rrNews_ArticleId, LOE_link_found Dim rrNews_ArticleLang Dim isRTLLang isRTLLang = 0 if not rs_rrNews.EOF Then while not rs_rrNews.eof data_found_rrNews = 1 publ_date_rrNews = CDate(rs_rrNews.Fields("publishedDate")) strDate_rrNews = CStr( MonthName(Month(publ_date_rrNews)) & " " & Day(publ_date_rrNews) & "," & Year(publ_date_rrNews)) rrNews_fileURL = rs_rrNews.Fields("fileUrl") rrNews_Title = rs_rrNews.Fields("title") rrNews_Description = rs_rrNews.Fields("description") 'SRS 3538 : Added by TCS on 4th August, 2009 rrNews_ArticleId = rs_rrNews.Fields("id") rrNews_ArticleLang = rs_rrNews.Fields("lang") for each language in arrayRTL If(UCase(rrNews_ArticleLang) = UCase(language)) Then isRTLLang = 1 exit for else isRTLLang = 0 End If next 'Encoding the title and description of the article rrNews_Title = Server.HTMLEncode(rrNews_Title) rrNews_Description = Server.HTMLEncode(rrNews_Description) 'Building the title link 'SRS 3538 : Modified by TCS on 4th August, 2009 - Removed the title='Click for more' from link created If (len(rrNews_Title) <> 0) Then If(isRTLLang = 1) Then html_string_rrNews = html_string_rrNews & "

" & rrNews_Title & "

" else html_string_rrNews = html_string_rrNews & "

" & rrNews_Title & "

" End If End if 'Building the description link 'SRS 3538 : Modified by TCS on 4th August, 2009 - Removed the title='Click for more' from link created If(isRTLLang = 1) Then html_string_rrNews = html_string_rrNews & "

" &rrNews_Description & " " html_string_rrNews = html_string_rrNews & "

" else html_string_rrNews = html_string_rrNews & "

" &rrNews_Description & " " html_string_rrNews = html_string_rrNews & "

" End If 'SRS 3538 : Added by TCS on 4th August, 2009 'Building LOE link Dim fileUrl_LOE, language_LOE, langScript_LOE LOE_link_found = 0 set cmdStoredProc = Server.CreateObject("ADODB.Command") with cmdStoredProc .Prepared = True .CommandType = adCmdStoredProc_rrNews set .ActiveConnection = cn_rrNews .CommandText ="usp_Sel_RRNewsLOE" .Parameters.Append .CreateParameter("parentId",adInteger_rrNews,adParamInput_rrNews,3,rrNews_ArticleId) Set rs_rrNewsLOELinks = .Execute End With set cmdStoredProc = nothing 'If there are no LOE links we will not append any content to html content if (rs_rrNewsLOELinks.eof) Then html_string_rrNews = html_string_rrNews & "" else 'If there are some LOE links we would place the links horizontally below the parent article If(isRTLLang = 1) Then html_string_rrNews = html_string_rrNews & "

• Derechos de autor y uso
• Política de privacidad
• Contacte con el FMI

• عربي
• 中文
• English
• Français
• 日本語
• Русский