<% ' %> <% main() Sub main() If Not(SessionCheck()) Then Exit Sub End If Dim RouteType RouteType = Request("RouteType") Dim MousikomiNum MousikomiNum = Request("MousikomiNum") Dim Syubetsu Syubetsu = Request("Syubetsu") Dim Query Dim Content Dim SyubetsuLabel If Syubetsu <> "" Then Query = "exec SPV区分情報一覧 '" & GB_SystemCD & "', '保険種別'" Set Content = OpenQuery(Query) Do While Not(Content.BOF Or Content.EOF) If Content.Fields("区分CD") = Syubetsu Then SyubetsuLabel = Replace("" & Content.Fields("区分名称"), "保険", "") Exit Do End If Content.MoveNext Loop End If %> <% = HtmlHeader("") %> <% = PrintScriptX %> <% Response.Write(PrintHeader(0, "" & SyubetsuLabel & "保険料計算")) Dim AutoFlg If RouteType = "Hakushi" Then AutoFlg = -1 Else AutoFlg = 0 End If %> <% = HokenRyo(EnshuCD, KaisyaCD, MousikomiNum, AutoFlg, 1) %> <% Response.Write(PrintFooter()) %> <% = HtmlFooter %> <% End Sub %>