<!-- #include file="../../include.asp" -->
<!-- #include file="../../user/bk/shiireuriage/fd_syorui_view_main_in.asp" -->
<!-- #include file="../../user/bk/shiireuriage/fd_nyusyukko_view_main_in.asp" -->
<!-- #include file="../../user/bk/ginkomadoguchi/fb_ginkosyorui_view_main_in.asp" -->
<!-- #include file="../../user/bk/ginko/fb_uketsukesyori_view_main_in.asp" -->
<!-- #include file="../../user/bk/tegata/fk_tegata_view_main_in.asp" -->
<!-- #include file="../../user/bk/unyusokomadoguchi/fc_syorui_view_main_in.asp" -->
<!-- #include file="../../user/bk/unso/seikyu/fu_seikyu_view_main_in.asp" -->
<!-- #include file="../../user/bk/denpyo/fk_nyukinsyukin_view_main_in.asp" -->
<!-- #include file="../../user/bk/denpyo/fk_shiireuriage_view_main_in.asp" -->
<!-- #include file="../../user/bk/denpyo/fk_furikae_view_main_in.asp" -->

<!-- #include file="../../user/bk/tyobo/fk_gokeizandakashisanhyo_view_main_in.asp" -->
<!-- #include file="../../user/bk/tyobo/fk_hachiketaseisanhyo_view_main_in.asp" -->
<!-- #include file="../../user/bk/tyobo/fk_shiwaketyo_view_main_in.asp" -->
<!-- #include file="../../user/bk/tyobo/fk_shiwakenikkityo_view_main_in.asp" -->
<!-- #include file="../../user/bk/tyobo/fk_shiwakesyukeihyo_view_main_in.asp" -->
<!-- #include file="../../user/bk/tyobo/fk_sokanjyomototyo_view_main_in.asp" -->
<!-- #include file="../../user/bk/tyobo/fk_sokanjyomototyohyojyun_view_main_in.asp" -->
<!-- #include file="../../user/bk/tyobo/fk_sonekikeisansyo_view_main_in.asp" -->
<!-- #include file="../../user/bk/tyobo/fk_taisyakutaisyohyo_view_main_in.asp" -->

<!-- #include file="../../user/bk/hojyobo/fk_genkinsuitotyo_view_main_in.asp" -->
<!-- #include file="../../user/bk/hojyobo/fk_shiireuriagetyo_view_main_in.asp" -->
<!-- #include file="../../user/bk/hojyobo/fk_syohinaridakatyo_view_main_in.asp" -->
<!-- #include file="../../user/bk/hojyobo/fk_touzayokinsuitotyo_view_main_in.asp" -->
<!-- #include file="../../user/bk/hojyobo/fk_uketorisiharaitegatatyo_view_main_in.asp" -->
<!-- #include file="../../user/bk/hojyobo/fk_urikaikakekintyo_view_main_in.asp" -->

<!-- #include file="../../user/bk/ryosyusyo/fk_ryosyusyo_view_main_in.asp" -->

<!-- #include file="../../user/bk/jidotyobo/rm_sonekikeisansyohoukoku_main_in.asp" -->
<!-- #include file="../../user/bk/jidotyobo/rm_sonekikeisansyohoukoku_hanbaikairihi_main_in.asp" -->
<!-- #include file="../../user/bk/jidotyobo/rm_taisyakutaisyouhyohoukoku_main_in.asp" -->

<!-- #include file="../../user/bk/denpyo/fk_zairyoshiire_view_main_in.asp" -->

<%

	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

'
'<!--
'################################################
'	 –¼Ì	F‰‰Kó‹µˆê——•\Ž¦
'	 ì¬“úF2002/9/6
'	 ì¬ŽÒF“¿“c
'	 –Ú“I@F‰‰Kó‹µˆê——•\Ž¦‰æ–Ê‚ð•\Ž¦‚·‚éB
'	 ŠT—v	F
'		<<•\Ž¦>>
'	E‰‰Kó‹µˆê——•\Ž¦‰æ–Ê
'
'################################################
'-->
%>
<%
main()
Sub main()
	Dim EnshuName, HyojiJyoken
	Dim Query
	Dim Content
	Dim ErrMsg
	If Not(SessionCheck()) Then
		Exit Sub
	End If


	Dim Joken
	Joken = Request("Joken")


	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


	'ƒTƒCƒo[‰ïŒv‚Å‚ÍŽ©ŽÐ‚Ì‚Ý•\Ž¦i091015¬–ìj
	If KaisyaCD = "///" Or PackageMode = 1 Then
		Query = "exec SPM‰ïŽÐ‘S•”ˆê—— '" & GB_SystemCD & "', '" & EnshuCD & "', '" & GakuseiNo & "'"
		Set Content = OpenQuery(Query)
		Do While Not(Content.BOF Or Content.EOF)
			If "" & Content.Fields("Ž©ŽÐƒtƒ‰ƒO") = "1" Then
				KaisyaCD = Content.Fields("‰ïŽÐCD")
				Exit Do
			End If
			Content.MoveNext
		Loop
	End If


	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
	EnshuKubunmei = GetEnshuParam(EnshuCD, "‰‰K‹æ•ª")

	Dim PrevKaisyaCD, NextKaisyaCD, PrevGakuseiNo, NextGakuseiNo, PrevBunsyoSyuruiCD, NextBunsyoSyuruiCD, PrevBunsyoNaiyoCD, NextBunsyoNaiyoCD
	Dim PrevAutoFlg, NextAutoFlg
	Dim KaisyaMeisyo, KaisyaRyakuMeisyo, GakuseiShimei, BunsyoMeisyo
	Dim bFlg
	Query = "exec SPM‰ïŽÐ‘S•”ˆê—— '" & GB_SystemCD & "', '" & EnshuCD & "', '" & GakuseiNo & "'"
	Set Content = OpenQuery(Query)

	If Not(Content.BOF Or Content.EOF) Then
		NextKaisyaCD = Content.Fields("‰ïŽÐCD")
	End If

	Do While Not(Content.BOF Or Content.EOF)
		If Content.Fields("‰ïŽÐCD") = KaisyaCD Then
			KaisyaMeisyo = Content.Fields("‰ïŽÐ–¼Ì")
			KaisyaRyakuMeisyo = Content.Fields("‰ïŽÐ—ª–¼Ì")
			Content.MoveNext
			If Not(Content.BOF Or Content.EOF) Then
				NextKaisyaCD = Content.Fields("‰ïŽÐCD")
			End If
			Exit Do
		End If
		PrevKaisyaCD = Content.Fields("‰ïŽÐCD")
		Content.MoveNext
	Loop

	If PrevKaisyaCD = "" Then
		If Not(Content.BOF Or Content.EOF) Then
			Content.MoveFirst
		End If
		Do While Not(Content.BOF Or Content.EOF)
			PrevKaisyaCD = Content.Fields("‰ïŽÐCD")
			Content.MoveNext
		Loop
	End If

	Dim RiyoDenpyoSu
	Dim SeizobuRiyo
	Dim InputShiwaketyoKyuVersionRiyo
	Query = "exec SPM‰‰KŽæ“¾ '" & GB_SystemCD & "', '" & EnshuCD & "'"
	Set Content = OpenQuery(Query)
	If Not(Content.BOF Or Content.EOF) Then
		Session(HomeAlias & "EnshuMeisyo") = Content.Fields("‰‰K–¼Ì")
		RiyoDenpyoSu = Content.Fields("—˜—p“`•[”‹æ•ª")
		InputShiwaketyoKyuVersionRiyo = Content.Fields("Žè“ü—ÍŽd–ó’ ‹Œƒo[ƒWƒ‡ƒ“—˜—p")
		SeizobuRiyo = "" & Content.Fields("Œ´‰¿‰ïŒv—˜—p")
		'‰ïŒvŠJŽn“úEI—¹“ú‚ðƒZƒbƒgi‡ŒvŽc‚ŽŽŽZ•\‚ÌFromToƒtƒH[ƒ€‚Ì‚½‚߁j
		GB_KaikeiKaishibi = "" & Content.Fields("‰ïŒvŠJŽn“ú")
		GB_KaikeiSyuryobi = "" & Content.Fields("‰ïŒvI—¹“ú")
	end If
	EnshuMeisyo = Session(HomeAlias & "EnshuMeisyo")
	Query = "exec SPMƒ†[ƒU[Žæ“¾ '" & GB_SystemCD & "', '" & GakuseiNo & "'"
	Set Content = OpenQuery(Query)
	If Not(Content.BOF Or Content.EOF) Then
		Session(HomeAlias & "GakuseiShimei") = Content.Fields("Ž–¼")
	end If
Session(HomeAlias & "KaisyaRyakuMeisyo") = KaisyaRyakuMeisyo
Session(HomeAlias & "GakuseiNo") = GakuseiNo
Session(HomeAlias & "EnshuCD") = EnshuCD
Session(HomeAlias & "KaisyaCD") = KaisyaCD



	Query = "exec SPM‰‰K‘I‘ðƒ†[ƒU[ˆê—— '" & GB_SystemCD & "','" & EnshuCD & "'"
	Set Content = OpenQuery(Query)

	If Not(Content.BOF Or Content.EOF) Then
		NextGakuseiNo = Content.Fields("Šw¶”ԍ†")
	End If

	Do While Not(Content.BOF Or Content.EOF)
		If Content.Fields("Šw¶”ԍ†") = GakuseiNo Then
			GakuseiShimei = Content.Fields("Ž–¼")
			Content.MoveNext
			If Not(Content.BOF Or Content.EOF) Then
				NextGakuseiNo = Content.Fields("Šw¶”ԍ†")
			End If
			Exit Do
		End If
		PrevGakuseiNo = Content.Fields("Šw¶”ԍ†")
		Content.MoveNext
	Loop

	If PrevGakuseiNo = "" Then
		If Not(Content.BOF Or Content.EOF) Then
			Content.MoveFirst
		End If
		Do While Not(Content.BOF Or Content.EOF)
			PrevGakuseiNo = Content.Fields("Šw¶”ԍ†")
			Content.MoveNext
		Loop
	End If




	Query = "exec SPR•¶‘Ží—ވꗗ '" & GB_SystemCD & "'"	'TC9•¶‘Ží—ÞM‚©‚çu‡˜v—ñƒ\[ƒg‚Å”²‚«o‚·‚¾‚¯
	Set Content = OpenQuery(Query)

	If Not(Content.BOF Or Content.EOF) Then
		If Left(Content.Fields("•¶‘Ží—ÞCD"),1) <> "X" Then	'Œ_–ñ‘‚͏œŠO
			NextBunsyoSyuruiCD = Content.Fields("•¶‘Ží—ÞCD")
			NextAutoFlg = Content.Fields("Ž©“®ƒtƒ‰ƒO")
		End If
	End If

	Do While Not(Content.BOF Or Content.EOF)
		If Left(Content.Fields("•¶‘Ží—ÞCD"),1) <> "X" Then	'Œ_–ñ‘‚͏œŠO
			If Content.Fields("•¶‘Ží—ÞCD") = BunsyoSyuruiCD And Content.Fields("Ž©“®ƒtƒ‰ƒO") = AutoFlg Then
				BunsyoMeisyo = Content.Fields("•¶‘–¼Ì")
				Content.MoveNext
				If Not(Content.BOF Or Content.EOF) And Left(Content.Fields("•¶‘Ží—ÞCD"),1) <> "X" Then	'Œ_–ñ‘‚͏œŠO
					NextBunsyoSyuruiCD = Content.Fields("•¶‘Ží—ÞCD")
					NextAutoFlg = Content.Fields("Ž©“®ƒtƒ‰ƒO")
				End If
				Exit Do
			End If
			PrevBunsyoSyuruiCD = Content.Fields("•¶‘Ží—ÞCD")
			PrevAutoFlg = Content.Fields("Ž©“®ƒtƒ‰ƒO")
		End If
		Content.MoveNext
	Loop

	If PrevBunsyoSyuruiCD = "" Then
		If Not(Content.BOF Or Content.EOF) Then
			Content.MoveFirst
		End If
		Do While Not(Content.BOF Or Content.EOF)
			If Left(Content.Fields("•¶‘Ží—ÞCD"),1) <> "X" Then	'Œ_–ñ‘‚͏œŠO
				PrevBunsyoSyuruiCD = Content.Fields("•¶‘Ží—ÞCD")
				PrevAutoFlg = Content.Fields("Ž©“®ƒtƒ‰ƒO")
			End If
			Content.MoveNext
		Loop
	End If

'	If Not(Content.BOF Or Content.EOF) Then
'		NextBunsyoSyuruiCD = Content.Fields("•¶‘Ží—ÞCD")
'		NextAutoFlg = Content.Fields("Ž©“®ƒtƒ‰ƒO")
'	End If

'	Do While Not(Content.BOF Or Content.EOF) 
'		If Content.Fields("•¶‘Ží—ÞCD") = BunsyoSyuruiCD And Content.Fields("Ž©“®ƒtƒ‰ƒO") = AutoFlg Then
'			BunsyoMeisyo = Content.Fields("•¶‘–¼Ì")
'			Content.MoveNext
'			If Not(Content.BOF Or Content.EOF) Then
'				NextBunsyoSyuruiCD = Content.Fields("•¶‘Ží—ÞCD")
'				NextAutoFlg = Content.Fields("Ž©“®ƒtƒ‰ƒO")
'			End If
'			Exit Do
'		End If
'		PrevBunsyoSyuruiCD = Content.Fields("•¶‘Ží—ÞCD")
'		PrevAutoFlg = Content.Fields("Ž©“®ƒtƒ‰ƒO")
'		Content.MoveNext
'	Loop

'	If PrevBunsyoSyuruiCD = "" Then
'		If Not(Content.BOF Or Content.EOF) Then
'			Content.MoveFirst
'		End If
'		Do While Not(Content.BOF Or Content.EOF)
'			PrevBunsyoSyuruiCD = Content.Fields("•¶‘Ží—ÞCD")
'			PrevAutoFlg = Content.Fields("Ž©“®ƒtƒ‰ƒO")
'			Content.MoveNext
'		Loop
'	End If


	Query = "exec SPR•¶‘”ԍ†ˆê—— '" & GB_SystemCD & "', '" & EnshuCD & "', '" & KaisyaCD & "', '" & KaisyaCD & "', '" & BunsyoSyuruiCD & "', '" & AutoFlg & "', '" & GakuseiNo & "'"

	Set Content = OpenQuery(Query)

	If Not(Content.BOF Or Content.EOF) Then
		NextBunsyoNaiyoCD = Content.Fields("•¶‘“à—eCD")
		If BunsyoSyuruiCD = "TY" Or BunsyoSyuruiCD = "TK" Or BunsyoSyuruiCD = "TG" Then
			NextBunsyoNaiyoCD = Content.Fields("ì¬‰ïŽÐCD") & "," & NextBunsyoNaiyoCD	'¬ØŽèE–ñ‘©ŽèŒ`Eˆ×‘ÖŽèŒ`‚̏ꍇ‚͍쐬‰ïŽÐCD‚ð•t‰Ái061124¬–ìj
		End If
	End If

	Do While Not(Content.BOF Or Content.EOF)
		If Content.Fields("•¶‘“à—eCD") = BunsyoNaiyoCD Then
			Content.MoveNext
			If Not(Content.BOF Or Content.EOF) Then
				NextBunsyoNaiyoCD = Content.Fields("•¶‘“à—eCD")
				If BunsyoSyuruiCD = "TY" Or BunsyoSyuruiCD = "TK" Or BunsyoSyuruiCD = "TG" Then
					NextBunsyoNaiyoCD = Content.Fields("ì¬‰ïŽÐCD") & "," & NextBunsyoNaiyoCD	'¬ØŽèE–ñ‘©ŽèŒ`Eˆ×‘ÖŽèŒ`‚̏ꍇ‚͍쐬‰ïŽÐCD‚ð•t‰Ái061124¬–ìj
				End If
			End If
			Exit Do
		End If
		PrevBunsyoNaiyoCD = Content.Fields("•¶‘“à—eCD")
		If BunsyoSyuruiCD = "TY" Or BunsyoSyuruiCD = "TK" Or BunsyoSyuruiCD = "TG" Then
			PrevBunsyoNaiyoCD = Content.Fields("ì¬‰ïŽÐCD") & "," & PrevBunsyoNaiyoCD	'¬ØŽèE–ñ‘©ŽèŒ`Eˆ×‘ÖŽèŒ`‚̏ꍇ‚͍쐬‰ïŽÐCD‚ð•t‰Ái061124¬–ìj
		End If
		Content.MoveNext
	Loop

	If PrevBunsyoNaiyoCD = "" Then
		If Not(Content.BOF Or Content.EOF) Then
			Content.MoveFirst
		End If
		Do While Not(Content.BOF Or Content.EOF)
			PrevBunsyoNaiyoCD = Content.Fields("•¶‘“à—eCD")
			If BunsyoSyuruiCD = "TY" Or BunsyoSyuruiCD = "TK" Or BunsyoSyuruiCD = "TG" Then
				PrevBunsyoNaiyoCD = Content.Fields("ì¬‰ïŽÐCD") & "," & PrevBunsyoNaiyoCD	'¬ØŽèE–ñ‘©ŽèŒ`Eˆ×‘ÖŽèŒ`‚̏ꍇ‚͍쐬‰ïŽÐCD‚ð•t‰Ái061124¬–ìj
			End If
			Content.MoveNext
		Loop
	End If

	If KaisyaMeisyo = "" Then
		KaisyaMeisyo = KaisyaCD
	End If
	If KaisyaRyakuMeisyo = "" Then
		KaisyaRyakuMeisyo = KaisyaCD
	End If
	If GakuseiShimei = "" Then
		GakuseiShimei = GakuseiNo
	End If


%>


<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=shift_jis">
<meta http-equiv="Pragma" content="no-cache">
<meta http-equiv="Cache-Control" content="no-cache">
<meta http-equiv="Expires" content="-1">
<link href="../../binx/sj3web.css?<% = TimeUniq() %>" rel="stylesheet" type="text/css">
<% If 0=1 Then %>
<% '                           ‘¹‰vŒvŽZ‘•ñ‘             ŽóŽæŽèŒ`—š—ð             Žx•¥ŽèŒ`—š—ð %>
<% ElseIf AutoFlg = 1 And (BunsyoSyuruiCD = "LJ" Or BunsyoSyuruiCD = "MH" Or BunsyoSyuruiCD = "MI") Then %>
<link href="../../binx/sj3tyoboblack.css?<% = TimeUniq() %>" rel="stylesheet" type="text/css">
<% '                   ‘¹‰vŒvŽZ‘”Ì”„ŠÇ—”ïˆê——           Œ»‹à“üo‹à—š—ð                          ¤•iÝŒÉ                      (ˆÚ“®•½‹Ï–@)                        (‘•½‹Ï–@)                    —a‹à“üo‹à—š—ð                          “üŒÉŽÀÑ                          oŒÉŽÀÑ %>
<% ElseIf AutoFlg = 1 And (BunsyoSyuruiCD = "LK" Or BunsyoSyuruiCD = "MA" Or Left(BunsyoSyuruiCD, 2) = "MG" Or Left(BunsyoSyuruiCD, 2) = "MJ" Or Left(BunsyoSyuruiCD, 2) = "MK" Or Left(BunsyoSyuruiCD, 2) = "MB" Or Left(BunsyoSyuruiCD, 2) = "MC" Or Left(BunsyoSyuruiCD, 2) = "MD") Then %>
<link href="../../binx/sj3tyoboblack11.css?<% = TimeUniq() %>" rel="stylesheet" type="text/css">
<% '                         Œ»‹ào”[’                             Žd“ü’                             ”„ã’                         ¤•i—L‚’                     “–À—a‹ào”[’                         ”„Š|‹àŒ³’                         ”ƒŠ|‹àŒ³’  %>
<% ElseIf Left(BunsyoSyuruiCD, 2) = "MA" Or Left(BunsyoSyuruiCD, 2) = "MC" Or Left(BunsyoSyuruiCD, 2) = "MD" Or Left(BunsyoSyuruiCD, 2) = "MG" Or Left(BunsyoSyuruiCD, 2) = "MB" Or Left(BunsyoSyuruiCD, 2) = "ME" Or Left(BunsyoSyuruiCD, 2) = "MF" Then %>
<link href="../../binx/sj3tyobored11.css?<% = TimeUniq() %>" rel="stylesheet" type="text/css">
<% '             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 %>
<link href="../../binx/sj3tyobored11.css?<% = TimeUniq() %>" rel="stylesheet" type="text/css">
<% '                     ‡ŒvŽc‚ŽŽŽZ•\                         8Œ…¸ŽZ•\                        Žd–óWŒv•\                            Žd–ó’                         ‘Š¨’茳’                         ‘¹‰vŒvŽZ‘                        ‘ݎؑΏƕ\ %>
<% ElseIf Left(BunsyoSyuruiCD, 2) = "LC" Or Left(BunsyoSyuruiCD, 2) = "LG" Or Left(BunsyoSyuruiCD, 2) = "LB" Or Left(BunsyoSyuruiCD, 2) = "LA" Or Left(BunsyoSyuruiCD, 2) = "LD" Or Left(BunsyoSyuruiCD, 2) = "LF" Or Left(BunsyoSyuruiCD, 2) = "LE" Then %>
<link href="../../binx/sj3tyobored11.css?<% = TimeUniq() %>" rel="stylesheet" type="text/css">
<% '                     ‡ŒvŽc‚ŽŽŽZ•\                         8Œ…¸ŽZ•\                        Žd–óWŒv•\                            Žd–ó’                         ‘Š¨’茳’                         ‘¹‰vŒvŽZ‘                        ‘ݎؑΏƕ\ %>

<% Else %>
<link href="../../binx/sj3tyobored.css?<% = TimeUniq() %>" rel="stylesheet" type="text/css">
<% End If %>
<title><% = AppTitle %></title>
<script language="JavaScript" src="../../include.js?<% = TimeUniq() %>"></script>
<script language="JavaScript" src="../../includesj.js?<% = TimeUniq() %>"></script>
<% If 0=1 Then %>
<script language="JScript.Encode" src="../../include_enc.js?<% = TimeUniq() %>"></script>
<script language="JScript.Encode" src="../../includesj_enc.js?<% = TimeUniq() %>"></script>
<% End If %>
<script type="text/javascript" src="../../javascript.js?<% = TimeUniq() %>"></script>
</head>
<SCRIPT LANGUAGE="JavaScript">
<!--
	HomeAlias = "<% = HomeAlias %>";
	HomeAliasSL = "<% = HomeAliasSL %>";
	ExitFlg = 1;
-->
</SCRIPT>

<body onkeydown="if(ExitFlg==2)ExitFlg=3;" onBeforeUnload="if(ExitFlg!=0)window.event.returnValue = ExitMsg(ExitFlg)" bgcolor="#5C70B6" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<form OnKeyDown="FormKeyDown(this)"	name="form1" method="GET" action="fm_tyohyo.asp" onSubmit="return SubmitCheck();" target="_top">
<input type="hidden" name="HyojiJyoken" value="<% = HyojiJyoken %>">
<input type="hidden" name="Joken" value="<% = Joken %>">
<input type="hidden" name="EnshuChange" value="">

<%
	Response.Write(HtmlDesign(10))

	Response.Write(HttpL1(4))


	If GB_Admin = 2 Then
		Response.Write(HttpL2("‰^—pŠÇ—ƒƒjƒ…[" ,"tblbtn( '/" & HomeAlias & "/admin/admenu_w.asp')", "‘—ވꗗ", "", "", "", "", "", "", "", "", ""))
	Else
		Response.Write(HttpL2("‰^—pŠÇ—ƒƒjƒ…[" ,"tblbtn( '/" & HomeAlias & "/admin/admenu_w.asp')", "‘—ވꗗ", "", "" , "", "", "", "", "", "", ""))
	End If

	Response.Write(HttpL3("","" ,"", "", "", "", "", "", "", "", "", "", "", "", "", ""))

'	Response.Write(HttpL3_1("ˆóü", "PrintoutReal()", "", "", "", "", "", "", "", ""))
	If PackageMode = 1 Then
		Response.Write(HttpL3_1("ˆóü", "PrintoutReal()", "&nbsp;ì¬‘—ޏWŒvˆê——&nbsp;", "tblbtn('fm_tyohyo_ichiran.asp?EnshuCD=" & EnshuCD & "&GakuseiNo=" & GakuseiNo & "&KaisyaCD=" & SakuseiKaisyaCD & "&BunsyoSyuruiCD=" & BunsyoSyuruiCD & "&Joken=" & Joken & "')", "&nbsp;’ •[ˆêŠ‡ˆóü&nbsp;", "tblbtn('fm_print_ikkatsu.asp');", "", "", "", ""))
	Else
		Response.Write(HttpL3_1("ˆóü", "PrintoutReal()", "&nbsp;ì¬‘—ޏWŒvˆê——&nbsp;", "tblbtn('fm_tyohyo_ichiran.asp?EnshuCD=" & EnshuCD & "&GakuseiNo=" & GakuseiNo & "&KaisyaCD=" & SakuseiKaisyaCD & "&BunsyoSyuruiCD=" & BunsyoSyuruiCD & "&Joken=" & Joken & "')", "&nbsp;’ •[ˆêŠ‡ˆóü&nbsp;", "tblbtn('fm_print_ikkatsu.asp');", "‘—Mƒ[ƒ‹ˆê——", "tblbtn('fm_mail_ichiran.asp?EnshuCD=" & EnshuCD & "')", "", ""))
	End If

	Response.Write(HttpL3_2("", "", "", "", "", "", "", "", "", ""))

	Response.Write(HttpL4("‘—ވꗗ", ""))

	Response.Write(HttpL5(ErrMsg))

%>
<%
	If EnshuCD <> "" And KaisyaCD <> "" And GakuseiNo <> "" And BunsyoSyuruiCD <> "" Then	'ˆóüƒ{ƒ^ƒ“•\Ž¦‚ððŒ•ªŠòi061214¬–ìj
		If BunsyoSyuruiCD = "LA" Or BunsyoSyuruiCD = "LC" Or BunsyoSyuruiCD = "LG" Or BunsyoSyuruiCD = "LE" Or BunsyoSyuruiCD = "LF" Or BunsyoSyuruiCD = "MA" Or BunsyoSyuruiCD = "MC" Or BunsyoSyuruiCD = "MD" Or BunsyoSyuruiCD = "MH" Or BunsyoSyuruiCD = "MI" Or BunsyoSyuruiCD = "LI" Or BunsyoSyuruiCD = "LJ" Or BunsyoSyuruiCD = "LK" Or BunsyoSyuruiCD = "AA" Or BunsyoSyuruiCD = "AB" Or BunsyoSyuruiCD = "AC" Or BunsyoSyuruiCD = "AD" Or BunsyoSyuruiCD = "AE" Or BunsyoSyuruiCD = "AF" Or BunsyoSyuruiCD = "AG" Or BunsyoSyuruiCD = "AH" Or BunsyoSyuruiCD = "AI" Or BunsyoNaiyoCD <> "" Then
%>
<div id="L3_1" style="position:absolute; visibility: hidden; left: 0px; top: 0px;">
<table width="70" border="0" cellpadding="0" cellspacing="0" background="/<% = HomeAlias %>/images/mwbtn_02_1.gif">
	<tr>
		<td nowrap height="30" align="center" class="tbtn2" onClick="SubmitFlg=0;PrintoutReal();" onMouseOver="if(SubmitFlg!=0){this.focus();}">ˆóü</td>
	</tr>
</table>
<%
		End If
	End If
%>

</div>

<div id="L0" style="position: absolute; visibility: hidden; left: 0px; top: -2000px;">

<table width="690" height="100%" border="0" cellpadding="0" cellspacing="5">
	<tr>
		<td align="center" valign="top" height="45">
			<TABLE WIDTH="670" BORDER="1" CELLPADDING="0" CELLSPACING="0" BORDERCOLOR="#000000" BGCOLOR="#FFFFCC" CLASS="tx1416" STYLE="border-collapse: collapse">
				<TR ALIGN="CENTER">
					<TD HEIGHT="25" valign="middle">‘Ώۉ‰K–¼</TD>
				<% If EnshuKubunmei = "P" Then %>
					<TD HEIGHT="25" valign="middle">
						<a href="#" onClick="tblbtn('fm_tyohyo.asp?EnshuCD=<% = EnshuCD %>&GakuseiNo=<% = PrevGakuseiNo %>&KaisyaCD=<% = KaisyaSelect %>&BunsyoSyuruiCD=<% = BunsyoSyuruiCD %>,<% = AutoFlg %>&BunsyoNaiyoCD=<% = BunsyoNaiyoCD %>');">©</a>
						@¶“k@
						<a href="#" onClick="tblbtn('fm_tyohyo.asp?EnshuCD=<% = EnshuCD %>&GakuseiNo=<% = NextGakuseiNo %>&KaisyaCD=<% = KaisyaSelect %>&BunsyoSyuruiCD=<% = BunsyoSyuruiCD %>,<% = AutoFlg %>&BunsyoNaiyoCD=<% = BunsyoNaiyoCD %>');">¨</a>
					</TD>
				<% End If %>
					<TD HEIGHT="25" valign="middle">
					<% If PackageMode = 1 Then 'ƒTƒCƒo[‰ïŒv‚Å‚ÍŽ©ŽÐ‚Ì‚Ý•\Ž¦i091015¬–ìj%>
						@‰ïŽÐ–¼@
					<% Else %>
						<a href="#" onClick="tblbtn('fm_tyohyo.asp?EnshuCD=<% = EnshuCD %>&GakuseiNo=<% = GakuseiNo %>&KaisyaCD=<% = PrevKaisyaCD %>&BunsyoSyuruiCD=<% = BunsyoSyuruiCD %>,<% = AutoFlg %>&BunsyoNaiyoCD=<% = BunsyoNaiyoCD %>');">©</a>
						@‰ïŽÐ–¼@
						<a href="#" onClick="tblbtn('fm_tyohyo.asp?EnshuCD=<% = EnshuCD %>&GakuseiNo=<% = GakuseiNo %>&KaisyaCD=<% = NextKaisyaCD %>&BunsyoSyuruiCD=<% = BunsyoSyuruiCD %>,<% = AutoFlg %>&BunsyoNaiyoCD=<% = BunsyoNaiyoCD %>');">¨</a>
					<% End If %>
					</TD>
					<TD HEIGHT="25" valign="middle">
						<a href="#" onClick="tblbtn('fm_tyohyo.asp?EnshuCD=<% = EnshuCD %>&GakuseiNo=<% = GakuseiNo %>&KaisyaCD=<% = KaisyaSelect %>&BunsyoSyuruiCD=<% = PrevBunsyoSyuruiCD %>,<% = PrevAutoFlg %>');">©</a>
						@•¶‘–¼@
						<a href="#" onClick="tblbtn('fm_tyohyo.asp?EnshuCD=<% = EnshuCD %>&GakuseiNo=<% = GakuseiNo %>&KaisyaCD=<% = KaisyaSelect %>&BunsyoSyuruiCD=<% = NextBunsyoSyuruiCD %>,<% = NextAutoFlg %>');">¨</a>
					</TD>
					<TD HEIGHT="25" valign="middle">
						<a href="#" onClick="tblbtn('fm_tyohyo.asp?EnshuCD=<% = EnshuCD %>&GakuseiNo=<% = GakuseiNo %>&KaisyaCD=<% = KaisyaSelect %>&BunsyoSyuruiCD=<% = BunsyoSyuruiCD %>,<% = AutoFlg %>&BunsyoNaiyoCD=<% = PrevBunsyoNaiyoCD %>');">©</a>
						@“à—e@
						<a href="#" onClick="tblbtn('fm_tyohyo.asp?EnshuCD=<% = EnshuCD %>&GakuseiNo=<% = GakuseiNo %>&KaisyaCD=<% = KaisyaSelect %>&BunsyoSyuruiCD=<% = BunsyoSyuruiCD %>,<% = AutoFlg %>&BunsyoNaiyoCD=<% = NextBunsyoNaiyoCD %>');">¨</a>
					</TD>

				</TR>
				<TR ALIGN="CENTER">
					<TD height="20" valign="middle">
						<% If GB_Admin = 2 Then %>
							<input type="hidden" name="EnshuCD" value="<% = EnshuCD %>">
							<% = EnshuMeisyo %>
						<% Else %>
							<select size="1" name="EnshuCD" onChange="form1.EnshuChange.value='1';SetSyokaiList(0);">
							<option value="">ƒƒ ‘Ώۉ‰K‚ð‘I‘ð‚µ‚Ä‰º‚³‚¢ „„</option>
						<%
							Query = "exec SPM‰‰Kˆê—— '" & GB_SystemCD & "', 4"
							Set Content = OpenQuery(Query)

								Do While Not(Content.BOF Or Content.EOF)
									If (PackageMode = 1 And "" & Content.Fields("ƒpƒbƒP[ƒW‹æ•ª") = "CA") Or (PackageMode = 0 And "" & Content.Fields("ƒpƒbƒP[ƒW‹æ•ª") <> "CA") Then
																		'H‹Æ•ë‹L‰‰K‚Í5ˆÈã‚Å•\Ž¦
									If "" & Content.Fields("‰‰KCD") <> "SYS00006" Or MajorVersion >= 5 Then
										Response.Write("<option value=""" & Content.Fields("‰‰KCD") & """")
										If Content.Fields("‰‰KCD") = EnshuCD Then
											Response.Write(" selected")
										End If
										Response.Write(">" & Content.Fields("‰‰K–¼Ì") & "</option>" & vbCrLf)
									End If
									End If
									Content.MoveNext
								Loop
							%>
						</select>
					<% End If %>
					</TD>
<% If EnshuKubunmei = "P" Then %>
					<TD height="20" valign="middle">
						<select size="1" name="GakuseiNo" onChange="SetSyokaiList(0);">
							<option value="">‘I‘ð‚µ‚Ä‰º‚³‚¢</option>
							<%
'								Query = "exec SPM‰‰K‘I‘ðƒ†[ƒU[ˆê—— '" & GB_SystemCD & "','" & EnshuCD & "'"
								'ŽQ‰Á‚µ‚½‚±‚Æ‚Ì‚ ‚郆[ƒU[‚ð•\Ž¦‚·‚éi100907¬–ìj
								Query = "exec SPM‰‰K‰ïŽÐ—š—ð '" & GB_SystemCD & "', '" & EnshuCD & "', 1"	'ƒ\[ƒg‹æ•ªŽw’è
								Set Content = OpenQuery(Query)
								Do While Not(Content.BOF Or Content.EOF)
										Response.Write("<option value=""" & Content.Fields("Šw¶”ԍ†") & """")
										If Content.Fields("Šw¶”ԍ†") = GakuseiNo Then
																				Response.Write(" selected")
										End If
										Response.Write(">" & Content.Fields("Ž–¼") & "</option>" & vbCrLf)
									Content.MoveNext
								Loop
							%>
						</select>
					</TD>
<% End If %>
					<TD height="20" valign="middle">
						<select size="1" name="KaisyaCD" onChange="SetSyokaiList(0);">
							<option value="">‘I‘ð‚µ‚Ä‰º‚³‚¢</option>
							<%
								Query = "exec SPM‰ïŽÐ‘S•”ˆê—— '" & GB_SystemCD & "', '" & EnshuCD & "', '" & GakuseiNo & "'"
								Set Content = OpenQuery(Query)
								Do While Not(Content.BOF Or Content.EOF)
									'ƒTƒCƒo[‰ïŒv‚Å‚ÍŽ©ŽÐ‚Ì‚Ý•\Ž¦i091015¬–ìj
									If PackageMode <> 1 Or (PackageMode = 1 And "" & Content.Fields("Ž©ŽÐƒtƒ‰ƒO") = "1") Then
										Response.Write("<option value=""" & Content.Fields("‰ïŽÐCD") & """")
										If Content.Fields("‰ïŽÐCD") = KaisyaSelect Then
											Response.Write(" selected")
										End If
										Response.Write(">" & Content.Fields("‰ïŽÐ—ª–¼Ì") & "</option>" & vbCrLf)
									End If
									Content.MoveNext
								Loop
							%>
						</select>
					</TD>
					<TD height="20" valign="middle">
						<select size="1" name="BunsyoSyuruiCD" onChange="SetSyokaiList(1);">
							<option value="">‘I‘ð‚µ‚Ä‰º‚³‚¢</option>
							<%
								Query = "exec SPR•¶‘Ží—ވꗗ '" & GB_SystemCD & "'"
								Set Content = OpenQuery(Query)
								Do While Not(Content.BOF Or Content.EOF)
									'—˜—p“`•[”‚Å‚Ì“`•[œŠOðŒ
									If (RiyoDenpyoSu < 3 And (Content.Fields("•¶‘Ží—ÞCD") = "D1" Or Content.Fields("•¶‘Ží—ÞCD") = "D2")) Or (RiyoDenpyoSu < 5 And (Content.Fields("•¶‘Ží—ÞCD") = "D3" Or Content.Fields("•¶‘Ží—ÞCD") = "D4")) Or (RiyoDenpyoSu < 1 And Content.Fields("•¶‘Ží—ÞCD") = "D5") Then
									'ƒTƒCƒo[‰ïŒvƒ‚[ƒh‚Å‚ÌŽd–ó’ ƒgƒOƒ‹iŽè“®Žd–ó’ ‚ªŽ©“®ˆµ‚¢‚É‚È‚é‚Ì‚Å•\Ž¦”ñ•\Ž¦‚̐ؑւ݂̂ÅOKBŽ©“®Žd–ó’ ‚ÍŽè“®Žd–ó’ ‚Ì‹tðŒj
									ElseIf PackageMode = "1" And ((RiyoDenpyoSu > 0 And Content.Fields("•¶‘Ží—ÞCD") = "LA" And Content.Fields("Ž©“®ƒtƒ‰ƒO") = "0") Or (RiyoDenpyoSu < 1 And Content.Fields("•¶‘Ží—ÞCD") = "LA" And Content.Fields("Ž©“®ƒtƒ‰ƒO") = "1")) Then
									'ƒTƒCƒo[‰ïŒvƒ‚[ƒh‚Å‚Ì‹@”\œŠOðŒ
									ElseIf PackageMode = "1" And (Left(Content.Fields("•¶‘Ží—ÞCD"), 1) = "B" Or Left(Content.Fields("•¶‘Ží—ÞCD"), 1) = "C" Or Left(Content.Fields("•¶‘Ží—ÞCD"), 1) = "K" Or Left(Content.Fields("•¶‘Ží—ÞCD"), 1) = "S" Or Left(Content.Fields("•¶‘Ží—ÞCD"), 1) = "T" Or Left(Content.Fields("•¶‘Ží—ÞCD"), 1) = "R" Or Left(Content.Fields("•¶‘–¼Ì"), 2) = "¤•i" Or Right(Content.Fields("•¶‘–¼Ì"), 2) = "—š—ð" Or Right(Content.Fields("•¶‘–¼Ì"), 2) = "ŽÀÑ") Then
									'»‘¢•””ñ—˜—pŽž‚̏œŠOðŒ
									ElseIf SeizobuRiyo <> "1" And (Content.Fields("•¶‘Ží—ÞCD") = "ZS" Or Content.Fields("•¶‘Ží—ÞCD") = "MU" Or Content.Fields("•¶‘Ží—ÞCD") = "D7" Or Content.Fields("•¶‘Ží—ÞCD") = "D8") Then
									'ƒƒWƒƒ[ƒo[ƒWƒ‡ƒ“‚ł̏œŠO”»’è                        'Žc‚Ø–¾ˆË—Š‘                         'Žc‚Ø–¾‘
									ElseIf MajorVersion < 5 And (Content.Fields("•¶‘Ží—ÞCD") = "BH" Or Content.Fields("•¶‘Ží—ÞCD") = "BU") Then
									Else
										If Content.Fields("•¶‘Ží—ÞCD") <> "CA" And Left(Content.Fields("•¶‘Ží—ÞCD"),1) <> "X" Then	'Œ_–ñ‘‚͏œŠO
											Response.Write("<option value=""" & Content.Fields("•¶‘Ží—ÞCD") & "," & Content.Fields("Ž©“®ƒtƒ‰ƒO") & """")
											If Content.Fields("•¶‘Ží—ÞCD") = BunsyoSyuruiCD And Content.Fields("Ž©“®ƒtƒ‰ƒO") = AutoFlg Then
												Addr = Content.Fields("ƒAƒhƒŒƒX")
												AutoFlg = Content.Fields("Ž©“®ƒtƒ‰ƒO")
												Response.Write(" selected")
											End If
											BunsyoMeisyo = Content.Fields("•¶‘–¼Ì") 
											Response.Write(">" & BunsyoMeisyo & "</option>" & vbCrLf)
										End If
									End If
									Content.MoveNext
								Loop
							%>
						</select>
					</TD>
					<TD height="20" valign="middle">
						<select size="1" name="BunsyoNaiyoCD" onChange="SetSyokaiList(0);">
							<% If BunsyoSyuruiCD = "LC" And AutoFlg = "1" Then %>
							<option value="">ŒˆŽZ®—‘O</option>
							<option value="1"<% If BunsyoNaiyoCD = "1" Then %> selected<% End If %>>ŒˆŽZ®—Œã</option>
							<option value="2"<% If BunsyoNaiyoCD = "2" Then %> selected<% End If %>>ŒˆŽZU‘ÖŒã</option>
							<% ElseIf (BunsyoSyuruiCD = "LE" Or BunsyoSyuruiCD = "LF" Or BunsyoSyuruiCD = "LG") And AutoFlg = "1" Then %>
							<option value="">ŒˆŽZ®—‚Ü‚Å</option>
							<option value="1"<% If BunsyoNaiyoCD = "1" Then %> selected<% End If %>>ŒˆŽZU‘ÖŒã</option>
							<% ElseIf (BunsyoSyuruiCD = "AB" Or BunsyoSyuruiCD = "AC" Or BunsyoSyuruiCD = "AD") Then %>
							<option value="">‘I‘ð‚µ‚Ä‰º‚³‚¢</option>
							<%
								Query = "exec SPM‰ïŽÐ‘S•”ˆê—— '" & GB_SystemCD & "','" & EnshuCD & "','" & GakuseiNo & "'"
								Set Content = OpenQuery(Query)
								Do While Not(Content.BOF Or Content.EOF)
									'ƒTƒCƒo[‰ïŒvƒ‚[ƒh‚Å‚Í‘S‰ïŽÐ‚ð•\Ž¦
									If PackageMode = 1 Or ((BunsyoSyuruiCD = "AB" And Content.Fields("‹ÆŽíCD") = "B") Or (BunsyoSyuruiCD <> "AB" And Content.Fields("‹ÆŽíCD") <> "B")) Then
										Response.Write("<option value=""" & Content.Fields("‰ïŽÐCD") & """")
										If Content.Fields("‰ïŽÐCD") = BunsyoNaiyoCD Then
											Response.Write(" selected")
										End If
										Response.Write(">" & Content.Fields("‰ïŽÐ–¼Ì") & "</option>" & vbCrLf)
									End If
									Content.MoveNext
								Loop
							%>
							<% Else %>
							<option value="">‘I‘ð‚µ‚Ä‰º‚³‚¢</option>
							<% End If %>
							<%
								Query = "exec SPR•¶‘”ԍ†ˆê—— '" & GB_SystemCD & "', '" & EnshuCD & "', '" & KaisyaCD & "', '" & KaisyaCD & "', '" & BunsyoSyuruiCD & "', '" & AutoFlg & "', '" & GakuseiNo & "'"
								Set Content = OpenQuery(Query)
								Do While Not(Content.BOF Or Content.EOF)
									Response.Write("<option value=""" & Content.Fields("ì¬‰ïŽÐCD") & "," & Content.Fields("•¶‘“à—eCD") & """")
									If BunsyoSyuruiCD = "TY" Or BunsyoSyuruiCD = "TK" Or BunsyoSyuruiCD = "TG" Then
										If Content.Fields("•¶‘“à—eCD") = BunsyoNaiyoCD Then	'¬ØŽèE–ñ‘©ŽèŒ`Eˆ×‘ÖŽèŒ`‚̏ꍇ‚͍쐬‰ïŽÐCD‚ªˆÙ‚È‚Á‚Ä‚àselected‚³‚¹‚éi061124¬–ìj
											Response.Write(" selected")
										End If
									Else
										If Content.Fields("ì¬‰ïŽÐCD") = SakuseiKaisyaCD AND Content.Fields("•¶‘“à—eCD") = BunsyoNaiyoCD Then
											Response.Write(" selected")
										End If
									End If
									Response.Write(">")
									If Content.Fields("ì¬‰ïŽÐ–¼Ì") <> "" Then
										Response.Write(Content.Fields("ì¬‰ïŽÐ–¼Ì"))
										Response.Write(",")
									End If
									Response.Write(Content.Fields("•¶‘“à—e–¼Ì") & "</option>" & vbCrLf)
									Content.MoveNext
								Loop
							%>
						</select>
					</TD>
				</TR>
			</table>
		</td>
	</tr>

<%
	Dim Kaishibi
	Dim Syuryobi
	Kaishibi = Request("Kaishibi")
	Syuryobi = Request("Syuryobi")
	If Kaishibi = "" Then
		Kaishibi = GB_KaikeiKaishibi
	End If
	If Syuryobi = "" Then
		Syuryobi = GB_KaikeiSyuryobi
	End If
 	'‡ŒvŽc‚ŽŽŽZ•\E‘¹‰vŒvŽZ‘‚Ì‚½‚ß‚ÌFromToŽw’è
	If BunsyoSyuruiCD = "LC" Or BunsyoSyuruiCD = "LF" Then %>
	<tr>
		<td height="30" align="center">
			<TABLE BORDER="0" CELLSPACING="0" style="border:1px solid #000000">
				<TR>
					<TD ALIGN="CENTER" BACKGROUND="/<% = HomeAlias %>/images/window_bk.gif?<% = GB_STU %>">
						<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" class="tx1416">
							<tr>
								<td>

									<table height="30" border="0" cellpadding="0" cellspacing="0" class="tx1416">
										<tr>
											<td>
												<table height="30" border="0" cellpadding="0" cellspacing="0" class="tx1416">
													<tr>
														<td>&nbsp;WŒv“úF</td>
														<td><input type="text" name="Kaishibi" size="12" value="<% = Kaishibi %>" onBlur="SetDate(this, 1, true)" class="tbox4"> ` <input type="text" name="Syuryobi" size="12" value="<% = Syuryobi %>" onBlur="SetDate(this, 1, true)" class="tbox4"></td>
													</tr>
												</table>
											</td>
											<td width="1">&nbsp;</td>
											<td>
												<TABLE onClick="SetSyokaiList(0);" BORDER="0" CELLSPACING="0" CELLPADDING="0" HEIGHT="30" BGCOLOR="#33CCFF" CLASS="tbtn1" WIDTH="80">
													<TR>
														<TD WIDTH="10" BACKGROUND="/<% = HomeAlias %>/images/dlogbtn_bl.gif?<% = GB_STU %>">@</TD>
														<TD ALIGN="CENTER" VALIGN="MIDDLE" BACKGROUND="/<% = HomeAlias %>/images/dlogbtn_bc.gif?<% = GB_STU %>" WIDTH="60">XV</TD>
														<TD WIDTH="10" BACKGROUND="/<% = HomeAlias %>/images/dlogbtn_br.gif?<% = GB_STU %>">@</TD>
													</TR>
												</TABLE>
											</td>
										</tr>
									</table>
								</td>
							</tr>
						</table>

					</td>
				</tr>
			</table>
		</td>
	</tr>
<%
 	'”ªŒ…¸ŽZ•\E‘ݎؑΏƕ\‚Ì‚½‚ß‚ÌToŽw’è
	ElseIf BunsyoSyuruiCD = "LG" Or BunsyoSyuruiCD = "LE" Then
%>
	<tr>
		<td height="30" align="center">
			<TABLE BORDER="0" CELLSPACING="0" style="border:1px solid #000000">
				<TR>
					<TD ALIGN="CENTER" BACKGROUND="/<% = HomeAlias %>/images/window_bk.gif?<% = GB_STU %>">
						<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" class="tx1416">
							<tr>
								<td>

									<table height="30" border="0" cellpadding="0" cellspacing="0" class="tx1416">
										<tr>
											<td>
												<table height="30" border="0" cellpadding="0" cellspacing="0" class="tx1416">
													<tr>
														<td>&nbsp;“ú•tF</td>
														<td><input type="text" name="Syuryobi" size="12" value="<% = Syuryobi %>" onBlur="SetDate(this, 1, true)" class="tbox4"></td>
													</tr>
												</table>
											</td>
											<td width="1">&nbsp;</td>
											<td>
												<TABLE onClick="SetSyokaiList(0);" BORDER="0" CELLSPACING="0" CELLPADDING="0" HEIGHT="30" BGCOLOR="#33CCFF" CLASS="tbtn1" WIDTH="80">
													<TR>
														<TD WIDTH="10" BACKGROUND="/<% = HomeAlias %>/images/dlogbtn_bl.gif?<% = GB_STU %>">@</TD>
														<TD ALIGN="CENTER" VALIGN="MIDDLE" BACKGROUND="/<% = HomeAlias %>/images/dlogbtn_bc.gif?<% = GB_STU %>" WIDTH="60">XV</TD>
														<TD WIDTH="10" BACKGROUND="/<% = HomeAlias %>/images/dlogbtn_br.gif?<% = GB_STU %>">@</TD>
													</TR>
												</TABLE>
											</td>
										</tr>
									</table>
								</td>
							</tr>
						</table>

					</td>
				</tr>
			</table>
		</td>
	</tr>
	<input type="hidden" name="Kaishibi" value="<% = Kaishibi %>">
<% Else %>
	<input type="hidden" name="Kaishibi" value="<% = Kaishibi %>">
	<input type="hidden" name="Syuryobi" value="<% = Syuryobi %>">
<% End If %>

	<tr>
		<td align="center"><% 



'Response.Write("Ÿ" & BunsyoSyuruiCD & "<br>")

			Select Case BunsyoSyuruiCD
				Case "KI", "KM", "KC", "KU", "KB", "KN", "KX", "KO", "KY", "KW", "KV", "KP"
					Response.Write(ShiireUriageSyorui(              EnshuCD, KaisyaCD, SakuseiKaisyaCD, BunsyoSyuruiCD, BunsyoNaiyoCD, 0, 0, 0))
				Case "BA","BB","BC","BD","BE","BF","BG","BH"
					Response.Write(GinkoSyorui(                     EnshuCD, KaisyaCD, SakuseiKaisyaCD, BunsyoSyuruiCD, BunsyoNaiyoCD, 0, 0))
				Case "BN","BO","BP","BQ","BR","BS","BT","BU"
					Response.Write(GinkoUketsukeSyorui(             EnshuCD, KaisyaCD, SakuseiKaisyaCD, BunsyoSyuruiCD, BunsyoNaiyoCD, 0, 0))
				Case "TG","TK","TY"
					Response.Write(Tegata(                          EnshuCD, KaisyaCD, SakuseiKaisyaCD, BunsyoSyuruiCD, BunsyoNaiyoCD, 0, 0))
				Case "CA","CB","CC"
					Response.Write(UnsoSyorui(                      EnshuCD, KaisyaCD, SakuseiKaisyaCD, BunsyoSyuruiCD, BunsyoNaiyoCD, 0, 0))
				Case "CD"
					Response.Write(UnsoSeikyuSyorui(                EnshuCD, KaisyaCD, SakuseiKaisyaCD, BunsyoSyuruiCD, BunsyoNaiyoCD, 0, 0))
				Case "D1", "D2"
					Response.Write(DenpyoNyusyukin(                 EnshuCD, KaisyaCD, SakuseiKaisyaCD, BunsyoSyuruiCD, BunsyoNaiyoCD, 0, 0))
				Case "D3", "D4"
					Response.Write(DenpyoShiireUriage(              EnshuCD, KaisyaCD, SakuseiKaisyaCD, BunsyoSyuruiCD, BunsyoNaiyoCD, 0, 0))
				Case "D5"
					Response.Write(DenpyoFurikae(                   EnshuCD, KaisyaCD, SakuseiKaisyaCD, BunsyoSyuruiCD, BunsyoNaiyoCD, 0, 0))
				Case "LA"
					If InputShiwaketyoKyuVersionRiyo = 1 Then
						Response.Write(TyoboShiwakenikkityo(            EnshuCD, KaisyaCD, SakuseiKaisyaCD, BunsyoSyuruiCD, BunsyoNaiyoCD, AutoFlg, 0, "", "", ""))
					Else
						Response.Write(TyoboShiwaketyo(            EnshuCD, KaisyaCD, SakuseiKaisyaCD, BunsyoSyuruiCD, BunsyoNaiyoCD, AutoFlg, 0, "", "", ""))
					End If
				Case "LB"
					Response.Write(TyoboShiwakeSyukeihyo(           EnshuCD, KaisyaCD, SakuseiKaisyaCD, BunsyoSyuruiCD, BunsyoNaiyoCD, AutoFlg, 0, "", "", ""))
				Case "LC"
					Dim FromTo
					FromTo = Syuryobi
					If Kaishibi <> "" Then
						FromTo = Kaishibi & ";" & FromTo
					End If
																																							'ŒˆŽZƒtƒ‰ƒO
					Response.Write(TyoboGokeiZandakaShisanhyo(      EnshuCD, KaisyaCD, SakuseiKaisyaCD, BunsyoSyuruiCD, BunsyoNaiyoCD, AutoFlg, 0, FromTo, BunsyoNaiyoCD, ""))
				Case "LD"
					If GetEnshuParam(EnshuCD, "‘Š¨’茳’ •W€Ž®—˜—p") = "1" Then
						Response.Write(TyoboSokanjyoMototyoH(          EnshuCD, KaisyaCD, SakuseiKaisyaCD, BunsyoSyuruiCD, BunsyoNaiyoCD, AutoFlg, 0, "", "", ""))
					Else
						Response.Write(TyoboSokanjyoMototyo(           EnshuCD, KaisyaCD, SakuseiKaisyaCD, BunsyoSyuruiCD, BunsyoNaiyoCD, AutoFlg, 0, "", "", ""))
					End If
				Case "LE"																																'To			'ŒˆŽZƒtƒ‰ƒO
					Response.Write(TyoboTaisyakuTaisyohyo(           EnshuCD, KaisyaCD, SakuseiKaisyaCD, BunsyoSyuruiCD, BunsyoNaiyoCD, AutoFlg, 0, "", Syuryobi, BunsyoNaiyoCD))
				Case "LF"																															'From		'To			'ŒˆŽZƒtƒ‰ƒO
					Response.Write(TyoboSonekiKeisansyo(             EnshuCD, KaisyaCD, SakuseiKaisyaCD, BunsyoSyuruiCD, BunsyoNaiyoCD, AutoFlg, 0, Kaishibi, Syuryobi, "", BunsyoNaiyoCD))
				Case "LG"																															'To			'ŒˆŽZƒtƒ‰ƒO
					Response.Write(TyoboHachiketaSeisanhyo(          EnshuCD, KaisyaCD, SakuseiKaisyaCD, BunsyoSyuruiCD, BunsyoNaiyoCD, AutoFlg, 0, Syuryobi, BunsyoNaiyoCD, ""))
				Case "LI"
					Response.Write(TyoboTaisyakuTaisyohyoHokokusyo(  EnshuCD, KaisyaCD, SakuseiKaisyaCD, BunsyoSyuruiCD, BunsyoNaiyoCD, AutoFlg, 0, "", "", ""))
				Case "LJ"
					Response.Write(TyoboSonekiKeisansyoHokokusyo(    EnshuCD, KaisyaCD, SakuseiKaisyaCD, BunsyoSyuruiCD, BunsyoNaiyoCD, AutoFlg, 0, "", "", ""))
				Case "LK"
					Response.Write(TyoboSonekiKeisansyoHanbaiKanrihi(EnshuCD, KaisyaCD, SakuseiKaisyaCD, BunsyoSyuruiCD, BunsyoNaiyoCD, AutoFlg, 0, "", "", ""))
				Case "MA"
					Response.Write(HojyoboGenkinSuitohyo(            EnshuCD, KaisyaCD, SakuseiKaisyaCD, BunsyoSyuruiCD, BunsyoNaiyoCD, AutoFlg, 0))
				Case "MB"
					Response.Write(HojyoboTozaYokinSuitohyo(         EnshuCD, KaisyaCD, SakuseiKaisyaCD, BunsyoSyuruiCD, BunsyoNaiyoCD, AutoFlg, 0, "", "", ""))
				Case "MC", "MD"
					Response.Write(HojyoboShiireUriagetyo(           EnshuCD, KaisyaCD, SakuseiKaisyaCD, BunsyoSyuruiCD, BunsyoNaiyoCD, AutoFlg, 0))
				Case "ME", "MF"
					Response.Write(HojyoboUrikaikakekintyo(          EnshuCD, KaisyaCD, SakuseiKaisyaCD, BunsyoSyuruiCD, BunsyoNaiyoCD, "", AutoFlg, 0))
				Case "MG", "MJ", "MK"
					Response.Write(HojyoboSyohinAridakatyo(          EnshuCD, KaisyaCD, SakuseiKaisyaCD, BunsyoSyuruiCD, BunsyoNaiyoCD, AutoFlg, 0, "", "", ""))
				Case "MH", "MI"
					Response.Write(HojyoboUketoriShiharaiTegatatyo(  EnshuCD, KaisyaCD, SakuseiKaisyaCD, BunsyoSyuruiCD, BunsyoNaiyoCD, AutoFlg, 0))
				Case "RA"
					Response.Write(Ryosyusyo(                        EnshuCD, KaisyaCD, SakuseiKaisyaCD, BunsyoSyuruiCD, BunsyoNaiyoCD, 0, 0))
				Case "SC", "SS", "SU", "SX", "SY"
					Response.Write(Nyusyukko(                        EnshuCD, KaisyaCD, SakuseiKaisyaCD, BunsyoSyuruiCD, BunsyoNaiyoCD, AutoFlg, 0))

	'Œ»‹ào”[’ 
	Case "AA"
		Response.Write(HojyoboGenkinSuitohyo(EnshuCD, KaisyaCD, KaisyaCD, "MA", "", 2, 0))
	'“–À—a‹ào”[’ 
	Case "AB"
		Response.Write(HojyoboTozaYokinSuitohyo(EnshuCD, KaisyaCD, KaisyaCD, "MB", BunsyoNaiyoCD, 2, 0, "", "", ""))
	'”„Š|‹àŒ³’ 
	Case "AC"
		Response.Write(HojyoboUrikaikakekintyo(EnshuCD, KaisyaCD, KaisyaCD, "ME", BunsyoNaiyoCD, "", 2, 0))
	'”ƒŠ|‹àŒ³’ 
	Case "AD"
		Response.Write(HojyoboUrikaikakekintyo(EnshuCD, KaisyaCD, KaisyaCD, "MF", BunsyoNaiyoCD, "", 2, 0))
	'ŽóŽæŽèŒ`‹L“ü’ 
	Case "AE"
		Response.Write(HojyoboUketoriShiharaiTegatatyo(EnshuCD, KaisyaCD, KaisyaCD, "MH", "", 2, 0))
	'Žx•¥ŽèŒ`‹L“ü’ 
	Case "AF"
		Response.Write(HojyoboUketoriShiharaiTegatatyo(EnshuCD, KaisyaCD, KaisyaCD, "MI", "", 2, 0))
	'”„ã’ 
	Case "AG"
		Response.Write(HojyoboShiireUriagetyo(EnshuCD, KaisyaCD, KaisyaCD, "MD", "", 2, 0))
	'Žd“ü’ 
	Case "AH"
		Response.Write(HojyoboShiireUriagetyo(EnshuCD, KaisyaCD, KaisyaCD, "MC", "", 2, 0))
	'¤•i—L‚’ 
	Case "AI"

				'»‘¢•”
				Case "ZS", "MU"
					Response.Write(Nyusyukko(                        EnshuCD, KaisyaCD, SakuseiKaisyaCD, BunsyoSyuruiCD, BunsyoNaiyoCD, AutoFlg, 0))
				Case "D7"
					Response.Write(DenpyoZairyoShiire(               EnshuCD, KaisyaCD, SakuseiKaisyaCD, BunsyoSyuruiCD, BunsyoNaiyoCD, 0, 0))
				Case "D8"
					Response.Write(DenpyoFurikae(                    EnshuCD, KaisyaCD, SakuseiKaisyaCD, BunsyoSyuruiCD, BunsyoNaiyoCD, 0, 0))

				Case Else
				End Select


		 %>
		</td>
	</tr>

</table>
</div>
</form>
<SCRIPT LANGUAGE="JavaScript">
	function SetSyokaiList(iFlg) {
		if (iFlg == 1) {
			form1.BunsyoNaiyoCD.value = "";
		}
		if (form1.EnshuCD.value == "") {
			alert("‘Ώۉ‰KƒR[ƒh‚ð‘I‘ð‚µ‚Ä‰º‚³‚¢");
			return false;
		}
		SubmitReal(form1);
		return false;
	}
</script>
</body>
<SCRIPT LANGUAGE="JavaScript">

function GetKaikeiKaishibi(){return '<% = GB_KaikeiKaishibi %>';}

function GetKaikeiSyuryobi(){return '<% = GB_KaikeiSyuryobi %>';}

</SCRIPT>
<SCRIPT LANGUAGE="JavaScript">
	Init();
</SCRIPT>
</html>
<%
End Sub
%>