IMF Publications by Subject
|
<%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%>
|
response.write "Sorry, no records were found that match your search criteria."
|
<%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%>
| |
|
<%=ucase(mid(subject,1,1))%>
|

|
<%else%>
<%=ucase(mid(subject,1,1))%>
|
<%end if%>
<%newalpha = ucase(mid(subject,1,1))
firstFlag = false
end if%>
|
<%=subject%>
|
<%
orsSql2.moveNext
loop
%>