<%CheckForIllegalInput("")%> <% set orsSql2 = server.createobject("ADODB.Recordset") set cmd = server.createObject("ADODB.Command") 'rs.activeconnection = strConn orsSql2.cursorLocation = adUseClient cmd.activeconnection = objConn cmd.CommandType = &H0004 cmd.commandText = "usp_sel_region" orsSql2.Open cmd, , adOpenKeyset, adLockOptimistic, adCmdStoredProc 'Sql2= "select distinct a.systemkey,cast(ser_note as varchar(255))as ser_note, title, auth_ed, publ_date " &_ '"from exr_publ a, exr_edit b, region_scr c " &_ ' "where (a.systemkey = b.systemkey) and (a.systemkey = c.systemkey) and c.systemkey not in (17936,17935,18006,18123,18122,18131,18130)" &_ ' "order by publ_date desc, ser_note" 'set orsSql2 = objConn.Execute(Sql2) 'orsSql2.Open Sql2, objConn, 3 rscount = orsSql2.Recordcount %>
See Also:

Regional Economic Outlooks

Recent Titles








IMF Regional Reports

<%if rscount = 0 then response.write "Sorry, no records were found that match your search criteria." end if Do while not orsSql2.eof systemkey = orsSql2("systemkey") title = orsSql2("title") author = orsSql2("auth_ed") series = orsSql2("ser_note") pdate = orsSql2("publ_date") pmonth = monthname(mid(pdate,6,2)) pday = mid(pdate,9,2) pyear = mid(pdate,1,4)%> Title: <%=title%>
<%if author <> "¬" then%> Author: <%=author%>
<%end if%> Series: <%=series%>
Published: <%=pmonth%> <%=pday%>, <%=pyear%>

<%orsSql2.moveNext loop%>
<%orsSql2.close set orsSql2 = nothing%>