<% ' %> <% main() Sub main() If Not(SessionCheck()) Then Exit Sub End If Dim Query, Content Dim InputShiwaketyo, InputShiwakeShukeihyo, InputGokeiZandakaShisanhyo, InputSokanjyoMototyo Dim InputTaisyakuTaisyohyo, InputSonekiKeisansyo, InputHachiketaSeisanhyo Dim AutoShiwaketyo, AutoShiwakeShukeihyo, AutoGokeiZandakaShisanhyo, AutoSokanjyoMototyo Dim AutoTaisyakuTaisyohyo, AutoSonekiKeisansyo, AutoHachiketaSeisanhyo Dim RiyoDenpyoSu Dim AutoStockholderEquity Dim ZaimuTaishaku Dim ZaimuSoneki Dim ZaimuCashflow Dim ZaimuStockholder Dim BunsekiSonekijisseki Dim BunsekiAnzensei Dim BunsekiShuekisei Dim BunsekiSonekibunki Query = "exec SPM‰‰KŽæ“¾ '" & GB_SystemCD & "','" & EnshuCD & "'" Set Content = OpenQuery(Query) If Not(Content.BOF Or Content.EOF) Then RiyoDenpyoSu = Content.Fields("—˜—p“`•[”‹æ•ª") InputShiwaketyo = Content.Fields("Žè“®Žd–ó’ •\Ž¦") InputShiwakeShukeihyo = Content.Fields("Žè“®Žd–óWŒv•\•\Ž¦") InputGokeiZandakaShisanhyo = Content.Fields("Žè“®‡ŒvŽc‚ŽŽŽZ•\•\Ž¦") InputSokanjyoMototyo = Content.Fields("Žè“®‘Š¨’茳’ •\Ž¦") InputTaisyakuTaisyohyo = Content.Fields("Žè“®‘ÝŽØ‘ÎÆ•\•\Ž¦") InputSonekiKeisansyo = Content.Fields("Žè“®‘¹‰vŒvŽZ‘•\Ž¦") InputHachiketaSeisanhyo = Content.Fields("Žè“®8Œ…¸ŽZ•\•\Ž¦") AutoShiwaketyo = Content.Fields("Ž©“®“]‹LŽd–ó’ •\Ž¦") AutoShiwakeShukeihyo = Content.Fields("Ž©“®“]‹LŽd–óWŒv•\•\Ž¦") AutoGokeiZandakaShisanhyo = Content.Fields("Ž©“®“]‹L‡ŒvŽc‚ŽŽŽZ•\•\Ž¦") AutoSokanjyoMototyo = Content.Fields("Ž©“®“]‹L‘Š¨’茳’ •\Ž¦") AutoTaisyakuTaisyohyo = Content.Fields("Ž©“®“]‹L‘ÝŽØ‘ÎÆ•\•\Ž¦") AutoSonekiKeisansyo = Content.Fields("Ž©“®“]‹L‘¹‰vŒvŽZ‘•\Ž¦") AutoHachiketaSeisanhyo = Content.Fields("Ž©“®“]‹L8Œ…¸ŽZ•\•\Ž¦") AutoStockholderEquity = Content.Fields("Ž©“®“]‹LŠ”ŽåŽ‘–{“™•Ï“®ŒvŽZ‘•\Ž¦") ZaimuTaishaku = "" & Content.Fields("à–±”•\‘ÝŽØ‘ÎÆ•\•\Ž¦") ZaimuSoneki = "" & Content.Fields("à–±”•\‘¹‰vŒvŽZ‘•\Ž¦") ZaimuCashflow = "" & Content.Fields("à–±”•\ƒLƒƒƒbƒVƒ…ƒtƒ[ŒvŽZ‘•\Ž¦") ZaimuStockholder = "" & Content.Fields("à–±”•\Š”ŽåŽ‘–{“™•Ï“®ŒvŽZ‘•\Ž¦") BunsekiSonekijisseki = "" & Content.Fields("à–±•ªÍ‘¹‰vŽÀÑ•\Ž¦") BunsekiAnzensei = "" & Content.Fields("à–±•ªÍŽû‰v«•\Ž¦") BunsekiShuekisei = "" & Content.Fields("à–±•ªÍˆÀ‘S«•\Ž¦") BunsekiSonekibunki = "" & Content.Fields("à–±•ªÍ‘¹‰v•ªŠò“_•\Ž¦") End If '‰‰K‰ïŽÐƒƒOƒCƒ“Žž‚Í‘S‚ÄON ‰‰KŠÇ—ŽÒ‚ÍŠÇ—‰‰K‚Å‚Ì‚Ý‘S‚ÄON If Session(HomeAlias & "AutoLoginButton") = "1" And (GB_AdminPCE = "" Or GB_AdminPCE = GB_EnshuCD) Then ZaimuTaishaku = "1" ZaimuSoneki = "1" ZaimuCashflow = "1" ZaimuStockholder = "1" BunsekiSonekijisseki = "1" BunsekiAnzensei = "1" BunsekiShuekisei = "1" BunsekiSonekibunki = "1" End If %> <% = AppTitle %> <% Response.Write(HtmlDesign(1)) Response.Write(HttpL1(3)) Response.Write(HttpL2("‰ïŽÐ‘I‘ð" ,"tblbtn( '/" & HomeAlias & "/user/bk/')", GB_GyosyuMeisyo, "tblbtn( '/" & HomeAlias & "/user/bk/menu_" & GB_Gyosyu & ".asp')", "ŽÐ’·ŽºE‘–±•”", "tblbtn( '/" & HomeAlias & "/user/bk/menu_s4.asp')", "à–±”•\", "", "", "", "", "")) Response.Write(HttpL3("", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "")) Response.Write(HttpL3_1("", "", "", "", "", "", "", "", "", "")) Response.Write(HttpL3_2("", "", "", "", "", "", "", "", "", "")) Response.Write(HttpL4("à–±”•\", "")) %> <% = HtmlFooter %> <% End Sub %>