<% ' %> <% main() Sub main() If Not(SessionCheck()) Then Exit Sub End If Dim RouteType RouteType = Request("RouteType") Dim MenuType MenuType = Request("MenuType") Dim Label Label = "Žè“ü—Í’ •ë" If MenuType = "Jido" Then Label = "Ž©“®“]‹L’ •ë" End If Dim Query, Content Dim Hojyobo Dim InputShiwaketyo, InputShiwakeShukeihyo, InputGokeiZandakaShisanhyo, InputSokanjyoMototyo Dim InputTaisyakuTaisyohyo, InputSonekiKeisansyo, InputHachiketaSeisanhyo, InputStockholderEquity Dim AutoShiwaketyo, AutoShiwakeShukeihyo, AutoGokeiZandakaShisanhyo, AutoSokanjyoMototyo Dim AutoTaisyakuTaisyohyo, AutoSonekiKeisansyo, AutoHachiketaSeisanhyo, AutoStockholderEquity Dim RiyoDenpyoSu Dim InputHojyobo Dim SokanjyomototyoHyojyunshiki Dim InputGenkinSuitotyo Dim InputKoguchiSuitocho Dim InputTouzayokinSuitotyo Dim InputUriagetyo Dim InputShiiretyo Dim InputUrikakekinMototyo Dim InputKaikakekinMototyo Dim InputUketoriTegatatyo Dim InputShiharaiTegatatyo Dim InputSyohinAridakatyo Dim AutoGenkinSuitotyo Dim AutoTouzayokinSuitotyo Dim AutoUriagetyo Dim AutoShiiretyo Dim AutoUrikakekinMototyo Dim AutoKaikakekinMototyo Dim AutoUketoriTegatatyo Dim AutoShiharaiTegatatyo Dim AutoSyohinAridakatyo Query = "exec SPM‰‰KŽæ“¾ '" & GB_SystemCD & "','" & EnshuCD & "'" Set Content = OpenQuery(Query) If Not(Content.BOF Or Content.EOF) Then RiyoDenpyoSu = Content.Fields("—˜—p“`•[”‹æ•ª") InputHojyobo = Content.Fields("Žè“®•â••ë•\Ž¦") 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•\•\Ž¦") InputStockholderEquity = "" & Content.Fields("Žè“®Š”ŽåŽ‘–{“™•Ï“®ŒvŽ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‘•\Ž¦") SokanjyomototyoHyojyunshiki = Content.Fields("‘Š¨’茳’ •W€Ž®—˜—p") InputGenkinSuitotyo = "" & Content.Fields("Œ»‹ào”[’ •\Ž¦") InputKoguchiSuitocho = "" & Content.Fields("¬ŒûŒ»‹ào”[’ •\Ž¦") InputTouzayokinSuitotyo = "" & Content.Fields("“–À—a‹ào”[’ •\Ž¦") InputUriagetyo = "" & Content.Fields("”„ã’ •\Ž¦") InputShiiretyo = "" & Content.Fields("Žd“ü’ •\Ž¦") InputUrikakekinMototyo = "" & Content.Fields("”„Š|‹àŒ³’ •\Ž¦") InputKaikakekinMototyo = "" & Content.Fields("”ƒŠ|‹àŒ³’ •\Ž¦") InputUketoriTegatatyo = "" & Content.Fields("ŽóŽæŽèŒ`‹L“ü’ •\Ž¦") InputShiharaiTegatatyo = "" & Content.Fields("Žx•¥ŽèŒ`‹L“ü’ •\Ž¦") InputSyohinAridakatyo = "" & Content.Fields("¤•i—L‚’ •\Ž¦") AutoGenkinSuitotyo = "" & Content.Fields("Ž©“®“]‹LŒ»‹ào”[’ •\Ž¦") AutoTouzayokinSuitotyo = "" & Content.Fields("Ž©“®“]‹L“–À—a‹ào”[’ •\Ž¦") AutoUriagetyo = "" & Content.Fields("Ž©“®“]‹L”„ã’ •\Ž¦") AutoShiiretyo = "" & Content.Fields("Ž©“®“]‹LŽd“ü’ •\Ž¦") AutoUrikakekinMototyo = "" & Content.Fields("Ž©“®“]‹L”„Š|‹àŒ³’ •\Ž¦") AutoKaikakekinMototyo = "" & Content.Fields("Ž©“®“]‹L”ƒŠ|‹àŒ³’ •\Ž¦") AutoUketoriTegatatyo = "" & Content.Fields("Ž©“®“]‹LŽóŽæŽèŒ`‹L“ü’ •\Ž¦") AutoShiharaiTegatatyo = "" & Content.Fields("Ž©“®“]‹LŽx•¥ŽèŒ`‹L“ü’ •\Ž¦") AutoSyohinAridakatyo = "" & Content.Fields("Ž©“®“]‹L¤•i—L‚’ •\Ž¦") End If %> <% = HtmlHeader("") %> <% If InStr(RouteType, "HojyoboOnly") > 0 Then Response.Write(HtmlDesign(2)) Else Response.Write(HtmlDesign(1)) End If Response.Write(HttpL1(3)) Response.Write(HttpL2("ƒƒCƒ“ƒƒjƒ…[" ,"tblbtn('/" & HomeAlias & "/user/bk/menu_cyac.asp')", Label, "", "", "", "", "", "", "", "", "")) Response.Write(HttpL3("", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "")) Response.Write(HttpL3_1("", "", "", "", "", "", "", "", "", "")) Response.Write(HttpL3_2("", "", "", "", "", "", "", "", "", "")) Response.Write(HttpL4(Label, "")) Response.Write(HttpL5("")) %> <% = HtmlFooter %> <% End Sub %>