% ' ' %> <% main() Sub main() If Not(SessionCheck()) Then Exit Sub End If Dim RouteType RouteType = Request("RouteType") Dim PageType '期中口座開設の有無を確認するフラグ Dim KichuKaisetsu KichuKaisetsu = false Dim KozaKubun, KozaBango, BackGinkoCD BackGinkoCD = Request("BackGinkoCD") KozaKubun = Request("KozaKubun") KozaBango = Request("KozaBango") Dim GinkoCD If Left(GB_GyosyuKubun, 1) = "B" Then GinkoCD = KaisyaCD PageType = "口座一覧" PageType = "預金通帳" Else GinkoCD = Request("GinkoCD") PageType = "預金通帳" End If Dim TsutyoSyudoSyusei TsutyoSyudoSyusei = GetEnshuParam(EnshuCD, "通帳手動修正") If BackGinkoCD <> GinkoCD Then TsutyoSyudoSyusei = "0" End If %> <% = HtmlHeader("") %>
<% = HtmlFooter %> <% End Sub %>