% ' %> <% main() Sub main() If Not(SessionCheck()) Then Exit Sub End If Dim Label Label = "摘要管理" If PackageMode = 1 Then Label = "摘要マスター" End If Dim EnshuName Dim TekiyoCD , Tekiyo '摘要コード、摘要 Dim KanrenKaisyaCD '会社コード、関連会社コード Dim Query Dim Content TekiyoCD = Request("TekiyoCD") '対象データGET Query = "exec SPM摘要取得 '" & GB_SystemCD & "','" & EnshuCD & "','" & TekiyoCD & "','" & KaisyaCD & "'" Set Content = OpenQuery(Query) If Not(Content.BOF Or Content.EOF) Then TekiyoCD = Content.Fields("摘要CD") KaisyaCD = Content.Fields("会社CD") ' EnshuCD = Content.Fields("演習CD") KanrenKaisyaCD = Content.Fields("関連会社CD") Tekiyo = Content.Fields("摘要") End If %> <% = HtmlHeader("") %>
<% = HtmlFooter %> <% End Sub %>