<% On Error Resume Next Dim intCount101 Dim strFileName Dim A Dim B Dim C Dim D Dim E Dim F Dim G Dim H Dim I 'ファイルを指定 strFileName = "c:\inetpub\wwwroot\simotu\page01\count\counter101.txt" 'ファイルを操作するオブジェクトを作成 Set objFile = Server.CreateObject("Scripting.FileSystemObject") 'ファイルの内容を参照するオブジェクトを作成 Set objIn = objFile.OpenTextFile(strFileName) 'ファイルが存在しない場合はカウンタを0にセット If Err.Number > 0 Then intCount101 = 0 'ファイルが存在している場合は値を読み込みファイルをクローズ Else intCount101 = objIn.ReadLine objIn.Close End If 'カウンタ値を増加 intCount101 = intCount101 + 1 'カウンター表示用 '文字数所得 F = Len(intCount101) '表示桁より0サブレスの計算 G = 5 - F 'Oをプラス for i = 1 to G H = H & "0" next 'カウンターの右の0をプラス H = H & intCount101 '表示桁の数字を所得 E = MID(H,1,1) '5桁 D = MID(H,2,1) '4桁 C = MID(H,3,1) '3桁 B = MID(H,4,1) '2桁 A = MID(H,5,1) '1桁 'ファイルを操作するオブジェクトを作成 Set objOut = objFile.CreateTextFile(strFileName) 'カウンタ値をファイルに書き込み objOut.WriteLine intCount101 'ファイルをクローズ objOut.Close %> 下津町商工会の企業情報

あなたは人目のお客様です。




  • 代表者   一木 龍二

  • 所在地   和歌山県海草郡下津町上 292
                  TEL: 073-492-1225
                  FAX: 073-492-1226
                  JR下津駅下車 徒歩12分
  • 年中無休(但  正月5日まで休み)
  • 予約要





  •     紀州徳川ゆかりの地。
        明治20年創業。数少なくなった純和風の料理旅館
    
       四季折々、季節感あふれる料理と、山野草を静かな和室でゆっくりとお楽しみ下さい。
       近くには国宝長保寺、みかん狩り、浦島海水浴場等、美しい自然が一杯。
       和歌山マリーナシティへは車で15分程です。


    おすすめ
    季節の会席、活魚、クエ、ハモ料理、鍋もの、幕の内弁当等。
    会社の宴会、来客の接待、同窓会、お友達との食事、忘年会、新年会、御商談、法事にもご利用下さい。

    FAX予約へ

    商工会の企業情報へ