<% Dim Repeat1__numRows Dim Repeat1__index Dim Recordset1 Dim Recordset1_numRows Set Recordset1 = Server.CreateObject("ADODB.Recordset") Recordset1.ActiveConnection = MM_newsflash_STRING Recordset1.Source = "SELECT * FROM newsletter where nstatus = 'closed' order by volume_code desc" Recordset1.CursorType = 0 Recordset1.CursorLocation = 2 Recordset1.LockType = 1 Recordset1.Open() Repeat1__numRows = recordset1.recordcount Repeat1__index = 0 Recordset1_numRows = Recordset1_numRows + Repeat1__numRows cyear="" While ((Repeat1__numRows <> 0) AND (NOT Recordset1.EOF)) nvolumecode= Recordset1("volume_code") nyear=Recordset1("nyear") nmonth=Recordset1("nmonth") nedition=Recordset1("edition") printrow="" %>

---

<% if cyear<>nyear then printrow=""& nyear& "
" %> <%=printrow%> <%=displaymonth%>         View
<% Set article1 = Server.CreateObject("ADODB.Recordset") article1.ActiveConnection = MM_newsflash_STRING article1.Source = "SELECT * FROM article where volume_code = '" & nvolumecode & "' order by article_code" article1.CursorType = 0 article1.CursorLocation = 2 article1.LockType = 1 article1.Open() articlename="
     " While (NOT article1.EOF) 'articlename=articlename&"-"&article1("a_title_1")&" "& article1("a_title_2")&" "& article1("a_title_3")&"
" articlename=articlename&article1("a_title_1") & "
     " article1.movenext() wend article1.close set article1 = nothing %> <%=articlename%> <% Repeat1__index=Repeat1__index+1 Repeat1__numRows=Repeat1__numRows-1 Recordset1.MoveNext() cyear=nyear Wend Recordset1.Close() Set Recordset1 = Nothing %>