<% ' ' %> <% 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("") %> ?RouteType=<% = RouteType %>&PageType=<% = PageType %>&Kaishibi=<% = Kaishibi %>&Syuryobi=<% = Syuryobi %>&GinkoCD=<% = GinkoCD %>&TorihikisakiCD=<% = TorihikisakiCD %>&<% = TimeUniq() %>" scrolling="no" noresize> ?RouteType=<% = RouteType %>&PageType=<% = PageType %>&Kaishibi=<% = Kaishibi %>&Syuryobi=<% = Syuryobi %>&GinkoCD=<% = GinkoCD %>&TorihikisakiCD=<% = TorihikisakiCD %>&<% = TimeUniq() %>"> <body onkeydown="if(ExitFlg==2)ExitFlg=3;"> <p>このページにはフレームが使用されていますが、お使いのブラウザではサポートされていません。</p> </body> <% End Sub %>