International Monetary Fund

Search
Please send us your feedback

Fiji and the Pacific Islands

Fiji and the Pacific Islands

Resident Representative Office in the Pacific Islands

This web page presents information about the work of the IMF in Pacific Islands Countries, including the activities of the IMF Regional Resident Representative Office based in Suva, Fiji. Additional information can be found on the IMF country pages for Fiji, Kiribati, Marshall Islands, Micronesia, Palau, Papua New Guinea, Samoa, Solomon Islands, Tonga, Tuvalu, and Vanuatu, including IMF reports and Executive Board documents that deal with issues in Pacific Island Countries.

News — Highlights

 <% Dim strConnRRNews strConnRRNews = "Driver={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 & "
Subscribe
" 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 & " click for more" html_string_rrNews = html_string_rrNews & "

" else html_string_rrNews = html_string_rrNews & "

" &rrNews_Description & " click for more" 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 & "