<% ' %> <% main() Sub main() Dim EnshuName Dim Query Dim Content If Not(SessionCheck()) Then Exit Sub End If Dim Syubetsu Syubetsu = Request("Syubetsu") 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 '**************************************** 'Response.Write "--DateStr=" & DateStr 'Response.Write "--Tsuki=" & Tsuki 'Response.Write "--Hi=" & Hi 'EXIT SUB 'Response.Write "--DateStr=" & DateStr 'Response.Write "--KaisyaCD=" & KaisyaCD 'EXIT SUB '**************************************** %> <% = HtmlHeader("") %>
<% Response.Write(HtmlDesign(1)) Response.Write(HttpL1(1)) Response.Write(HttpL2("会社選択" ,"tblbtn( '/" & HomeAlias & "/user/bk/')", "運輸・倉庫・保険" ,"tblbtn( '/" & HomeAlias & "/user/bk/menu_u.asp')", "運輸倉庫保険業務" , "tblbtn( '/" & HomeAlias & "/user/bk/menu_u2.asp')", "" & SyubetsuLabel & "保険料計算", "", "", "", "", "")) Response.Write(HttpL3( "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "")) Response.Write(HttpL3_1("照会", "syokaibtn()", "", "", "", "", "", "", "", "")) Response.Write(HttpL3_2("追加", "tblbtn( 'fu_hoken.asp?Action=1&Syubetsu=" & Syubetsu & "&EnshuCD=" & EnshuCD & "')", "", "", "", "", "", "", "", "")) Response.Write(HttpL4("" & SyubetsuLabel & "保険料計算", "一覧表示")) %>
<% = HtmlFooter %> <% End Sub %>