<%@ LANGUAGE = "VBScript" %>
<%
'***************************************************************************
' 「i-exer」システム
' ログイン認証
' 2001/07 データベースAccesss使用
' 2006/02 SQLｲﾝｼﾞｪｸｼｮﾝ対策修正
'***************************************************************************
'Option Explicit
On Error Resume Next 'エラー処理ON
Response.Buffer=True
'==================================================
' 初期設定
'==================================================
Dim wk_year
Dim wk_month
Dim wk_day
Dim wk_sysdate
Dim wk_id
Dim wk_passwd
Dim wk_startdate
Dim wk_startdate1
Dim wk_enddate
Dim wk_url
Dim wk_date
Dim wk_mojisuu
Dim wk_moji
Dim wk_daycount
Dim wk_comment
'//システム日付取得
wk_sysdate = Date()
wk_date = Split(wk_sysdate,"/")
wk_year =wk_date(0)
wk_month =wk_date(1)
wk_day =wk_date(2)
%>
静岡県総合健康センター
