% ' %> <% main() Sub main() Dim KanriKubun Dim EnshuName Dim Query Dim Content Dim ShijyoCD2 ShijyoCD2 = Request("ShijyoCD") If Not(SessionCheck()) Then Exit Sub End If '演習名称GET EnshuName = ConvEnshuMeisyo(EnshuCD) Dim RouteType RouteType = Request("RouteType") Dim MasterEnshu Query = "exec SPM演習取得 '" & GB_SystemCD & "','" & EnshuCD & "'" Set Content = OpenQuery(Query) If Not(Content.BOF Or Content.EOF) Then MasterEnshu = Content.Fields("マスター演習") End If %> <% = HtmlHeader("") %>
<% = HtmlFooter %> <% End Sub %>