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.
At a Glance : Pacific Islands's Relations with the IMF
- Fiji joined the Fund in May 28, 1971—Art VIII; see Fiji's financial position in the Fund
- Kiribati joined the Fund in June 03, 1986—Art VIII; see Kiribati's financial position in the Fund
- Marshall Islands joined the Fund in May 21, 1992—Art VIII; see Marshall Islands' financial position in the Fund
- Micronesia joined the Fund in June 24, 1993—Art VIII; see Micronesia's financial position in the Fund
- Palau joined the Fund in December 16, 1997—Art VIII; see Palau's financial position in the Fund
- Papua New Guinea joined the Fund in October 09, 1975—Art VIII; see Papua New Guinea's financial position in the Fund
- Samoa joined the Fund in December 28, 1971;—Art VIII; see Samoa's financial position in the Fund
- Solomon Islands joined the Fund in September 22, 1978—Art VIII; see Solomon Islands' financial position in the Fund
- Tonga joined the Fund in September 13, 1985—Art VIII; see Tonga's financial position in the Fund
- Tuvalu joined the Fund in June 24, 2010
- Vanuatu joined the Fund in September 28, 1981—Art VIII; see Vanuatu's financial position in the Fund
News — 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 & "
" &rrNews_Description & " "
html_string_rrNews = html_string_rrNews & "
- "
else
html_string_rrNews = html_string_rrNews & ""
end if
totalRecords = rs_rrNews.Fields("totalRecords")
rs_rrNews.movenext
wend
'SRS 4866 : Modified by TCS on 4th January, 2010
if(totalRecords > noOfRecords_rrNews) then
if (isRegion = 0) then
if (pageLang="chi") then
html_string_rrNews = html_string_rrNews & ""
elseif (pageLang="fra") then
html_string_rrNews = html_string_rrNews & "
Cliquer pour plus d'information
Cliquer pour plus d'information
Pacific Islands and the IMF
<% dim strConnRR 'strConnRR = "Driver={SQL Server}; Server=PRDINTERNETDB.IMF.ORG,5876; Database=www_meta; UID=www_meta_user; PWD=usemeta;" 'strConnRR = "Driver={SQL Server}; Server=PRDINTERNETDB.IMF.ORG,5876; Database=www_meta; UID=www_meta_user; PWD=usemeta;" strConnRR = "Driver={ODBC Driver 11 for SQL Server}; Server=prdinternetdb.IMF.ORG,5876; Database=www_meta; UID=www_meta_user; PWD=usemeta;" %> <% Dim countryCodes Dim isoCode Dim country_page Dim data_found Dim cn_rr, rs_rr, html_string_rr Dim currentPage Dim noOfRecords Dim totalRecords Dim meta_date Dim strDate totalRecords = 5 currentPage = 1 noOfRecords = 5 Const adCmdStoredProc = &H0004 Const adInteger = 3 Const adVarChar = 200 Const adParamInput = &H0001 Const adParamOutput = &H0002 Const adDBDate = 133 'open connection and recordset objects set cn_rr = server.createObject("ADODB.Connection") set rs_rr = server.createObject("ADODB.Recordset") 'Use the path of the script to get the country ISO Code. country_page = Request.ServerVariables("SCRIPT_NAME") If( InStr( 1, country_page, "/external", 1 ) = 0 ) Then country_page = "/external" & country_page End If countryCodes = split( country_page, "/", -1, 1 ) 'SRS 4866 : Added by TCS on 4th January, 2010 'Dim isRegion -- Already defined in RRPagesExternal.asp isRegion = 0 If( InStr( 1, countryPage, "/external/region/", 1 ) > 0 ) Then isRegion = 1 End If isoCode = countryCodes(3) 'Added by TCS for adding page language 'Dim pageLang -- Already defined in RRPagesExternal.asp pageLang = countryCodes(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_rr.open strConnRR rs_rr.activeconnection = cn_rr 'html_string_rr = html_string_rr & "News
" data_found = 0 Dim fromDate, toDate fromDate ="1/1/1901" toDate ="1/1/1901" set cmdStoredProc = Server.CreateObject("ADODB.Command") with cmdStoredProc .Prepared = True .CommandType = adCmdStoredProc set .ActiveConnection = cn_rr .CommandText = "usp_sel_newsFeeds" .Parameters.Append .CreateParameter("isoCode",adVarChar,adParamInput,400,isoCode) .Parameters.Append .CreateParameter("currentPage",adInteger,adParamInput,4,currentPage) .Parameters.Append .CreateParameter("noOfRecords",adInteger,adParamInput,4,noOfRecords) .Parameters.Append .CreateParameter("fromDate",adVarChar,adParamInput, 20, fromDate) .Parameters.Append .CreateParameter("toDate ",adVarChar,adParamInput,20, toDate) .Parameters.Append .CreateParameter("pageLang ",adVarChar,adParamInput,3, pageLang) Set rs_rr = .Execute End With set cmdStoredProc = nothing if (rs_rr.eof) Then html_string_rr = html_string_rr & "Currently there are no News Items
" End if Dim newsDescription, newsTitle, newsTitle_url, strPublishDate if not rs_rr.EOF Then while not rs_rr.eof data_found = 1 If IsDate(rs_rr.Fields("meta_date")) Then meta_date = CDate(rs_rr.Fields("meta_date")) If Month(meta_date) <= 0 Or Day(meta_date) <= 0 Or Year(meta_date) <= 0 Then meta_date = CDate(rs_rr.Fields("publ_date")) End If Else meta_date = CDate(rs_rr.Fields("publ_date")) End If strDate = CStr( MonthName(Month(meta_date)) & " " & Day(meta_date) & ", " & Year(meta_date)) newsDescription = rs_rr.Fields("description") newsTitle = rs_rr.Fields("title") newsTitle_url = rs_rr.Fields("url") if (len(newsTitle) <> 0) Then html_string_rr = html_string_rr & "" & newsTitle & "
" End if html_string_rr = html_string_rr & "" & strDate & "
"
if (len(newsTitle_url) > 0) Then
html_string_rr = html_string_rr & ""
End If
html_string_rr = html_string_rr & newsDescription
if (len(newsTitle_url) > 0) Then
html_string_rr = html_string_rr & ""
End if
if ( len(newsDescription) > 0) Then
if ( len(newsTitle_url) <> 0) Then
html_string_rr = html_string_rr & " "
else
html_string_rr = html_string_rr & " "
End if
End if
html_string_rr = html_string_rr & "
Cliquer pour plus d'information
Cliquer pour plus d'information
Regional Economic Outlook: Asia and Pacific
Resident Representative for Pacific Islands
Tubagus Feridhanusetyawan
Resident Representative
Tower 7
Reserve Bank of Fiji Building
Pratt Street
GPO Box 172
Suva, Fiji
E-mail: tferidhanusetyawan@imf.org
Tel.: (679) 330 4969
World Economic Outlook
Global Financial Stability Report
Fiscal Monitor
Regional Economic Outlooks
Finance & Development
Annual Report
