<% Set fso = Server.CreateObject("Scripting.FileSystemObject") 'counter data = Split(Request.ServerVariables("PATH_TRANSLATED"), "\") data(UBound(data)) = "q-counter.txt" path = Join(data, "\") cunt = 0 If fso.FileExists(path) Then Set file = fso.OpenTextFile(path, 1, False, 0) cunt = CLng(file.ReadLine) cuntm = CLng(file.ReadLine) cuntlm = CLng(file.ReadLine) if Day(Now) = 1 then '毎月1日に先月分として記録 cuntlm = cunt - cuntm cuntm = cunt end if file.Close fso.DeleteFile path, True End If Set file = fso.OpenTextFile(path, 2, True, 0) file.WriteLine CStr(cunt + 1) file.writeLine CStr(cuntm) file.writeLine CStr(cuntlm) file.Close %>
弦楽四重奏曲を中心に室内楽の紹介をしてます。作曲者別、難易度、などで 分類しています。室内楽を楽しむ時のご参考にどうぞご利用ください。
Access <% = cunt + 1 %>

弦楽四重奏以外にも二重奏から管楽器を含む曲まで、 作曲家やお薦め、編成別に約500曲を紹介。 やりたい曲のイメージからも検索できます。 例:「ベートーベン」「印象派」「おススメ順」「美しい曲」etc


難易度別にオススメ曲をまとめてます。 データベースで何を検索したら良いのか思い浮かばない時は、こちらをご利用ください。 手始めに選ぶ曲、ワンランクUP!、ピアノを含む・・・etc


カルテットの曲選びやメンバー集めから演奏会に向けてのTips。 カルテットビギナーのページです。


好きな曲、嫌いな曲、弾いてみたい曲のランキングです。 ランキングへの投票は、左メニューより曲を検索してください。 各曲紹介のそれぞれにアイコン( )がありますので、クリックすると1票入ります。
最新のランキング


室内楽についての掲示板です お気に入りの曲に思うがままの感想を書き込み。 演奏のコツやら、苦労話やら、大好きポイントなど・・・ オススメやご意見がありましたらどうぞ。上の検索で見つからない、 データベースに載せてほしい、などありましたら書き込みお願いします。


作曲家や音楽に関するリンク集です。作曲家、出版社、CD、音楽知識全般、ホール、など。

聴いて楽しいカルテットの演奏会あります
池袋ミッテンヴァルト弦楽四重奏団

このHPの製作者です
Owner's HomePage