<% ' ' %> <% 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 AutoGenkinNyusyukinRireki, AutoYokinNyusyukinRireki, AutoNyukoJisseki, AutoSyukoJisseki Dim AutoSyohinZaiko, AutoUketoriTegataIchiran, AutoShiaraiTegataIchiran Dim SokanjyomototyoHyojyunshiki Dim Kitakuriyou Dim KinkoHyoji Dim YTegataHyoji Dim KTegataHyoji Dim TegataHyoji TegataHyoji = "1" Dim AutoGenkinSuitotyo Dim AutoTouzayokinSuitotyo Dim AutoUriagetyo Dim AutoShiiretyo Dim AutoUrikakekinMototyo Dim AutoKaikakekinMototyo Dim AutoUketoriTegatatyo Dim AutoShiharaiTegatatyo '’•¶¿‘Šm”F—v•s—vƒgƒOƒ‹ Dim UkeshoKakunin UkeshoKakunin = 1 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•\•\Ž¦") SokanjyomototyoHyojyunshiki = Content.Fields("‘Š¨’茳’ •W€Ž®—˜—p") Dim YobiA YobiA = Content.Fields("—š—ð•\Ž¦") AutoGenkinNyusyukinRireki = Mid(YobiA, 1, 1) AutoYokinNyusyukinRireki = Mid(YobiA, 2, 1) AutoNyukoJisseki = Mid(YobiA, 3, 1) AutoSyukoJisseki = Mid(YobiA, 4, 1) AutoSyohinZaiko = Mid(YobiA, 5, 1) AutoUketoriTegataIchiran = Mid(YobiA, 6, 1) AutoShiaraiTegataIchiran = Mid(YobiA, 7, 1) Kitakuriyou = "" & Content.Fields("Šñ‘õ‘qŒÉ—˜—p") KinkoHyoji = "" & Content.Fields("‹àŒÉ•\Ž¦") YTegataHyoji = "" & Content.Fields("–ñ‘©ŽèŒ`•\Ž¦") KTegataHyoji = "" & Content.Fields("ˆ×‘ÖŽèŒ`•\Ž¦") If YTegataHyoji <> "1" And KTegataHyoji <> "1" Then TegataHyoji = "0" End If 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“ü’ •\Ž¦") UkeshoKakunin = Content.Fields("’•¶¿‘Šm”F—˜—p") End If If "" & UkeshoKakunin = "" Then UkeshoKakunin = 1 End If 'Šñ‘õ—˜—pó‘Ԃ𮔉»i070207¬–ìj If Kitakuriyou = "1" Then Kitakuriyou = 1 Else Kitakuriyou = 0 End If %> <% = HtmlHeader("") %> <% Response.Write(HtmlDesign(4)) Response.Write(HttpL1(3)) Response.Write(HttpL2("ƉïEWŒvƒEƒBƒ“ƒhƒE" ,"", "", "", "", "", "", "", "", "", "", "")) Response.Write(HttpL3("", "", "", "", "","" ,"", "", "", "", "", "", "", "", "", "")) Response.Write(HttpL3_1("", "", "", "", "", "", "", "", "", "")) Response.Write(HttpL3_2("", "", "", "", "", "", "", "", "", "")) Response.Write(HttpL4("ƉïEWŒvƒEƒBƒ“ƒhƒE", "")) %>