<% ' ' %> <% main() Sub main() Dim RouteType RouteType = Request("RouteType") Dim BunsyoNaiyoCD, BunsyoSyuruiCD, SakuseiKaisyaCD SakuseiKaisyaCD = Request("SakuseiKaisyaCD") BunsyoSyuruiCD = Request("BunsyoSyuruiCD") BunsyoNaiyoCD = Request("BunsyoNaiyoCD") '↓先頭に改行があるとXMLHTTPで取得できないので注意! %> binx/sj3web.css?<% = TimeUniq() %>" rel="stylesheet" type="text/css"> <% = AppTitle %> <% Dim AutoFlg AutoFlg = 0 Response.Write(ShiireUriageSyorui(EnshuCD, KaisyaCD, SakuseiKaisyaCD, BunsyoSyuruiCD, BunsyoNaiyoCD, AutoFlg, 1, 2)) %> <% End Sub %>