<% ' ' %> <% main() Sub main() Dim BunsyoSyuruiCD, SyoruiMei, SyoriMongon BunsyoSyuruiCD = Left(Request("BunsyoSyuruiCD"), 2) '何故か「undifined」が付加されてしまうため力技 Dim RouteType RouteType = Request("RouteType") Dim Title Title = Request("Title") %> <% = HtmlHeader("") %> <% = PrintScriptX %> <% Response.Write(PrintHeader(AutoFlg, "")) Dim AutoFlg If RouteType = "Hakushi" Then AutoFlg = -1 Else AutoFlg = 0 End If %> <% = Unsohoken(BunsyoSyuruiCD, SyoruiMei, SyoriMongon, AutoFlg, 1) %> <% Response.Write(PrintFooter()) %> <% = HtmlFooter %> <% End Sub %>