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