% ' %> <% main() Sub main() If Not(SessionCheck()) Then Exit Sub End If Dim Action , NRflg , ErrMSG Dim GroupCD, GroupName, Password, SakuseiID 'グループCD、グループ名称、パスワード、作成者ID Dim Hihyoji Dim Query Dim Content NRflg = Request("nr") Action = Request("Syori") GroupCD = Request("GroupCD") SakuseiID = GB_GakuseiNo '新規作成時は管理者ID Hihyoji = "0" '新規作成時は表示 If GB_Admin <> "2" Then SakuseiID = "" '運用管理者はNULL End If ErrMSG = Request("ErrMSG") If NRflg = "r" then GroupName = Request("GroupName") Password = Request("Password") Else Query = "exec SPMグループ取得 '" & GB_SystemCD & "','" & GroupCD & "'" Set Content = OpenQuery(Query) If Not(Content.BOF Or Content.EOF) Then GroupName = Content.Fields("グループ名称") Password = Content.Fields("グループキー") SakuseiID = Content.Fields("作成者ID") '更新時はテーブル内容 Hihyoji = "" & Content.Fields("非表示フラグ") End If End If Dim RouteType RouteType = Request("RouteType") %> <% = HtmlHeader("") %>
<% = HtmlFooter %> <% End Sub %>