% ' %> <% main() Sub main() Dim Label Label = "摘要管理" If PackageMode = 1 Then Label = "摘要マスター" End If Dim EnshuName Dim Query Dim Content Dim TekiyoCD TekiyoCD = Request("TekiyoCD") If Not(SessionCheck()) Then Exit Sub End If %> <% = HtmlHeader("") %>
<% = HtmlFooter %> <% End Sub %>