<% On Error Resume Next Set objFile = Server.CreateObject("Scripting.FileSystemObject") sPathCountFile = Server.MapPath("./count/count.dat") Set strmFile = objFile.OpenTextFile(sPathCountFile, 1, FALSE) If Err.Number > 0 Then iCount = 0 Else iCount = strmFile.ReadLine End If iCount = iCount + 1 strmFile.Close Set strmFile = objFile.OpenTextFile(sPathCountFile, 2, TRUE) strmFile.WriteLine iCount strmFile.Close sCount = right("00000" & CSTR(iCount),5) %>
トップページへ

 

 

おいしいお水
アクアクララ、あさぎり高原 ハイパーバナジウムはこちら
   

土肥祥のお酒はこちら

  

オリジナルラベルのお酒も作ります

 
 

★★★ お問い合わせ先 ★★★

(有)土肥祥  湯河原町宮下351   0465-62-2978

 




Copyright (c) 2004 Yaoken, Inc. All Rights Reserved.