<%CheckForIllegalInput("")%> <% Sql2= "select rtrim(Subject) as subject from Distinct_subject order by Subject Asc" 'set orsSql2 = objConn.Execute(Sql2) set orsSql2 = server.createobject("ADODB.Recordset") set cmd = server.createObject("ADODB.Command") 'orsSql2.Open Sql2, objConn, 3 orsSql2.cursorLocation = adUseClient cmd.activeconnection = objConn cmd.CommandType = &H0004 cmd.commandText = "usp_sel_subject" cmd.Parameters.Append cmd.CreateParameter("@type",adInteger,adParamInput, ,1) orsSql2.Open cmd, , adOpenKeyset, adLockOptimistic, adCmdStoredProc rscount = orsSql2.Recordcount 'Sql3 = "SELECT DISTINCT TOP 100 PERCENT SUBSTRING(dbo.Distinct_Subject.Subject, 1, 1) AS sub_alpha, ufn_alpha.alpha " &_ ' "FROM dbo.Distinct_Subject RIGHT OUTER JOIN " &_ ' "dbo.ufn_alpha() ufn_alpha ON SUBSTRING(dbo.Distinct_Subject.Subject, 1, 1) = ufn_alpha.alpha " &_ ' "ORDER BY ufn_alpha.alpha" set orsSql3 = server.createobject("ADODB.Recordset") set cmd = server.createObject("ADODB.Command") 'orsSql2.Open Sql2, objConn, 3 orsSql3.cursorLocation = adUseClient cmd.activeconnection = objConn cmd.CommandType = &H0004 cmd.commandText = "usp_sel_subject" cmd.Parameters.Append cmd.CreateParameter("@type",adInteger,adParamInput, ,2) orsSql3.Open cmd, , adOpenKeyset, adLockOptimistic, adCmdStoredProc 'orsSql3.Open Sql3, objConn, 3 sub_alpha = orsSql3.getrows() orsSql3.close set orsSql3 = nothing %>
Other Publications

IMF Publications by Subject


See also IMF Publications by Author or Title.

<%i = 0 Do while i <= ubound(sub_alpha,2) if sub_alpha(0,i) <> "" then%> <%=sub_alpha(0,i)%>   <%end if i = i + 1 loop%>
<%if rscount = 0 then%> <%end if%> <% newalpha = "" firstFlag=true Do while not orsSql2.eof subject = orsSql2("Subject") if newalpha <> ucase(mid(subject,1,1)) then%> <%if firstFlag = false then%> <%else%> <%end if%> <%newalpha = ucase(mid(subject,1,1)) firstFlag = false end if%> <% orsSql2.moveNext loop %>
response.write "Sorry, no records were found that match your search criteria."
 
<%=ucase(mid(subject,1,1))%>   Go to top of page
<%=ucase(mid(subject,1,1))%>

<%=subject%>
<% orsSql2.close set orsSql2 = nothing %>