% ' %> <% main() Sub main() 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 GroupCD GroupCD = Request("GroupCD") Dim Query Dim Content 'グループCD=nullのゴミデータ削除 Query = "exec SPMグループ更新 '" & GB_SystemCD & "', 4" Query = Query & ",''" Query = Query & ",''" Query = Query & ",''" Query = Query & ",''" Query = Query & ",''" 'Response.Write(Query) 'Exit Sub Set Content = OpenQuery(Query) %>