% Dim WK_Zandaka_KanjyoCD() Dim WK_Zandaka_KanjyoName() Dim WK_Zandaka_KariKingaku() Dim WK_Zandaka_KashiKingaku() Dim WK_Zandaka_KanjyoKubun() Dim WK_Zandaka_TaisyakuKubun() Dim WK_Zandaka_SyukeiCD() Dim ShowCount, MaxCount Dim CSVOutput ' ' %> <% main() Sub main() 'GB_ShowPrintHeader = "1" Dim EnshuName, HyojiJyoken Dim Query Dim Content Dim ErrMsg If Not(SessionCheck()) Then Exit Sub End If Dim Addr, AutoFlg Dim tmp Dim KaisyaCD, GakuseiNo, BunsyoSyuruiCD, BunsyoNaiyoCD Dim Param1, Param2 Dim KaisyaSelect KaisyaCD = Request("KaisyaCD") GakuseiNo = Request("GakuseiNo") BunsyoSyuruiCD = Request("BunsyoSyuruiCD") BunsyoNaiyoCD = Request("BunsyoNaiyoCD") Dim SakuseiKaisyaCD Dim Kaishibi Dim Syuryobi Kaishibi = Request("Kaishibi") Syuryobi = Request("Syuryobi") AutoFlg = 0 If InStr(BunsyoSyuruiCD, ",") > 0 then tmp = Split(BunsyoSyuruiCD, ",") BunsyoSyuruiCD = tmp(0) AutoFlg = tmp(1) End If If InStr(BunsyoNaiyoCD, ",") > 0 then tmp = Split(BunsyoNaiyoCD, ",") SakuseiKaisyaCD = tmp(0) BunsyoNaiyoCD = tmp(1) End If If SakuseiKaisyaCD = "" Then SakuseiKaisyaCD = KaisyaCD End If Param1 = Request("Param1") Param2 = Request("Param2") KaisyaSelect = KaisyaCD If KaisyaCD = "///" Then Query = "exec SPM‘I‘ð‰Â”\‰ïŽÐŽæ“¾ '" & GB_SystemCD & "', '" & EnshuCD & "', '" & GakuseiNo & "'" Set Content = OpenQuery(Query) If Not(Content.BOF Or Content.EOF) Then KaisyaCD = Content.Fields("‘I‘ð‰ïŽÐCD") End If End If Dim EnshuKubunmei Dim InputShiwaketyoKyuVersionRiyo Dim SokanjyomototyoHyojyunshiki Query = "exec SPM‰‰KŽæ“¾ '" & GB_SystemCD & "', '" & EnshuCD & "'" Set Content = OpenQuery(Query) If Not(Content.BOF Or Content.EOF) Then EnshuKubunmei = Content.Fields("‰‰K‹æ•ª") InputShiwaketyoKyuVersionRiyo = Content.Fields("Žè“ü—ÍŽd–ó’ ‹Œƒo[ƒWƒ‡ƒ“—˜—p") SokanjyomototyoHyojyunshiki = Content.Fields("‘Š¨’茳’ •W€Ž®—˜—p") End If %> <% If 0=1 Then %> <% ' ‘¹‰vŒvŽZ‘”Ì”„ŠÇ—”ïˆê—— Œ»‹à“üo‹à—š—ð —a‹à“üo‹à—š—ð “üŒÉŽÀÑ oŒÉŽÀÑ %> <% ElseIf AutoFlg = 1 And (BunsyoSyuruiCD = "LK" Or BunsyoSyuruiCD = "MA" Or Left(BunsyoSyuruiCD, 2) = "MB" Or Left(BunsyoSyuruiCD, 2) = "MC" Or Left(BunsyoSyuruiCD, 2) = "MD") Then %> <% = HtmlHeader("sj3tyoboblack11") %> <% ' ¤•iÝŒÉ (ˆÚ“®•½‹Ï–@) (‘•½‹Ï–@) %> <% ElseIf AutoFlg = 1 And (Left(BunsyoSyuruiCD, 2) = "MG" Or Left(BunsyoSyuruiCD, 2) = "MJ" Or Left(BunsyoSyuruiCD, 2) = "MK") Then %> <% = HtmlHeader("sj3tyoboblackPRT09") %> <% ' ŽóŽæŽèŒ`—š—ð Žx•¥ŽèŒ`—š—ð %> <% ElseIf AutoFlg = 1 And (Left(BunsyoSyuruiCD, 2) = "MH" Or Left(BunsyoSyuruiCD, 2) = "MI") Then %> <% = HtmlHeader("sj3tyoboblacks") %> <% ' Œ»‹ào”[’ Žd“ü’ ”„ã’ “–À—a‹ào”[’ ”„Š|‹àŒ³’ ”ƒŠ|‹àŒ³’ %> <% ElseIf Left(BunsyoSyuruiCD, 2) = "MA" Or Left(BunsyoSyuruiCD, 2) = "MC" Or Left(BunsyoSyuruiCD, 2) = "MD" Or Left(BunsyoSyuruiCD, 2) = "MB" Or Left(BunsyoSyuruiCD, 2) = "ME" Or Left(BunsyoSyuruiCD, 2) = "MF" Then %> <% = HtmlHeader("sj3tyobored11") %> <% ' iŽ©“®j Œ»‹ào”[’ Žd“ü’ ”„ã’ ¤•i—L‚’ “–À—a‹ào”[’ ”„Š|‹àŒ³’ ”ƒŠ|‹àŒ³’ ŽóŽæŽèŒ`‹L“ü’ Žx•¥ŽèŒ`‹L“ü’ %> <% ElseIf Left(BunsyoSyuruiCD, 2) = "AA" Or Left(BunsyoSyuruiCD, 2) = "AH" Or Left(BunsyoSyuruiCD, 2) = "AG" Or Left(BunsyoSyuruiCD, 2) = "AI" Or Left(BunsyoSyuruiCD, 2) = "AB" Or Left(BunsyoSyuruiCD, 2) = "AC" Or Left(BunsyoSyuruiCD, 2) = "AD" Or Left(BunsyoSyuruiCD, 2) = "AE" Or Left(BunsyoSyuruiCD, 2) = "AF" Then %> <% = HtmlHeader("sj3tyobored11") %> <% ' ‡ŒvŽc‚ŽŽŽZ•\ Žd–óWŒv•\ ‘¹‰vŒvŽZ‘ ‘ÝŽØ‘ÎÆ•\ %> <% ElseIf Left(BunsyoSyuruiCD, 2) = "LC" Or Left(BunsyoSyuruiCD, 2) = "LB" Or Left(BunsyoSyuruiCD, 2) = "LF" Or Left(BunsyoSyuruiCD, 2) = "LE" Then %> <% = HtmlHeader("sj3tyobored11") %> <% ' ‘Š¨’茳’ iŽc‚Ž®j %> <% ElseIf SokanjyomototyoHyojyunshiki <> "1" And Left(BunsyoSyuruiCD, 2) = "LD" Then %> <% = HtmlHeader("sj3tyoboredPRT10") %> <% ' ŽóŽæŽèŒ`‹L“ü’ Žx•¥ŽèŒ`—š—ð 8Œ…¸ŽZ•\ ‘Š¨’茳’ %> <% ElseIf Left(BunsyoSyuruiCD, 2) = "MH" Or Left(BunsyoSyuruiCD, 2) = "MI" Or Left(BunsyoSyuruiCD, 2) = "LG" Or Left(BunsyoSyuruiCD, 2) = "LD" Then %> <% = HtmlHeader("sj3tyoboredPRT09") %> <% ' %> <% Else %> <% = HtmlHeader("sj3tyoboreds") %> <% End If %>
<% = PrintScriptX %> <% End Sub %>