<% ' ' ' %> <% main() Sub main() If Not(SessionCheck()) Then Exit Sub End If Dim RouteType RouteType = Request("RouteType") Dim Query Dim Content Dim KaisyaCD If RouteType = "syatyo" Then Query = "exec SPM会社取得 '" & GB_SystemCD & "','" & EnshuCD & "', '" & GB_KaisyaCD & "'" Else Query = "exec SPV自社情報取得 '" & GB_SystemCD & "','" & EnshuCD & "', '" & GakuseiNo & "'" End If Set Content = OpenQuery(Query) If Not(Content.BOF Or Content.EOF) Then KaisyaCD = "" & Content.Fields("会社CD") End If Dim NextUrl If GB_EnshuKubun = "P" Then NextUrl = "default.asp" Else NextUrl = "default_bin.asp?KaisyaCD=" & KaisyaCD End If %> <% = AppTitle %> <% If RouteType = "syatyo" Then Response.Write(HtmlDesign(10)) 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')", "定款", "", "", "", "", "")) Else Response.Write(HtmlDesign(9)) Response.Write(HttpL1(0)) Response.Write(HttpL2("会社選択", "tblbtn( 'default.asp')", "自社設定" , "", "", "", "", "", "", "", "", "")) End If Response.Write(HttpL3("", "", "", "", "","" ,"", "", "", "", "", "", "", "", "", "")) Response.Write(HttpL3_1("", "", "", "", "", "", "", "", "", "")) Response.Write(HttpL3_2("", "", "", "", "", "", "", "", "", "")) If RouteType = "syatyo" Then Response.Write(HttpL4("定款", "")) Else Response.Write(HttpL4("", "")) End If %> <% = HtmlFooter %> <% End Sub %>