English
<% CounterFile = Server.MapPath("/") & "\SEKIYADO\index-asp.cnt" Set fs = CreateObject("Scripting.FileSystemObject") On Error Resume Next Set a = fs.OpenTextFile(CounterFile, 1, 0, 0) c = a.Readline set fs = Nothing myArray = Split(c, "=") c = "count=" & FormatNumber(myArray(1) + 1, 0) Set fs = CreateObject("Scripting.FileSystemObject") set b = fs.CreateTextFile(CounterFile, 1, 0) b.WriteLine c Set b = Nothing %>


 

  2006スケジュールはこちらからどうぞ。

  みんなで関宿城に集合!〈行事案内

 

Copyright©2005 Chiba Prefectural Sekiyado-jo Museum. All rights reserved.
〒270-0201千葉県野田市関宿三軒家143-4 TEL,04-7196-1400 FAX,04-7196-3737