<% ' ' %> <% main() Sub main() Dim Kaishibi, Syuryobi, KanjyoCD, TekiyoCD, RouteType Kaishibi = Request("Kaishibi") Syuryobi = Request("Syuryobi") KanjyoCD = Request("KanjyoCD") TekiyoCD = Request("TekiyoCD") RouteType = Request("RouteType") If Kaishibi = "" Then Kaishibi = GB_KaikeiKaishibi End If IF Syuryobi = "" Then Syuryobi = GB_KaikeiSyuryobi End If Dim Url Url = Request.ServerVariables("URL") %> <% = HtmlHeader("") %> ?RouteType=<% = RouteType %>&Kaishibi=<% = Kaishibi %>&Syuryobi=<% = Syuryobi %>&KanjyoCD=<% = KanjyoCD %>&TekiyoCD=<% = TekiyoCD %>&<% = TimeUniq() %>" scrolling="no" noresize> ?RouteType=<% = RouteType %>&Kaishibi=<% = Kaishibi %>&Syuryobi=<% = Syuryobi %>&KanjyoCD=<% = KanjyoCD %>&TekiyoCD=<% = TekiyoCD %>&<% = TimeUniq() %>"> <body onkeydown="if(ExitFlg==2)ExitFlg=3;"> <p>このページにはフレームが使用されていますが、お使いのブラウザではサポートされていません。</p> </body> <% End Sub %>