% ' ' ' %> <% main() Sub main() If Not(SessionCheck()) Then Exit Sub End If Dim Kaishibi Dim Syuryobi Kaishibi = Request("Kaishibi") Syuryobi = Request("Syuryobi") If Kaishibi = "" Then Kaishibi = GB_KaikeiKaishibi End If IF Syuryobi = "" Then Syuryobi = GB_KaikeiSyuryobi End If Dim PageType PageType = "販売管理費一覧" Dim RouteType RouteType = Request("RouteType") %> <% = HtmlHeader("sj3tyoboblack11") %>
<% = HtmlFooter %> <% End Sub %>