<% ' ' ' %> <% main() Sub main() Dim Kaishibi Dim Syuryobi Dim BunsyoSyuruiCD Dim Action Action = Request("Action") Kaishibi = Request("Kaishibi") Syuryobi = Request("Syuryobi") BunsyoSyuruiCD = Request("BunsyoSyuruiCD") Dim BunsyoNaiyoCD Dim SakuseiKaisyaCD BunsyoNaiyoCD = Request("BunsyoNaiyoCD") SakuseiKaisyaCD = Request("SakuseiKaisyaCD") Dim ZeibikimaeRieki ZeibikimaeRieki= Request("ZeibikimaeRieki") If Kaishibi = "" Then Kaishibi = GB_KaikeiKaishibi End If IF Syuryobi = "" Then Syuryobi = GB_KaikeiSyuryobi End If Dim RouteType RouteType = Request("RouteType") Dim PageType PageType = Request("PageType") 'Response.Redirect("fk_tegata_view.asp?Action=" & Action & "&BunsyoNaiyoCD=" & BunsyoNaiyoCD & "&BunsyoSyuruiCD=" & BunsyoSyuruiCD) SakuseiKaisyaCD Dim KaisyaCD1 KaisyaCD1 = Request("KaisyaCD1") Dim BinType BinType = Request("BinType") %> <% = HtmlHeader("") %> <body onkeydown="if(ExitFlg==2)ExitFlg=3;"> <p>このページにはフレームが使用されていますが、お使いのブラウザではサポートされていません。</p> </body> <% End Sub %>