<% ' ' %> <% main() Sub main() If Not(SessionCheck()) Then Exit Sub End If Dim Query, Content Dim EnshuCD EnshuCD = Request("EnshuCD") Session(HomeAlias & "EnshuCD") = EnshuCD Session(HomeAlias & "EnshuMeisyo") = ConvEnshuMeisyo(EnshuCD) Session(HomeAlias & "EnshuKubun") = ConvEnshuKubun(EnshuCD) Session(HomeAlias & "AdminPCE") = "" & EnshuCD '表記名称マスタ取得 Query = "exec SPM表記名称取得 '" & GB_SystemCD & "', '" & EnshuCD & "', ''" '表記CD=NULLは一覧取得 Set Content = OpenQuery(Query) Do While Not(Content.BOF Or Content.EOF) Session(HomeAlias & "MHM" & Content.Fields("表記CD")) = "" & Content.Fields("表記名称") '表記CDの先頭に"MHM"を付加したセッション変数に格納 Content.MoveNext Loop Response.Redirect("admenu_w.asp") End Sub %>