カルテットをやろう！のページ

<% 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 %>

	弦楽四重奏以外にも二重奏から管楽器を含む曲まで、作曲家やお薦め、編成別に約５００曲を紹介。やりたい曲のイメージからも検索できます。例：「ベートーベン」「印象派」「おススメ順」「美しい曲」etc
	難易度別にオススメ曲をまとめてます。データベースで何を検索したら良いのか思い浮かばない時は、こちらをご利用ください。手始めに選ぶ曲、ワンランクUP！、ピアノを含む・・・etc
	カルテットの曲選びやメンバー集めから演奏会に向けてのTips。カルテットビギナーのページです。
	好きな曲、嫌いな曲、弾いてみたい曲のランキングです。ランキングへの投票は、左メニューより曲を検索してください。各曲紹介のそれぞれにアイコン（）がありますので、クリックすると１票入ります。最新のランキング
	室内楽についての掲示板ですお気に入りの曲に思うがままの感想を書き込み。演奏のコツやら、苦労話やら、大好きポイントなど・・・オススメやご意見がありましたらどうぞ。上の検索で見つからない、データベースに載せてほしい、などありましたら書き込みお願いします。
	作曲家や音楽に関するリンク集です。作曲家、出版社、ＣＤ、音楽知識全般、ホール、など。聴いて楽しいカルテットの演奏会あります池袋ミッテンヴァルト弦楽四重奏団このHPの製作者です Owner's HomePage