% ' %> <% main() Sub main() Dim ErrMsg Dim Target ErrMsg = Request("ErrMsg") If Not(SessionCheck()) Then Exit Sub End If '会社セッション初期化(演習状況記帳チェック後の対処) KaisyaCD = "" GB_KaisyaCD = "" KaisyaMeisyo = "" GB_KaisyaMeisyo = "" KaisyaRyakuMeisyo = "" GB_KaisyaRyakuMeisyo = "" Session(HomeAlias & "KaisyaCD") = "" Session(HomeAlias & "Gyosyu") = "" Session(HomeAlias & "GyosyuMeisyo") = "" Session(HomeAlias & "KaisyaMeisyo") = "" Session(HomeAlias & "KaisyaRyakuMeisyo") = "" Session(HomeAlias & "JisyaFlag") = "" Session(HomeAlias & "ShijyoCD") = "" Dim RouteType RouteType = Request("RouteType") Dim HyojiFlg HyojiFlg = Request("HyojiFlg") Target = Request("Target") If GB_Admin = 2 Then Target = EnshuCD End If Dim Query Dim Content Dim ii, jj ii = 0 Query = "exec SPM演習取得 '" & GB_SystemCD & "','" & Target & "'" Set Content = OpenQuery(Query) Dim EnshuKubun If Not(Content.BOF Or Content.EOF) Then EnshuKubun = Content.Fields("演習区分") End If %>