% ' ' %> <% main() Sub main() 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 RouteType RouteType = Request("RouteType") Dim Url Url = Request.ServerVariables("URL") Dim PageType PageType = Request("PageType") '補助簿種別パラメータ Dim GinkoCD, KozaKubun, KozaBango GinkoCD = Request("GinkoCD") KozaKubun = Request("KozaKubun") KozaBango = Request("KozaBango") Dim TorihikisakiCD TorihikisakiCD = Request("TorihikisakiCD") %> <% = HtmlHeader("") %>
<% End Sub %>