<%@ LANGUAGE = "VBScript" %> <% '*************************************************************************** ' 「i-exer」システム ' 表紙 ' 携帯バージョン ' 2002/09　データベースSQLServer使用 ' 2004/04 AU対応 ' 2006/02　SQLｲﾝｼﾞｪｸｼｮﾝ対策修正 '*************************************************************************** 'Option Explicit On Error Resume Next 'エラー処理ON Response.Buffer=True '================================================== ' 初期設定 '================================================== '//携帯判別 Dim KEITAI,wk_br,wk_hr wk_br = "
" wk_hr = "

---

" KEITAI = Request.ServerVariables("HTTP_USER_AGENT") If InStr(KEITAI,"DoCoMo") > 0 then KEITAI = "i" ElseIf InStr(KEITAI,"J-PHONE") > 0 then KEITAI = "j" ElseIf InStr(KEITAI,"UP.Browser") > 0 then 'au対応　200404 KEITAI = "a" wk_br = "
" wk_hr = "

---

" %> 静岡県<%= wk_br %>総合健康センター<%= wk_br %> <% Else KEITAI = "p" ' CALL ERROR1("ｉモード、J-SKY用のページです。") End If If KEITAI <> "a" then %> 静岡県<%= wk_br %>総合健康センター<%= wk_br %> <% End If If KEITAI = "i" or KEITAI = "p" then %> <% End If If KEITAI = "a" then %> <% End If If KEITAI = "j" then %> <% End If %> <%= wk_hr %> ようこそ！<%= wk_br %> すこやかセンターへ<%= wk_br %><%= wk_br %> <% If KEITAI ="i" or KEITAI ="a" or KEITAI ="p" then %> 1.i-exerログイン<%= wk_br %> 2.i-exer掲示板<%= wk_br %> 3.注意事項<%= wk_br %> 4.問い合わせ先<%= wk_br %> <% ElseIf KEITAI ="j" then %> i-exerログイン<%= wk_br %> i-exer掲示板<%= wk_br %> 注意事項<%= wk_br %> 問い合わせ先<%= wk_br %> <% End If %> <%= wk_br %><%= wk_br %> <%= wk_hr %> (C)sukoyaka center <% '================================================== ' エラー処理 '================================================== Sub ERROR(ERRWORD) If KEITAI ="a" then %> <% Else %> <% End If %> !! エラー !!<%= wk_br %> <%= wk_hr %> <%= ERRWORD %><%= wk_br %><%= wk_br %> [ 戻る ] <% Response.End End Sub '================================================== ' エラー処理 '================================================== Sub ERROR1(ERRWORD) If KEITAI ="a" then %> <% Else %> <% End If %> !! エラー !!<%= wk_br %> <%= wk_hr %> <%= ERRWORD %><%= wk_br %><%= wk_br %> [ ＰＣ版へ ] <% Response.End End Sub %>