Read the latest Program Note,
" & filedate & "
| "
Get_CO_Name( country )
html_string = html_string & "" & formal_name & " and the IMF " & vbcrlf & "" & vbcrlf Get_max_date( country ) blurb = ReadBlurbFile( country ) 'Aug 18, 2013-- To include nonpubsmt nonpubsmt= ReadNonPubFile( country ) 'Aug 28, 2013-- To include nonpubsmt updated date lastupdate_exception = ReadModifiedDate ( country ) if((lastupdate_exception <> "" AND CDate(lastupdate_exception) > CDate(last_update) ) ) then lastupdate_exception = FormatDateTime( ReadModifiedDate ( country )) lastupdate_exception= MonthName(Month(lastupdate_exception)) & " " & Day(lastupdate_exception) & ", " & year(lastupdate_exception) else lastupdate_exception ="" end if If (lastupdate_exception <> "") Then html_string = html_string & " " Else html_string = html_string & " " End If html_string = html_string & " |
| " & co_links_str & " |
" & page_links_str & " |
| " & pnstr & " | " page_links_str = page_links_str & "||
"
page_links_str = page_links_str & "
| "
page_links_str = page_links_str & "
| " & vbcrlf html_string_weo = html_string_weo & " Projected % Change" & vbcrlf html_string_weo = html_string_weo & " | " & vbcrlf html_string_weo = html_string_weo & "|||
" & vbcrlf
html_string_weo = html_string_weo & "
" & vbcrlf else html_string_weo = html_string_weo & " Source: World Economic Outlook (April 2017) " & vbcrlf html_string_weo = html_string_weo & " Please refer to more recent Press Release/Staff reports on this country for possible revisions." & vbcrlf end if html_string_weo = html_string_weo & " | " & vbcrlf
html_string_weo = html_string_weo & "
|
<%
on error resume next
err.clear
dim strConn_bc, show_bc, bc_cn, bc_cmd
dim date_now_string, date_now_string1
dim bc_date, bc_country, bc_date_string
dim show_next, show_previous
date_now_string=month(now()) & "/" & day(now()) & "/" & year(now())
date_now_string1=month(dateadd("d",7,now())) & "/" & day(dateadd("d",7,now())) & "/" & year(dateadd("d",7,now()))
bc_date_string=""
strConn_bc = "Driver={ODBC Driver 11 for SQL Server}; Server=prdinternetdb,5876; Database=SEC_CMS; UID=imforguser; PWD=p69uHhgFvnVsRXtN8WrH"
'strConn_bc = "Driver={SQL Server}; Server=dbsswn06d,5876; Database=countrydb; UID=SECCMSWebUser; PWD=schedules"
set bc_cn = server.createObject("ADODB.Connection")
set bc_cmd = server.createObject("ADODB.Command")
dim bc_rs
bc_cn.open strConn_bc
bc_cmd.ActiveConnection = bc_cn
bc_cmd.CommandText = "usp_getDetailsForWeb_Country"
bc_cmd.CommandType=4
bc_cmd.Parameters.Refresh
bc_cmd.Parameters.item("@fromDate").value = date_now_string
bc_cmd.Parameters.item("@toDate").value = date_now_string1
bc_cmd.Parameters.item("@iso_Code").value = country
set bc_rs=bc_cmd.Execute
show_bc=0
show_next=0
show_previous=0
if err.number=0 then
while not bc_rs.eof
bc_country=bc_rs.Fields("countryName")
bc_date=bc_rs.Fields("dateScheduled")
if (not isnull(bc_country)) and (not isnull(bc_date)) then
show_bc=1
if bc_date >=cdate("" & month(now()) & "/" & day(now()) & "/" & year(now())) then
if show_next=0 then
bc_date_string=bc_date_string & " Next (tentative): " & monthname(month(bc_date)) & " " & day(bc_date) & ", " & year(bc_date) & " " else bc_date_string=bc_date_string & monthname(month(bc_date)) & " " & day(bc_date) & ", " & year(bc_date) & " " end if show_next=1 else if show_previous=0 then bc_date_string=bc_date_string & " Previous: " & monthname(month(bc_date)) & " " & day(bc_date) & ", " & year(bc_date) & " " else bc_date_string=bc_date_string & monthname(month(bc_date)) & " " & day(bc_date) & ", " & year(bc_date) & " " end if show_previous=1 end if end if bc_rs.movenext wend end if set bc_rs=nothing bc_cn.close set bc_cmd=nothing set bc_cn=nothing %> <%if show_bc=1 then%>
<% end if err.clear 'Added TCS on June 03, 2009 for MCD update if(mcd_found=1 And country <> "tjk" and country <> "MRT" and country <> "mrt" and country <> "TJK" and country <> "LBN" and country <> "lbn" and country <> "AFG" and country <> "afg" and country <> "ARM" and country <> "arm" and country <> "DJI" and country <> "dji" and country <> "GEO" and country <> "geo" and country <> "IRQ" and country <> "irq" and country <> "JOR" and country <> "jor" and country <> "KGZ" and country <> "kgz" and country <> "MAR" and country <> "mar" and country <> "PAK" and country <> "pak" and country <> "TUN" and country <> "tun" and country <> "YEM" and country <> "yem" ) then Response.write html_string_mcd end if %> <%=html_string_weo%> Jamaica: Financial Position in the Fund  Transactions with the Fund <% on error resume next err.clear dim show_sdr dim strConn_rms, rms_cn, cmd, oParam dim P_CURR_NAME, P_EFF_DT, P_SDR_CURR, P_CURR_SDR, P_EFF_DT_PREV, P_SDR_CURR_PREV, P_CURR_SDR_PREV, P_ERR_MSG strConn_rms = "DSN=RRSX_I;UID=rrsexwuser;PWD=ratesexwapp;" set rms_cn = server.createObject("ADODB.Connection") set cmd = server.createObject("ADODB.Command") 'rms_cn.open strConn_rms rms_cn.open "RRSX_I", "rrsexwuser", "ratesexwapp" cmd.ActiveConnection = rms_cn cmd.CommandText = "{call RRS_WEB.PR_EXW_CTRY_SDRC_CSDR(?,?,?,?,?,?,?,?,?)}" 'cmd.CommandText = "PR_EXW_CTRY_SDRC_CSDR" 'cmd.CommandType=4 'cmd.Parameters.Refresh Set OParam = cmd.CreateParameter("P_CTRY_CODE", 200, 1, 3, ucase(country)) Cmd.Parameters.Append OParam Set OParam = cmd.CreateParameter("P_CURR_NAME", 200, 2, 50) Cmd.Parameters.Append OParam Set OParam = cmd.CreateParameter("P_EFF_DT", 7, 2) Cmd.Parameters.Append OParam Set OParam = cmd.CreateParameter("P_SDR_CURR", 200, 2, 50) Cmd.Parameters.Append OParam Set OParam = cmd.CreateParameter("P_CURR_SDR", 200, 2, 50) Cmd.Parameters.Append OParam Set OParam = cmd.CreateParameter("P_EFF_DT_PREV", 7, 2) Cmd.Parameters.Append OParam Set OParam = cmd.CreateParameter("P_SDR_CURR_PREV", 200, 2, 50) Cmd.Parameters.Append OParam Set OParam = cmd.CreateParameter("P_CURR_SDR_PREV", 200, 2, 50) Cmd.Parameters.Append OParam Set OParam = cmd.CreateParameter("P_ERR_MSG", 200, 2, 50) Cmd.Parameters.Append OParam cmd.Execute P_SDR_CURR="...." P_CURR_SDR="...." P_SDR_CURR_PREV="...." P_CURR_SDR_PREV="...." P_CURR_NAME=cmd.Parameters.Item("P_CURR_NAME").Value P_ERR_MSG=cmd.Parameters.Item("P_ERR_MSG").Value show_sdr=0 if isnull(P_ERR_MSG) and err.number=0 then P_EFF_DT=monthname(month(cmd.Parameters.Item("P_EFF_DT").Value)) & " " & day(cmd.Parameters.Item("P_EFF_DT").Value) & ", " & year(cmd.Parameters.Item("P_EFF_DT").Value) P_SDR_CURR=cmd.Parameters.Item("P_SDR_CURR").Value if P_SDR_CURR="" or isnull(P_SDR_CURR) then P_SDR_CURR="...." end if P_CURR_SDR=cmd.Parameters.Item("P_CURR_SDR").Value if P_CURR_SDR="" or isnull(P_CURR_SDR) then P_CURR_SDR="...." end if P_EFF_DT_PREV=monthname(month(cmd.Parameters.Item("P_EFF_DT_PREV").Value)) & " " & day(cmd.Parameters.Item("P_EFF_DT_PREV").Value) & ", " & year(cmd.Parameters.Item("P_EFF_DT_PREV").Value) P_SDR_CURR_PREV=cmd.Parameters.Item("P_SDR_CURR_PREV").Value if P_SDR_CURR_PREV="" or isnull(P_SDR_CURR_PREV) then P_SDR_CURR_PREV="...." end if P_CURR_SDR_PREV=cmd.Parameters.Item("P_CURR_SDR_PREV").Value if P_CURR_SDR_PREV="" or isnull(P_CURR_SDR_PREV) then P_CURR_SDR_PREV="...." end if show_sdr=1 ''''10/17/2005 Travis:To fix the empty SDR box problem if P_SDR_CURR="...." and P_CURR_SDR="...." and P_SDR_CURR_PREV="...." and P_CURR_SDR_PREV="...." then show_sdr=0 dim oMail Set oMail = Server.CreateObject("CDO.Message") oMail.From = "SDRRatesCountryPages@imf.org" oMail.To = "aayyanar@imf.org" oMail.Subject = "SDR Box is Empty - " & country & " " & now() oMail.TextBody = "" oMail.Send Set oMail = nothing end if ''''10/17/2005 Travis:To fix the empty SDR box problem end if %> <% rms_cn.close set cmd=nothing set rms_cn=nothing %> <%if show_sdr=1 then%>
Resident Representative Office in Jamaica <% ' -------------------------------------------------------------------------------------------- ' -- ' -- File: ContactEmailInc.asp ' -- Author: H.Tourpe ' -- Creation Date: 10/25/2004 ' -- Scope: Provides an email address for each country. Format ISO3Contact@imf.org ' -- Called by: All the index.htm files under the country folders ' -- ' -------------------------------------------------------------------------------------------- dim strCountryEmailAddress strCountryEmailAddress = "You may contact us about " & formal_name & " and the IMF at " strCountryEmailAddress = strCountryEmailAddress & "" strCountryEmailAddress = strCountryEmailAddress & "Contact Us" ' country is a variable fed in from getrightcol.asp strCountryEmailAddress = strCountryEmailAddress & "" response.write ""
response.write strCountryEmailAddress
response.write " "
%>
|
 |
<%=html_string%> |