Eastern Caribbean Currency Union (ECCU)

This web page provides information about the work of the IMF in the ECCU and its member countries Antigua and Barbuda, Dominica, Grenada, St. Kitts and Nevis, St. Lucia, and St. Vincent and the Grenadines, as well the activities of the Regional Representative Office.

News and Highlights

<% 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 & "

• Home
• What's New
• Site Map
• Site Index
• About the IMF
• Research
• Country Info
• News
• Videos

• Data and Statistics
• Publications
• Copyright and Usage
• Privacy Policy
• How to Contact Us
• Glossary
• Scam Alert

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