2.芸術関係
3.書簡
4.写真
5.生活用品
6.ひとのみち関係
7.蔵書
全巻を検索 巻数を指定 <%SetChuBunrui%> 未掲載
% Sub SetChuBunrui Set MyCon = Session("xxxNDB") Sql = "M_CYUBUNRUI" Set MyRS = MyCon.Execute(SQL) Do While (Not MyRS.Eof) If MyRS.Fields("中分類コード") <> 29 then Response.Write "" & MyRS.Fields("中分類名") & "" & vbcrlf End If MyRS.MoveNext Loop MyRS.Close End Sub %>