% ' %> <% main() Sub main() Dim EnshuName Dim UserID , Shimei , GroupCD, GroupPassword Dim RouteType Dim DataCnt Dim SiteiYMD SiteiYMD = Request("SiteiYMD") If SiteiYMD = "" Then SiteiYMD = Date() End If Dim Excel Excel = Request("Excel") Dim Query Dim Content If Not(SessionCheck()) Then Exit Sub End If UserID = Request("UserID") Shimei = Request("Shimei") GroupCD = Request("GroupCD") GroupPassword = Request("GroupPassword") RouteType = Request("RouteType") If GB_Admin = 1 Then EnshuCD = "" End If '演習名称GET Query = "exec SPM演習取得 '" & GB_SystemCD & "','" & EnshuCD & "'" Set Content = OpenQuery(Query) If Not(Content.BOF Or Content.EOF) Then EnshuName = Content.Fields("演習名称") End If Dim bShow bShow = 1 If GB_Admin = 2 Then bShow = 0 Query = "exec SPMグループ取得 '" & GB_SystemCD & "','" & GroupCD & "'" 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 %>