<% ' %> <% main() Sub main() If Not(SessionCheck()) Then Exit Sub End If Session(HomeAlias & "KanriKubun") = "" Dim Query Dim Content Dim GenkaKaikeiRiyo Query = "exec SPM演習取得 '" & GB_SystemCD & "', '" & EnshuCD & "'" Set Content = OpenQuery(Query) If Not(Content.BOF Or Content.EOF) Then GenkaKaikeiRiyo = "" & Content.Fields("原価会計利用") End If Dim TableWidthPlus TableWidthPlus = 0 ' If GenkaKaikeiRiyo = "1" Then ' TableWidthPlus = 120 ' End If 'デバッグ用 'PackageMode = 1 %> <% = HtmlHeader("") %>
<% Response.Write(HtmlDesign(1)) Response.Write(HttpL1(3)) Response.Write(HttpL2("会社選択" ,"tblbtn( '/" & HomeAlias & "/user/bk/')", GB_GyosyuMeisyo, "tblbtn( '/" & HomeAlias & "/user/bk/menu_" & GB_Gyosyu & ".asp')", "社長室・総務部", "tblbtn( '/" & HomeAlias & "/user/bk/menu_s4.asp')", "マスター照会", "", "", "", "", "")) Response.Write(HttpL3("", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "")) Response.Write(HttpL3_1("", "", "", "", "", "", "", "", "", "")) Response.Write(HttpL3_2("", "", "", "", "", "", "", "", "", "")) Response.Write(HttpL4("マスター照会", "")) %> <% = HtmlFooter %> <% End Sub %>