<% ' %> <% main() Sub main() If Not(SessionCheck()) Then Exit Sub End If '運送契約 Dim RouteType RouteType = Request("RouteType") Dim keiyakuNo '契約申込番号 keiyakuNo = Request("keiyakuNo") %> <% = HtmlHeader("") %> <% = PrintScriptX %> <% Response.Write(PrintHeader(0, "運送契約")) Dim AutoFlg If RouteType = "Hakushi" Then AutoFlg = -1 Else AutoFlg = 0 End If %> <% = UnsoKeiyakuSyorui(EnshuCD, KaisyaCD, keiyakuNo, AutoFlg, 1) %> <% Response.Write(PrintFooter()) %> <% = HtmlFooter %> <% End Sub %>