食事について

<% 'データベース接続 Set ObjConn = Server.CreateObject("ADODB.Connection") ObjConn.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & _ Server.Mappath("scripts/fujikawa.mdb") '値をセットします。 date_time = Now jikoku = hour(Now) ip = Request.ServerVariables("REMOTE_ADDR") ref = Request.ServerVariables("HTTP_REFERER") If ref = "" Then ref = "http://www.lausanne.jp" End If 'データを追加します。 StrSQL = "insert into log (" StrSQL = StrSQL & " date_time, " StrSQL = StrSQL & " jikoku, " StrSQL = StrSQL & " ip, " StrSQL = StrSQL & " ref " StrSQL = StrSQL & ") values (" StrSQL = StrSQL & "#" & date_time & "#," StrSQL = StrSQL & jikoku & "," StrSQL = StrSQL & "'" & ip & "'," StrSQL = StrSQL & "'" & ref & "'" StrSQL = StrSQL & ")" ObjConn.Execute(StrSQL) 'データベース接続解除 ObjConn.Close Set ObjConn = Nothing %> <% Set objFile = Server.CreateObject("Scripting.FileSystemObject") sPathCountFile = Server.MapPath("Scripts/counter.dat") On Error Resume Next Set strmFile = objFile.OpenTextFile(sPathCountFile, 1, FALSE) If Err.Number > 0 Then '***** 初回起動？ iCount = 0 dtOld = Date() iCountT = 0 iCountY = 0 Else '***** カウントファイルの読み込み iCount = strmFile.ReadLine dtOld = CDate(strmFile.ReadLine) iCountT = strmFile.ReadLine iCountY = strmFile.ReadLine End If '***** カウント処理 If dtOld <> Date() Then '***** 日付が変わった？ dtOld = Date() iCountY = iCountT iCountT = 0 End If iCount = iCount + 1 iCountT = iCountT + 1 strmFile.Close '***** カウントファイルへ書き込み Set strmFile = objFile.OpenTextFile(sPathCountFile, 2, TRUE) strmFile.WriteLine iCount strmFile.WriteLine dtOld strmFile.WriteLine iCountT strmFile.WriteLine iCountY strmFile.Close %>

　

ごあんない

------------------

ｽｹｼﾞｭｰﾙ

------------------

オプション

------------------

------------------

------------------

photeギャラリー

------------------

お問合せ

　

　

　

　

　

　食事は旅の思い出の最大関心事のひとつです。

教育旅行に限らず団体様のお受け入れについては

材料を統一し、各人は差のないようにさせて頂いております。

地産の旬の物を新鮮なうちに召し上がって頂いております。

また､下記はホンの一例で施設毎の調理方法で味付けを

させて頂いております。

　

　

ｽｰﾌﾟ

サラダ

お魚料理

お肉料理

ご飯

デザート

　

　

　

※食物ｱﾚﾙｷﾞｰ食は出来るだけ

対応させて頂いております。

症状等はご相談ください。

サラダ

加工肉(ハム or サラダ)

オムレツ

フルーツ or ジュース

ロールパン

ｺｰﾋｰ&紅茶

　

　

※昼食の必要の場合はお弁当をご用意させて頂いています。

　

　