<%@ LANGUAGE = VBScript %> <% Option Explicit Dim fsContent,tsWk Dim myyear,mymonth,mydate,myweek,myday,mytime,mysecn Dim strWk,strFile,strDat,strDate,strImg,strMenu Dim i,ct,MaxCt,strTitle(100),strUpdDate 'エンコード設定 Response.ContentType = "text/html" Response.Charset = "Shift_JIS" '今日の日付読み込み myyear = DatePart("yyyy", Now) mymonth = DatePart("m", Now) mydate = DatePart("d", Now) mytime = DatePart("h", Now) mysecn = DatePart("s", Now) myweek = Weekday(Date()) myday = WeekdayName(myweek,true) 'TXT取込 Set fsContent = CreateObject("Scripting.FileSystemObject") 'MENU部分読みこみ strFile = "d:\Mydomain\ohbsn\menu\menux.txt" If fsContent.FileExists(strFile) Then Set tsWk = fsContent.OpenTextFile(strFile) strWk = vbcrlf Do Until tsWk.AtEndOfLine strWk = strWk & tsWk.ReadLine & vbcrlf Loop strMenu = strwk 'File Close tsWk.close End if %> イベントインフォーメーション
<% If mysecn MOD 2 = 0 Then %>
<% Else %>
<% End If %>
佐渡汽船
企画販売センター（日曜・祝日は定休）
〒950-0078 新潟市中央区万代島９−１
TEL ０２５‐２４３‐３９３６　　FAX ０２５‐２４６‐０１６９
http://www.sadokisen.co.jp/

 旅行企画実施／佐渡汽船　企画販売センター
新潟県知事登録旅行業第2-16７号　国内旅行業取扱管理者／滝山明夫
〒９５０−００７８　新潟市中央区万代島９―１
国内旅行業務取扱管理者とは、お客様の旅行を取り扱う営業所での取引に関する責任者です
この旅行契約に関し、担当者からの説明にご不明な点があれば、ご遠慮なく上記の取扱管理者にお尋ねください。

ＢＡＣＫ
Copyright © since1998,Broadcasting System of Niigata Inc. All rights reserved.