<%
'
%>
<%
main()
Sub main()
If Not(SessionCheck()) Then
Exit Sub
End If
'演習管理者IDを再取得(書類一覧後の対処)（221201小野美）
If GB_Admin = "2" And EnshuCD <> "" Then
Query = "exec SPM演習取得 '" & GB_SystemCD & "','" & EnshuCD & "'"
Set Content = OpenQuery(Query)
If Not(Content.BOF Or Content.EOF) Then
Session(HomeAlias & "GakuseiNo") = "" & Content.Fields("演習管理者ID")
GB_GakuseiNo = Session(HomeAlias & "GakuseiNo")
GakuseiNo = GB_GakuseiNo
End If
End If
Dim EnshuName
Dim TmpEnshuCD
Dim TmpGroupCD
Dim UserID , Shimei , GroupCD, GroupPassword
Dim RouteType
Dim DataCnt
Dim SiteiYMD
SiteiYMD = Request("SiteiYMD")
If SiteiYMD = "" Then
SiteiYMD = Date()
End If
Dim Page
Page = Request("Page")
Dim TmpUserID
TmpUserID = Request("TmpUserID")
Dim Query
Dim Content
'会社セッション初期化（演習状況記帳チェック後の対処）
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") = ""
UserID = Request("UserID")
Shimei = Request("Shimei")
TmpEnshuCD = Request("TmpEnshuCD")
TmpGroupCD = Request("TmpGroupCD")
GroupCD = Request("GroupCD")
GroupPassword = Request("GroupPassword")
RouteType = Request("RouteType")
If GB_Admin = 1 Then
EnshuCD = ""
End If
'演習名称ＧＥＴ
Query = "exec SPM演習取得 '" & GB_SystemCD & "','" & EnshuCD & "'"
Set Content = OpenQuery(Query)
If Not(Content.BOF Or Content.EOF) Then
EnshuName = Content.Fields("演習名称")
End If
'グループ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)
Dim bShow
bShow = 1
If GB_Admin = 2 Then
bShow = 0
Query = "exec SPMグループ取得 '" & GB_SystemCD & "','" & TmpGroupCD & "'"
Set Content = OpenQuery(Query)
If Not(Content.BOF Or Content.EOF) Then
If Content.Fields("グループキー") = GroupPassword Then
bShow = 1
End If
If Request("from") = "view" Then
bShow = 1
GroupPassword = Content.Fields("グループキー")
End If
End If
End If
%>
<% = HtmlHeader("") %>
<%
End Sub
%>