<%


'スプレッドシート風フォーム行出力(引数はグローバル変数で指定)
'※列数を拡張できるよう引数はグローバル変数を利用する。
'※textフォームは幅自動補正(includesj.jsのInit関数)の処理対象から外すためすべてsize="1"指定。
'初期空行(各モジュール側で参照する変数)
Dim SpBlankRow
SpBlankRow = 25
'SpBlankRow = 5
'フォーム名
Dim SpFormName
'行定義
Dim SpRowHeight '高さ(pixel指定)
Dim SpRowCls '行スタイルclass
Dim SpRowStyle '行スタイル
'列定義
Dim SpCellType(20) '形式指定(0:日付 1:文字列 2:英数字 3:通貨 9:プルダウン)※型はclassとonFocus・onBrurで制御されるので、現状はプルダウン以外は特に意味はない。
Dim SpCellWidth(20) 'セル幅(pixel指定) ※フォーム幅は自動計算
Dim SpCellCls(20) 'セルスタイルclass
Dim SpCellStyle(20) 'セルスタイル
Dim SpInputRO(20) 'フォームreadonlyフラグ("1")
Dim SpInputCls(20) 'フォームスタイルclass
Dim SpInputStyle(20) 'フォームスタイル
Dim SpInputFocus(20) 'onFocusで作動させるスクリプト
Dim SpInputBlur(20) 'onBlurで作動させるスクリプト
Dim SpInputChange(20) 'onChangeで作動させるスクリプト
Dim SpInputValue(20) 'フォーム初期値
Dim SpInputOption(20) 'フォーム初期値(selectプルダウンのoptionタグ)
'Dim SpCell(20) '
Sub SpreadRow(RowCnt) 'RowCntがフォーム名に使用される
'	SpreadRow = ""
	Dim Cnt
	Dim RowHeight
	Dim RowCls
	Dim RowStyle
	Dim CellWidth
	Dim CellCls
	Dim CellStyle
	Dim InputWidth
	Dim InputCls
	Dim InputStyle
	Dim InputFocus
	Dim InputBlur
	Dim InputChange
	Dim InputRO
	Dim InputBorder
	InputBorder = "border:none;"
'	InputBorder = "border:solid 1px #000000;" 'デバッグ用
	If "" & SpRowHeight <> "" Then
		RowHeight = " height=""" & SpRowHeight & """ "
	End If
	If "" & SpRowCls <> "" Then
		RowCls = " class=""" & SpRowCls & """ "
	End If
	If "" & SpRowStyle <> "" Then
		RowStyle = " style=""" & SpRowStyle & """ "
	End If
'	SpreadRow = SpreadRow & "<TR ALIGN=""CENTER""" & SpRowCls & "" & SpRowStyle & ">" & vbCrLf
	Response.Write("<TR ALIGN=""CENTER"" " & RowHeight & "" & RowCls & "" & RowStyle & ">" & vbCrLf)
	For Cnt = 1 To 20
		CellWidth = ""
		CellCls = ""
		CellStyle = ""
		InputWidth = ""
		InputCls = ""
		InputStyle = ""
		InputFocus = ""
		InputBlur = ""
		InputChange = ""
		InputRO = ""
		If "" & SpCellType(Cnt) = "" Then
			Exit For
		End If
		If "" & SpCellWidth(Cnt) <> "" Then
			InputWidth = "width:" & (CInt(SpCellWidth(Cnt)) - 2) & "px;" 'textフォームの幅がセルから溢れないよう此処で調整
			CellWidth = " width=""" & SpCellWidth(Cnt) & """ "
		End If
		If "" & SpCellCls(Cnt) <> "" Then
			CellCls = " class=""" & SpCellCls(Cnt) & """ "
		End If
		If "" & SpCellStyle(Cnt) <> "" Then
			CellStyle = " style=""" & SpCellStyle(Cnt) & """ "
		End If
		If "" & SpInputCls(Cnt) <> "" Then
			InputCls = " class=""" & SpInputCls(Cnt) & """ "
		End If
		InputStyle = " style=""" & InputWidth & InputBorder & SpInputStyle(Cnt) & """ "
		'onFocusで常にフォーム名と選択行をJavaScript変数に代入(javascript.js)&行背景色変更
		InputFocus = " onFocus=""SpFormName='" & SpFormName & "';SpSelRow=" & RowCnt & ";SpRowColor();" & SpInputFocus(Cnt) & """ "
		If "" & SpInputBlur(Cnt) <> "" Then
			InputBlur = " onBlur=""" & SpInputBlur(Cnt) & """ "
		End If
		If "" & SpInputChange(Cnt) <> "" Then
			InputChange = " onChange=""" & SpInputChange(Cnt) & """ "
		End If
		InputRO = ""
		If "" & SpInputRO(Cnt) = "1" Then
			InputRO = " readonly tabindex=""-1"" "
		End If
'		SpreadRow = SpreadRow & "<TD " & CellWidth & " " & CellCls & " " & CellStyle & " ALIGN=""center"">" & vbCrLf
'		SpreadRow = SpreadRow & "<input type=""text"" name=""SpCell" & RowCnt & "_" & Cnt & """ value=""" & SpInputValue(Cnt) & """ " & InputWidth & " " & InputCls & " " & InputStyle & " " & InputFocus & " " & InputBlur & " align=""" & InputAlign & """ " & InputRO & " size=""1"">" & vbCrLf '※textフォームは幅自動補正(includesj.jsのInit関数)の処理対象から外すためすべてsize="1"指定。
'		SpreadRow = SpreadRow & "</TD>" & vbCrLf
		Response.Write("<TD " & CellWidth & " " & CellCls & " " & CellStyle & " ALIGN=""center"">" & vbCrLf)
		If SpInputOption(Cnt) <> "" Then
			'selectプルダウン
			Response.Write("<select size=""1"" name=""" & SpFormName & RowCnt & "_" & Cnt & """ " & InputCls & " " & InputStyle & " " & InputFocus & " " & InputBlur & " " & InputChange & " " & InputRO & ">" & vbCrLf)
			Response.Write(SpInputOption(Cnt) & vbCrLf)
			Response.Write("</select>" & vbCrLf)
		Else
			'textフォーム
			Response.Write("<input type=""text"" name=""" & SpFormName & RowCnt & "_" & Cnt & """ value=""" & SpInputValue(Cnt) & """ " & InputCls & " " & InputStyle & " " & InputFocus & " " & InputBlur & " " & InputChange & " " & InputRO & " size=""1"">" & vbCrLf) '※textフォームは幅自動補正(includesj.jsのInit関数)の処理対象から外すためすべてsize="1"指定。
		End If
		Response.Write("</TD>" & vbCrLf)


'		Response.Write("<TD WIDTH=""83"" HEIGHT=""23"" ALIGN=""center"" class=""br1"">" & Torihikibi & "</TD>" & vbCrLf)
'		Response.Write("<TD				 HEIGHT=""23"" ALIGN=""LEFT"" class=""br1""><span style=""width:227px; height:14px; overflow:hidden;"">" & HardWrap(Tekiyo) & "</span></TD>" & vbCrLf)
'		Response.Write("<TD WIDTH=""94"" HEIGHT=""23"" ALIGN=""RIGHT"" CLASS=""br3"">" & ConvIntToMoney(Syunyu , false, true) & "</TD>" & vbCrLf)
'		Response.Write("<TD WIDTH=""94"" HEIGHT=""23"" ALIGN=""RIGHT"" CLASS=""br3"">" & ConvIntToMoney(Shisyutsu, false, true) & "</TD>" & vbCrLf)
'		Response.Write("<TD WIDTH=""94"" HEIGHT=""23"" ALIGN=""RIGHT"" CLASS=""b0"">" & ConvIntToMoney(Zandaka, false, true) & "</TD>" & vbCrLf)
	Next
	'SpreadRow = SpreadRow & "</TR>" & vbCrLf
	Response.Write("</TR>" & vbCrLf)
End Sub



	Function HtmlDesign(i)
		Dim MailBlink

		Dim Query, Content

		Dim TmpKaishaMeisho

		Dim AdminCode
		Query = "exec SPMシステム情報取得 '" & GB_SystemCD & "'"
		Set Content = OpenQuery(Query)
		If Not(Content.BOF Or Content.EOF) Then
			AdminCode = Content.Fields("管理者コード")
			If "" & Content.Fields("メモ表示") = "2" Then
				'運用管理画面では表示しない
				If GB_Admin < 1 Then
					Session(HomeAlias & "AdminMessageHyoji") = "1" '生徒側も表示
				End If
			ElseIf "" & Content.Fields("メモ表示") = "1" Then
				'運用管理者のみ黒板表示						運用管理画面では表示しない					演習管理者は管理演習でのみ表示
				'If Session(HomeAlias & "AutoLoginButton") = "1" And GB_Admin < 1 And (GB_AdminPCE = "" Or GB_AdminPCE = GB_EnshuCD) Then
				'教師機のみ黒板表示		運用管理画面では表示しない
				If GB_AdminPC = "1" And GB_Admin < 1 Then
					Session(HomeAlias & "AdminMessageHyoji") = "1"
				End If
			End If
		End If


		'サイバー会計モードで業種確定時は一部の色を変える
		Dim TmpColor
		Dim TmpColorObj
		Dim TmpColorObj2
		TmpColor = Session(HomeAlias & "GyosyuColor")
		TmpColorObj = Session(HomeAlias & "GyosyuColorObj")
		TmpColorObj2 = Session(HomeAlias & "GyosyuColorObj")
		If PackageMode = 1 And Session(HomeAlias & "GyosyuColorObj") <> "" Then
			If GB_Admin < 1 Then
				TmpColor = "#275F00"
				TmpColor = "#2A6500"
				TmpColor = "#29A37A"
				TmpColor = "#248F6B"
				TmpColor = "#248F8B"
				TmpColor = "#007777"
				TmpColorObj = "ca"
				TmpColorObj2 = "ca"
			Else
				TmpColorObj = "ca"
				TmpColorObj2 = "caa"
			End If
		End If

		Dim AllContentWidth
		AllContentWidth = "100%"
		'Edge対応のため全体幅固定
		AllContentWidth = "1004" 'これはIE版のポップアップ幅
		If GB_IEmode <> "1" Then
'			AllContentWidth = "1024" 'IEでなければ広げる(保留)
		End If


		'黒板
		Dim AdminMessageHTML
		AdminMessageHTML = ""
		If Session(HomeAlias & "AdminMessageHyoji") = "1" Then
			AdminMessageHTML = AdminMessageHTML & "	<tr> " & vbCrLf
			AdminMessageHTML = AdminMessageHTML & "		<td id=""AdminMessageLayer"" height=""38"">" & vbCrLf
			AdminMessageHTML = AdminMessageHTML & "			<table width=""100%"" height=""38"" border=""0"" cellpadding=""0"" cellspacing=""0"" style=""border-collapse:collapse;"">" & vbCrLf
			AdminMessageHTML = AdminMessageHTML & "				<tr>" & vbCrLf
'			AdminMessageHTML = AdminMessageHTML & "					<td width=""36"" bgcolor=""#024433"" class=""tx1618"" style=""border:solid 3px #c79f6d;background-color:#c79f6d;font-weight:bold;"" onClick=""document.getElementById('AdminMessage').value='';"">" & vbCrLf
'			AdminMessageHTML = AdminMessageHTML & "						<center><nobr>&nbsp;メモ&nbsp;</nobr></center>" & vbCrLf
'			AdminMessageHTML = AdminMessageHTML & "					</td>" & vbCrLf
			AdminMessageHTML = AdminMessageHTML & "					<td height=""38"" bgcolor=""#024433"" style=""vertical-align:middle;border:solid 3px #ab8a43;"">" & vbCrLf
			AdminMessageHTML = AdminMessageHTML & "						<center><nobr>" & vbCrLf
			AdminMessageHTML = AdminMessageHTML & "							<input OnKeyDown=""FormKeyDown(this);"" type=""text"" name=""AdminMessage"" id=""AdminMessage"" size=""1"" value=""" & Session(HomeAlias & "AdminMessaage") & """ class=""tbox4_ime"" style=""width:" & (AllContentWidth - 56) & "px;background-color:#024433;border-color:#024433;color:#ffffff;font-size:20px;height:28px;font-weight:bold;text-align:center;"" onBlur=""FormStrLeftIME(this,255,true,true);AdminMessageFrame.location.href='" & HomeAliasSL & "include_layout_adminmessage.asp?AdminMessage='+document.getElementById('AdminMessage').value;"" autocomplete=""off"">" & vbCrLf
			AdminMessageHTML = AdminMessageHTML & "						</nobr></center>" & vbCrLf
			AdminMessageHTML = AdminMessageHTML & "					</td>" & vbCrLf
			AdminMessageHTML = AdminMessageHTML & "					<td width=""36"" bgcolor=""#024433"" class=""tx1416"" style=""border:solid 3px #ab8a43;background-color:#ab8a43;cursor:pointer;"" onClick=""document.getElementById('AdminMessage').value='';AdminMessageFrame.location.href='" & HomeAliasSL & "include_layout_adminmessage.asp?AdminMessage=';"">" & vbCrLf
			AdminMessageHTML = AdminMessageHTML & "						<center><nobr>&nbsp;<image src=""" & HomeAliasSL & "images/eraser32.png?" & GB_STU & """>&nbsp;</nobr></center>" & vbCrLf
			AdminMessageHTML = AdminMessageHTML & "						<div style=""width:0px;height:0px"">" & vbCrLf
			AdminMessageHTML = AdminMessageHTML & "							<IFRAME name=""AdminMessageFrame"" SRC="""" WIDTH=""0"" HEIGHT=""0"" FRAMEBORDER=0 MARGINHEIGHT=0 MARGINWIDTH=0 NORESIZE SCROLLING=no>" & vbCrLf
			AdminMessageHTML = AdminMessageHTML & "							</IFRAME>" & vbCrLf
			AdminMessageHTML = AdminMessageHTML & "						</div>" & vbCrLf
			AdminMessageHTML = AdminMessageHTML & "					</td>" & vbCrLf
			AdminMessageHTML = AdminMessageHTML & "				</tr>" & vbCrLf
			AdminMessageHTML = AdminMessageHTML & "			</table>" & vbCrLf
			AdminMessageHTML = AdminMessageHTML & "		</td>" & vbCrLf
			AdminMessageHTML = AdminMessageHTML & "	</tr>" & vbCrLf
		End If


		If InStr(UCase(Request.ServerVariables("URL")), UCase("" & HomeAliasSL & "admin/mail")) = 0 Then	'運用管理では受発信文書クローズ時のmailblk()を行わない
			MailBlink = "mailblk();"
		End If

		If i = 12 Then	'為替レート表
			HtmlDesign = ""
			HtmlDesign = HtmlDesign & "<center>" & vbCrLf
			HtmlDesign = HtmlDesign & "<table id=""MainContentsLayer"" width=""100%"" height=""100%"" border=""0"" cellpadding=""0"" cellspacing=""0"">" & vbCrLf
			HtmlDesign = HtmlDesign & "	<tr> " & vbCrLf
			HtmlDesign = HtmlDesign & "		<td align=""center"" valign=""top""> " & vbCrLf
			HtmlDesign = HtmlDesign & "			<table width=""100%"" height=""100%"" border=""0"" cellpadding=""0"" cellspacing=""0"">" & vbCrLf
			HtmlDesign = HtmlDesign & "				<tr> " & vbCrLf
			HtmlDesign = HtmlDesign & "					<td width=""10"" height=""40"" valign=""top"" background=""" & HomeAliasSL & "images/mwshd_lc.gif?" & GB_STU & """><img src=""" & HomeAliasSL & "images/mwshd_lu.gif?" & GB_STU & """ width=""10"" height=""10""></td>" & vbCrLf
			HtmlDesign = HtmlDesign & "					<td height=""40"" valign=""bottom"" bgcolor=""#FFFFFF""> " & vbCrLf
			HtmlDesign = HtmlDesign & "						<table width=""100%"" height=""35"" border=""0"" cellpadding=""0"" cellspacing=""0"">" & vbCrLf
			HtmlDesign = HtmlDesign & "							<tr> " & vbCrLf
'			HtmlDesign = HtmlDesign & "								<td valign=""top"" background=""" & HomeAliasSL & "images/kwin_dl_g.gif?" & GB_STU & """> " & vbCrLf
'			HtmlDesign = HtmlDesign & "									<table width=""1"" height=""27"" border=""0"" cellpadding=""0"" cellspacing=""0"" bgcolor=""#33CC99"">" & vbCrLf
'			HtmlDesign = HtmlDesign & "										<tr> " & vbCrLf
'			HtmlDesign = HtmlDesign & "											<td width=""10"" height=""27"" background=""" & HomeAliasSL & "images/mlttl_wzl.gif?" & GB_STU & """ class=""tx1416b"" style=""color:#FFFFFF"">" & Spacer(10,1) & "</td>" & vbCrLf
'			HtmlDesign = HtmlDesign & "											<td height=""25"" background=""" & HomeAliasSL & "images/mlttl_wzc.gif?" & GB_STU & """ class=""tx1618b"" style=""color:#FFFFFF""><nobr></nobr></td>" & vbCrLf
'			HtmlDesign = HtmlDesign & "											<td width=""25"" height=""27"" background=""" & HomeAliasSL & "images/mlttl_wzr1.gif?" & GB_STU & """ class=""tx1416b"" style=""color:#FFFFFF"">" & Spacer(25,1) & "</td>" & vbCrLf
'			HtmlDesign = HtmlDesign & "											<td width=""1"" height=""27"" bgcolor=""#FFFFFF"">" & Spacer(25,1) & "</td>" & vbCrLf
'			HtmlDesign = HtmlDesign & "										</tr>" & vbCrLf
'			HtmlDesign = HtmlDesign & "									</table>" & vbCrLf
'			HtmlDesign = HtmlDesign & "								</td>" & vbCrLf
																			'この幅を右の4セルの合計と合わせる
			HtmlDesign = HtmlDesign & "								<td width=""200"" align=""center"" valign=""top"" background=""" & HomeAliasSL & "images/kwin_dl_g.gif?" & GB_STU & """><div id=""BaseL2""></div>" & vbCrLf
			HtmlDesign = HtmlDesign & "								<td valign=""top"" background=""" & HomeAliasSL & "images/kwin_dl_g.gif?" & GB_STU & """>" & vbCrLf
			HtmlDesign = HtmlDesign & "									<table width=""100%"" height=""25"" border=""0"" cellpadding=""0"" cellspacing=""0"">" & vbCrLf
			HtmlDesign = HtmlDesign & "										<tr> " & vbCrLf
			HtmlDesign = HtmlDesign & "											<td width=""19"" height=""25"" background=""" & HomeAliasSL & "images/mlttl_bkl.gif?" & GB_STU & """ class=""tx1416b"">&nbsp;</td>" & vbCrLf
			HtmlDesign = HtmlDesign & "											<td height=""25"" align=""center"" background=""" & HomeAliasSL & "images/mlttl_bkc.gif?" & GB_STU & """ class=""tx1618b""><div>" & Spacer(1,1) & "</div><div id=""BaseL4""></div></td>" & vbCrLf
			HtmlDesign = HtmlDesign & "											<td width=""19"" height=""25"" background=""" & HomeAliasSL & "images/mlttl_bkr.gif?" & GB_STU & """ class=""tx1416b"">&nbsp;</td>" & vbCrLf
			HtmlDesign = HtmlDesign & "										</tr>" & vbCrLf
			HtmlDesign = HtmlDesign & "									</table>" & vbCrLf
			HtmlDesign = HtmlDesign & "								</td>" & vbCrLf
			HtmlDesign = HtmlDesign & "								<td width=""100"" align=""center"" valign=""top"" background=""" & HomeAliasSL & "images/kwin_dl_g.gif?" & GB_STU & """><div id=""BaseL2""></div>" & vbCrLf
			HtmlDesign = HtmlDesign & "								</td>" & vbCrLf
			HtmlDesign = HtmlDesign & "								<td width=""30"" background=""" & HomeAliasSL & "images/kwin_dc_g.gif?" & GB_STU & """>&nbsp;</td>" & vbCrLf
			HtmlDesign = HtmlDesign & "								<td width=""65"" align=""right"" valign=""bottom"" background=""" & HomeAliasSL & "images/kwin_dr_g.gif?" & GB_STU & """> " & vbCrLf
			HtmlDesign = HtmlDesign & "								<div id=""BaseL3_1""></div>" & vbCrLf
			HtmlDesign = HtmlDesign & "								</td>" & vbCrLf
			HtmlDesign = HtmlDesign & "								<td width=""5"" align=""right"" valign=""bottom"" background=""" & HomeAliasSL & "images/kwin_dr_g.gif?" & GB_STU & """><img src=""" & HomeAliasSL & "images/spacer.gif?" & GB_STU & """ width=""1"" height=""10""></td>" & vbCrLf
			HtmlDesign = HtmlDesign & "							</tr>" & vbCrLf
			HtmlDesign = HtmlDesign & "						</table>" & vbCrLf
			HtmlDesign = HtmlDesign & "					</td>" & vbCrLf
			HtmlDesign = HtmlDesign & "					<td width=""10"" height=""40"" valign=""top"" background=""" & HomeAliasSL & "images/mwshd_rc.gif?" & GB_STU & """><img src=""" & HomeAliasSL & "images/mwshd_ru.gif?" & GB_STU & """ width=""10"" height=""10""></td>" & vbCrLf
			HtmlDesign = HtmlDesign & "				</tr>" & vbCrLf
			HtmlDesign = HtmlDesign & "				<tr> " & vbCrLf
			HtmlDesign = HtmlDesign & "					<td width=""10"" background=""" & HomeAliasSL & "images/mwshd_lc.gif?" & GB_STU & """><img src=""" & HomeAliasSL & "images/spacer.gif?" & GB_STU & """ width=""10"" height=""10""></td>" & vbCrLf
			HtmlDesign = HtmlDesign & "					<td align=""center"" valign=""middle"" bgcolor=""#CED4E9""> " & vbCrLf
			If GB_IEmode <> "1" Then										'非IEは親divをtableにして子をtable-cellにすれば、サイズ100%が潰れてしまうことがなくなる
				HtmlDesign = HtmlDesign & "					" & HttpH0 & "<div style=""display:table;width:100%;height:100%;""><div id=""BaseL0"" style=""display:table-cell;vertical-align:middle;height:100%;""></div></div>" & vbCrLf
			Else
				HtmlDesign = HtmlDesign & "					" & HttpH0 & "<div id=""BaseL0""></div>" & vbCrLf
			End If
			HtmlDesign = HtmlDesign & "					</td>" & vbCrLf
			HtmlDesign = HtmlDesign & "					<td width=""10"" background=""" & HomeAliasSL & "images/mwshd_rc.gif?" & GB_STU & """><img src=""" & HomeAliasSL & "images/spacer.gif?" & GB_STU & """ width=""10"" height=""10""></td>" & vbCrLf
			HtmlDesign = HtmlDesign & "				</tr>" & vbCrLf
			HtmlDesign = HtmlDesign & "				<tr> " & vbCrLf
			HtmlDesign = HtmlDesign & "					<td width=""10"" height=""10""><img src=""" & HomeAliasSL & "images/mwshd_ld.gif?" & GB_STU & """ width=""10"" height=""10""></td>" & vbCrLf
			HtmlDesign = HtmlDesign & "					<td height=""10"" background=""" & HomeAliasSL & "images/mwshd_CD.gif?" & GB_STU & """><img src=""" & HomeAliasSL & "images/spacer.gif?" & GB_STU & """ width=""10"" height=""10""></td>" & vbCrLf
			HtmlDesign = HtmlDesign & "					<td width=""10"" height=""10""><img src=""" & HomeAliasSL & "images/mwshd_rd.gif?" & GB_STU & """ width=""10"" height=""10""></td>" & vbCrLf
			HtmlDesign = HtmlDesign & "				</tr>" & vbCrLf
			HtmlDesign = HtmlDesign & "			</table>" & vbCrLf
			HtmlDesign = HtmlDesign & "		</td>" & vbCrLf
			HtmlDesign = HtmlDesign & "	</tr>" & vbCrLf
			HtmlDesign = HtmlDesign & "</table>" & vbCrLf
			HtmlDesign = HtmlDesign & "</center>" & vbCrLf

		ElseIf i = 11 Then	'ポータルサイト
			HtmlDesign = ""
			HtmlDesign = HtmlDesign & "<center>" & vbCrLf
			HtmlDesign = HtmlDesign & "<table id=""MainContentsLayer"" width=""100%"" height=""100%"" border=""0"" cellpadding=""0"" cellspacing=""0"">" & vbCrLf
			HtmlDesign = HtmlDesign & "	<tr> " & vbCrLf
			HtmlDesign = HtmlDesign & "		<td align=""center"" valign=""top""> " & vbCrLf
			HtmlDesign = HtmlDesign & "			<table width=""100%"" height=""100%"" border=""0"" cellpadding=""0"" cellspacing=""0"">" & vbCrLf
			HtmlDesign = HtmlDesign & "				<tr> " & vbCrLf
			HtmlDesign = HtmlDesign & "					<td width=""10"" height=""40"" valign=""top"" background=""" & HomeAliasSL & "images/mwshd_lc.gif?" & GB_STU & """><img src=""" & HomeAliasSL & "images/mwshd_lu.gif?" & GB_STU & """ width=""10"" height=""10""></td>" & vbCrLf
			HtmlDesign = HtmlDesign & "					<td height=""40"" valign=""bottom"" bgcolor=""#FFFFFF""> " & vbCrLf
			HtmlDesign = HtmlDesign & "						<table width=""100%"" height=""35"" border=""0"" cellpadding=""0"" cellspacing=""0"">" & vbCrLf
			HtmlDesign = HtmlDesign & "							<tr> " & vbCrLf
			HtmlDesign = HtmlDesign & "								<td valign=""top"" background=""" & HomeAliasSL & "images/kwin_dl_g.gif?" & GB_STU & """> " & vbCrLf
			HtmlDesign = HtmlDesign & "									<table width=""1"" height=""27"" border=""0"" cellpadding=""0"" cellspacing=""0"" bgcolor=""#33CC99"">" & vbCrLf
			HtmlDesign = HtmlDesign & "										<tr> " & vbCrLf
			HtmlDesign = HtmlDesign & "											<td width=""10"" height=""27"" background=""" & HomeAliasSL & "images/mlttl_wzl.gif?" & GB_STU & """ class=""tx1416b"" style=""color:#FFFFFF"">" & Spacer(10,1) & "</td>" & vbCrLf
			HtmlDesign = HtmlDesign & "											<td height=""25"" background=""" & HomeAliasSL & "images/mlttl_wzc.gif?" & GB_STU & """ class=""tx1618b"" style=""color:#FFFFFF""><nobr>ポ ー タ ル サ イ ト</nobr></td>" & vbCrLf
			HtmlDesign = HtmlDesign & "											<td width=""25"" height=""27"" background=""" & HomeAliasSL & "images/mlttl_wzr1.gif?" & GB_STU & """ class=""tx1416b"" style=""color:#FFFFFF"">" & Spacer(25,1) & "</td>" & vbCrLf
			HtmlDesign = HtmlDesign & "											<td width=""1"" height=""27"" bgcolor=""#FFFFFF"">" & Spacer(25,1) & "</td>" & vbCrLf
			HtmlDesign = HtmlDesign & "										</tr>" & vbCrLf
			HtmlDesign = HtmlDesign & "									</table>" & vbCrLf
			HtmlDesign = HtmlDesign & "								</td>" & vbCrLf
			HtmlDesign = HtmlDesign & "								<td valign=""top"" background=""" & HomeAliasSL & "images/kwin_dl_g.gif?" & GB_STU & """>" & vbCrLf
			HtmlDesign = HtmlDesign & "									<table width=""100%"" height=""25"" border=""0"" cellpadding=""0"" cellspacing=""0"">" & vbCrLf
			HtmlDesign = HtmlDesign & "										<tr> " & vbCrLf
			HtmlDesign = HtmlDesign & "											<td width=""19"" height=""25"" background=""" & HomeAliasSL & "images/mlttl_bkl.gif?" & GB_STU & """ class=""tx1416b"">&nbsp;</td>" & vbCrLf
			HtmlDesign = HtmlDesign & "											<td height=""25"" align=""center"" background=""" & HomeAliasSL & "images/mlttl_bkc.gif?" & GB_STU & """ class=""tx1618b""><div>" & Spacer(1,1) & "</div><div id=""BaseL4""></div></td>" & vbCrLf
			HtmlDesign = HtmlDesign & "											<td width=""19"" height=""25"" background=""" & HomeAliasSL & "images/mlttl_bkr.gif?" & GB_STU & """ class=""tx1416b"">&nbsp;</td>" & vbCrLf
			HtmlDesign = HtmlDesign & "										</tr>" & vbCrLf
			HtmlDesign = HtmlDesign & "									</table>" & vbCrLf
			HtmlDesign = HtmlDesign & "								</td>" & vbCrLf
			HtmlDesign = HtmlDesign & "								<td width=""100"" align=""center"" valign=""top"" background=""" & HomeAliasSL & "images/kwin_dl_g.gif?" & GB_STU & """><div id=""BaseL2""></div>" & vbCrLf
			HtmlDesign = HtmlDesign & "								</td>" & vbCrLf
			HtmlDesign = HtmlDesign & "								<td width=""30"" background=""" & HomeAliasSL & "images/kwin_dc_g.gif?" & GB_STU & """>&nbsp;</td>" & vbCrLf
			HtmlDesign = HtmlDesign & "								<td width=""230"" align=""center"" valign=""bottom"" background=""" & HomeAliasSL & "images/kwin_dr_g.gif?" & GB_STU & """> " & vbCrLf
			HtmlDesign = HtmlDesign & "								<div id=""BaseL3_1""></div>" & vbCrLf
			HtmlDesign = HtmlDesign & "								</td>" & vbCrLf
			HtmlDesign = HtmlDesign & "							</tr>" & vbCrLf
			HtmlDesign = HtmlDesign & "						</table>" & vbCrLf
			HtmlDesign = HtmlDesign & "					</td>" & vbCrLf
			HtmlDesign = HtmlDesign & "					<td width=""10"" height=""40"" valign=""top"" background=""" & HomeAliasSL & "images/mwshd_rc.gif?" & GB_STU & """><img src=""" & HomeAliasSL & "images/mwshd_ru.gif?" & GB_STU & """ width=""10"" height=""10""></td>" & vbCrLf
			HtmlDesign = HtmlDesign & "				</tr>" & vbCrLf
			HtmlDesign = HtmlDesign & "				<tr> " & vbCrLf
			HtmlDesign = HtmlDesign & "					<td width=""10"" background=""" & HomeAliasSL & "images/mwshd_lc.gif?" & GB_STU & """><img src=""" & HomeAliasSL & "images/spacer.gif?" & GB_STU & """ width=""10"" height=""10""></td>" & vbCrLf
				HtmlDesign = HtmlDesign & "					<td align=""center"" valign=""middle"" bgcolor=""#CED4E9""> " & vbCrLf
			If GB_IEmode <> "1" Then										'非IEは親divをtableにして子をtable-cellにすれば、サイズ100%が潰れてしまうことがなくなる
				HtmlDesign = HtmlDesign & "					" & HttpH0 & "<div style=""display:table;width:100%;height:100%;""><div id=""BaseL0"" style=""display:table-cell;vertical-align:middle;height:100%;""></div></div>" & vbCrLf
			Else
				HtmlDesign = HtmlDesign & "					" & HttpH0 & "<div id=""BaseL0""></div>" & vbCrLf
			End If
			HtmlDesign = HtmlDesign & "					</td>" & vbCrLf
			HtmlDesign = HtmlDesign & "					<td width=""10"" background=""" & HomeAliasSL & "images/mwshd_rc.gif?" & GB_STU & """><img src=""" & HomeAliasSL & "images/spacer.gif?" & GB_STU & """ width=""10"" height=""10""></td>" & vbCrLf
			HtmlDesign = HtmlDesign & "				</tr>" & vbCrLf
			HtmlDesign = HtmlDesign & "				<tr> " & vbCrLf
			HtmlDesign = HtmlDesign & "					<td width=""10"" height=""10""><img src=""" & HomeAliasSL & "images/mwshd_ld.gif?" & GB_STU & """ width=""10"" height=""10""></td>" & vbCrLf
			HtmlDesign = HtmlDesign & "					<td height=""10"" background=""" & HomeAliasSL & "images/mwshd_CD.gif?" & GB_STU & """><img src=""" & HomeAliasSL & "images/spacer.gif?" & GB_STU & """ width=""10"" height=""10""></td>" & vbCrLf
			HtmlDesign = HtmlDesign & "					<td width=""10"" height=""10""><img src=""" & HomeAliasSL & "images/mwshd_rd.gif?" & GB_STU & """ width=""10"" height=""10""></td>" & vbCrLf
			HtmlDesign = HtmlDesign & "				</tr>" & vbCrLf
			HtmlDesign = HtmlDesign & "			</table>" & vbCrLf
			HtmlDesign = HtmlDesign & "		</td>" & vbCrLf
			HtmlDesign = HtmlDesign & "	</tr>" & vbCrLf
			HtmlDesign = HtmlDesign & "</table>" & vbCrLf
			HtmlDesign = HtmlDesign & "</center>" & vbCrLf

		ElseIf i = 10 Then '定款・書類一覧
			HtmlDesign = ""
			HtmlDesign = HtmlDesign & "<center>" & vbCrLf
			HtmlDesign = HtmlDesign & "<table id=""MainContentsLayer"" width=""100%"" height=""100%"" border=""0"" cellpadding=""0"" cellspacing=""0"">" & vbCrLf
			HtmlDesign = HtmlDesign & AdminMessageHTML '黒板表示
			HtmlDesign = HtmlDesign & "	<tr> " & vbCrLf
			HtmlDesign = HtmlDesign & "		<td height=""25"" bgcolor=""#2A3B73""> " & vbCrLf
			HtmlDesign = HtmlDesign & "			<table width=""100%"" height=""29"" border=""0"" cellpadding=""0"" cellspacing=""0"">" & vbCrLf
			HtmlDesign = HtmlDesign & "				<tr>" & vbCrLf
			HtmlDesign = HtmlDesign & "					<td width=""375"" height=""29"" align=""left""> " & vbCrLf
			HtmlDesign = HtmlDesign & "						<table width=""460"" height=""29"" border=""0"" cellpadding=""0"" cellspacing=""0"" background=""" & HomeAliasSL & "images/usrbk_c.gif?" & GB_STU & """ class=""tx1416"">" & vbCrLf
			HtmlDesign = HtmlDesign & "							<tr> " & vbCrLf
'			HtmlDesign = HtmlDesign & "								<td width=""29"" height=""29"" background=""" & HomeAliasSL & "images/usrbk_l.gif?" & GB_STU & """ onClick=""tblbtn( '" & HomeAliasSL & "redirect.asp?url=" & Request.ServerVariables("URL") & "')""><img src=""" & HomeAliasSL & "images/usrttl_id.gif?" & GB_STU & """ width=""29"" height=""25""></td>" & vbCrLf
			HtmlDesign = HtmlDesign & "								<td width=""29"" height=""29"" background=""" & HomeAliasSL & "images/usrbk_l.gif?" & GB_STU & """ onClick=""WindowTopRedirect();""><img src=""" & HomeAliasSL & "images/usrttl_id.gif?" & GB_STU & """ width=""30"" height=""25""></td>" & vbCrLf
			If GB_Admin = 1 Then
				HtmlDesign = HtmlDesign & "								<td height=""29"" class=""tx1315"">" & HardWrap(AdminCode) & "&nbsp;</td>" & vbCrLf
			Else
				HtmlDesign = HtmlDesign & "								<td height=""29"" class=""tx1315"">" & HardWrap(GakuseiNo) & "&nbsp;</td>" & vbCrLf
			End If
'			HtmlDesign = HtmlDesign & "								<td width=""29"" height=""29"" onClick=""tblbtn( '" & HomeAliasSL & "redirect.asp?url=" & Request.ServerVariables("URL") & "&windowtype=1')""><img src=""" & HomeAliasSL & "images/usrttl_nm.gif?" & GB_STU & """ width=""50"" height=""25""></td>" & vbCrLf
			HtmlDesign = HtmlDesign & "								<td width=""29"" height=""29""><img src=""" & HomeAliasSL & "images/usrttl_nm.gif?" & GB_STU & """ width=""41"" height=""25""></td>" & vbCrLf
			If GB_Admin = 1 Then
				HtmlDesign = HtmlDesign & "								<td width=""160"" height=""29"">運用管理者</td>" & vbCrLf
			Else
				HtmlDesign = HtmlDesign & "								<td width=""160"" height=""29"" onClick=""UserPramUPD();"" style=""cursor:pointer;"">" & GakuseiShimei & "</td>" & vbCrLf
			End If
			HtmlDesign = HtmlDesign & "								<td width=""16"" height=""29"" onClick=""tblbtn('" & HomeAliasSL & "system/session.asp')""><img src=""" & HomeAliasSL & "images/usrttl_dt.gif?" & GB_STU & """ width=""21"" height=""25""></td>" & vbCrLf
			HtmlDesign = HtmlDesign & "								<td width=""70"" height=""29"" class=""tx1315"">" & GetYYYYMMDD() & "</td>" & vbCrLf
			HtmlDesign = HtmlDesign & "								<td width=""10"" height=""29"" background=""" & HomeAliasSL & "images/usrbk_r.gif?" & GB_STU & """>&nbsp;</td>" & vbCrLf
			HtmlDesign = HtmlDesign & "							</tr>" & vbCrLf
			HtmlDesign = HtmlDesign & "						</table>" & vbCrLf
			HtmlDesign = HtmlDesign & "					</td>" & vbCrLf
			HtmlDesign = HtmlDesign & "					<td height=""25"" align=""right"">" & vbCrLf
			HtmlDesign = HtmlDesign & "						<div id=""BaseL1"" style=""height:29px;""></div>" & vbCrLf
			HtmlDesign = HtmlDesign & "					<img src=""" & HomeAliasSL & "images/spacer.gif?" & GB_STU & """ width=""1"" height=""1""></td>" & vbCrLf
			'CAモードでサイバートレードからの連動モードでは閉じるボタンを表示する
			If PackageMode = 1 And "" & Session(DBName & "CT21toCA21") <> "" Then
				HtmlDesign = HtmlDesign & "<td width=""70"" height=""25"" background=""" & HomeAliasSL & "images/spbtn_close.gif?" & GB_STU & """ class=""tbtn"" onClick=""ExitFlg=0;top.window.close();"">&nbsp;</td>" & vbCrLf
																						'演習管理者は管理演習でのみダイレクト運用管理ボタンを表示する
			ElseIf (DebugFlg > 0 Or Session(HomeAlias & "AutoLoginButton") = "1") And GB_Admin < 1 And (GB_AdminPCE = "" Or GB_AdminPCE = GB_EnshuCD) Then
				HtmlDesign = HtmlDesign & "<td width=""70"" height=""25"" background=""" & HomeAliasSL & "images/spbtn_admin.gif?" & GB_STU & """ class=""tbtn"" onClick=""tblbtn( '" & HomeAliasSL & "default_bin.asp?AutoLoginAdmin=1&admin=1&AutoLoginEnshuCD=" & GB_EnshuCD & "&AdminPCE=" & GB_AdminPCE & "&AutoLoginReturn=" & Session(HomeAlias & "AutoLoginReturn") & "')"">&nbsp;</td>" & vbCrLf
			Else
				HtmlDesign = HtmlDesign & "<td width=""70"" height=""25"" background=""" & HomeAliasSL & "images/spbtn_lgof.gif?" & GB_STU & """ class=""tbtn"" onClick=""Logout()"">&nbsp;</td>" & vbCrLf
			End If
			HtmlDesign = HtmlDesign & "				</tr>" & vbCrLf
			HtmlDesign = HtmlDesign & "			</table>" & vbCrLf
			HtmlDesign = HtmlDesign & "		</td>" & vbCrLf
			HtmlDesign = HtmlDesign & "	</tr>" & vbCrLf
			HtmlDesign = HtmlDesign & "	<tr> " & vbCrLf
			HtmlDesign = HtmlDesign & "		<td height=""35"" align=""left"" valign=""top"" background=""" & HomeAliasSL & "images/nvbar_bk.gif?" & GB_STU & """ bgcolor=""#8D9BCC""> " & vbCrLf
			HtmlDesign = HtmlDesign & "			<div id=""BaseL2""></div>" & vbCrLf
	'		HtmlDesign = HtmlDesign & "			<img src=""" & HomeAliasSL & "images/spacer.gif?" & GB_STU & """ width=""1"" height=""1"">" & vbCrLf
			HtmlDesign = HtmlDesign & "		</td>" & vbCrLf
			HtmlDesign = HtmlDesign & "	</tr>" & vbCrLf
			HtmlDesign = HtmlDesign & "	<tr> " & vbCrLf
			HtmlDesign = HtmlDesign & "		<td align=""center"" valign=""top"">" & vbCrLf
			HtmlDesign = HtmlDesign & "			<table width=""100%"" height=""100%"" border=""0"" cellpadding=""0"" cellspacing=""0"">" & vbCrLf
			HtmlDesign = HtmlDesign & "				<tr> " & vbCrLf
			HtmlDesign = HtmlDesign & "					<td width=""10"" height=""30"" valign=""top"" background=""" & HomeAliasSL & "images/mwshd_lc.gif?" & GB_STU & """><img src=""" & HomeAliasSL & "images/mwshd_lu.gif?" & GB_STU & """ width=""10"" height=""10""></td>" & vbCrLf
			HtmlDesign = HtmlDesign & "					<td height=""30"" background=""" & HomeAliasSL & "images/kwin_bk_g.gif?" & GB_STU & """ bgcolor=""" & TmpColor & """>" & vbCrLf

			HtmlDesign = HtmlDesign & "						<table width=""100%"" height=""28"" border=""0"" cellpadding=""0"" cellspacing=""0"">" & vbCrLf
			HtmlDesign = HtmlDesign & "							<tr>" & vbCrLf
			HtmlDesign = HtmlDesign & "								<td width=""10"" height=""28"" valign=""top""><img src=""" & HomeAliasSL & "images/kwin_wvline.gif?" & GB_STU & """ width=""1"" height=""28""></td>" & vbCrLf
			HtmlDesign = HtmlDesign & "								<td height=""28"" valign=""middle"">" & vbCrLf
			HtmlDesign = HtmlDesign & "									<table width=""100%"" height=""25"" border=""0"" cellpadding=""0"" cellspacing=""0"">" & vbCrLf
			HtmlDesign = HtmlDesign & "										<tr>" & vbCrLf
			HtmlDesign = HtmlDesign & "											<td width=""15"" height=""25"" background=""" & HomeAliasSL & "images/kwin_tt_l" & TmpColorObj2 & ".gif?" & GB_STU & """>&nbsp;</td>" & vbCrLf
			HtmlDesign = HtmlDesign & "											<td height=""25"" align=""center"" valign=""middle"" background=""" & HomeAliasSL & "images/kwin_tt_c" & TmpColorObj2 & ".gif?" & GB_STU & """ class=""tx1820b"" style=""color:#FFFFFF; font:bold"">" & vbCrLf
'			HtmlDesign = HtmlDesign & "											<div>" & Spacer(1,2) & "</div>" & vbCrLf	'タイトルバー内の文字ボックスの高さ位置調整
			HtmlDesign = HtmlDesign & "											<div id=""BaseL4""></div>" & vbCrLf
	'		HtmlDesign = HtmlDesign & "											<img src=""" & HomeAliasSL & "images/spacer.gif?" & GB_STU & """ width=""1"" height=""1"">" & vbCrLf
			HtmlDesign = HtmlDesign & "											</td>" & vbCrLf
			HtmlDesign = HtmlDesign & "											<td width=""15"" height=""25"" background=""" & HomeAliasSL & "images/kwin_tt_r" & TmpColorObj2 & ".gif?" & GB_STU & """>&nbsp;</td>" & vbCrLf
			HtmlDesign = HtmlDesign & "											<td width=""6""><img src=""" & HomeAliasSL & "images/spacer.gif?" & GB_STU & """ width=""6"" height=""1""></td>" & vbCrLf
			HtmlDesign = HtmlDesign & "										</tr>" & vbCrLf
			HtmlDesign = HtmlDesign & "									</table>" & vbCrLf
			HtmlDesign = HtmlDesign & "								</td>" & vbCrLf
			HtmlDesign = HtmlDesign & "								<td width=""220"" height=""28"" align=""left"" valign=""top""> " & vbCrLf
			HtmlDesign = HtmlDesign & "									<div id=""BaseL3_1""></div>" & vbCrLf
	'		HtmlDesign = HtmlDesign & "									<img src=""" & HomeAliasSL & "images/spacer.gif?" & GB_STU & """ width=""1"" height=""1"">" & vbCrLf
			HtmlDesign = HtmlDesign & "								</td>" & vbCrLf
			HtmlDesign = HtmlDesign & "								<td width=""210"" height=""28"">" & vbCrLf
	'		HtmlDesign = HtmlDesign & "									<img src=""" & HomeAliasSL & "images/spacer.gif?" & GB_STU & """ width=""1"" height=""1"">" & vbCrLf
			HtmlDesign = HtmlDesign & "								</td>" & vbCrLf
			HtmlDesign = HtmlDesign & "								<td width=""10"" height=""28"" align=""right""><img src=""" & HomeAliasSL & "images/kwin_wvline.gif?" & GB_STU & """ width=""1"" height=""28""></td>" & vbCrLf
			HtmlDesign = HtmlDesign & "							</tr>" & vbCrLf
			HtmlDesign = HtmlDesign & "							<tr>" & vbCrLf
			HtmlDesign = HtmlDesign & "								<td background=""" & HomeAliasSL & "images/kwin_dr_g.gif?" & GB_STU & """><img src=""" & HomeAliasSL & "images/spacer.gif?" & GB_STU & """ width=""1"" height=""1""></td>" & vbCrLf
			HtmlDesign = HtmlDesign & "								<td background=""" & HomeAliasSL & "images/kwin_dr_g.gif?" & GB_STU & """><img src=""" & HomeAliasSL & "images/spacer.gif?" & GB_STU & """ width=""1"" height=""1""></td>" & vbCrLf
			HtmlDesign = HtmlDesign & "								<td background=""" & HomeAliasSL & "images/kwin_dr_g.gif?" & GB_STU & """><img src=""" & HomeAliasSL & "images/spacer.gif?" & GB_STU & """ width=""1"" height=""1""></td>" & vbCrLf
			HtmlDesign = HtmlDesign & "								<td background=""" & HomeAliasSL & "images/kwin_dr_g.gif?" & GB_STU & """><img src=""" & HomeAliasSL & "images/spacer.gif?" & GB_STU & """ width=""1"" height=""1""></td>" & vbCrLf
			HtmlDesign = HtmlDesign & "								<td background=""" & HomeAliasSL & "images/kwin_dr_g.gif?" & GB_STU & """><img src=""" & HomeAliasSL & "images/spacer.gif?" & GB_STU & """ width=""1"" height=""1""></td>" & vbCrLf
			HtmlDesign = HtmlDesign & "							</tr>" & vbCrLf
			HtmlDesign = HtmlDesign & "						</table>" & vbCrLf

			HtmlDesign = HtmlDesign & "					</td>" & vbCrLf
			HtmlDesign = HtmlDesign & "					<td width=""10"" height=""30"" valign=""top"" background=""" & HomeAliasSL & "images/mwshd_rc.gif?" & GB_STU & """><img src=""" & HomeAliasSL & "images/mwshd_ru.gif?" & GB_STU & """ width=""10"" height=""10""></td>" & vbCrLf
			HtmlDesign = HtmlDesign & "				</tr>" & vbCrLf
			HtmlDesign = HtmlDesign & "				<tr> " & vbCrLf
			HtmlDesign = HtmlDesign & "					<td width=""10"" background=""" & HomeAliasSL & "images/mwshd_lc.gif?" & GB_STU & """><img src=""" & HomeAliasSL & "images/spacer.gif?" & GB_STU & """ width=""10"" height=""10""></td>" & vbCrLf
			HtmlDesign = HtmlDesign & "					<td align=""center"" valign=""middle"" bgcolor=""#CED4E9""> " & vbCrLf
			If GB_IEmode <> "1" Then										'非IEは親divをtableにして子をtable-cellにすれば、サイズ100%が潰れてしまうことがなくなる
				HtmlDesign = HtmlDesign & "					" & HttpH0 & "<div style=""display:table;width:100%;height:100%;""><div id=""BaseL0"" style=""display:table-cell;vertical-align:middle;height:100%;""></div></div>" & vbCrLf
			Else
				HtmlDesign = HtmlDesign & "					" & HttpH0 & "<div id=""BaseL0""></div>" & vbCrLf
			End If
	'		HtmlDesign = HtmlDesign & "						 <img src=""" & HomeAliasSL & "images/spacer.gif?" & GB_STU & """ width=""1"" height=""1"">" & vbCrLf
			HtmlDesign = HtmlDesign & "					</td>" & vbCrLf
			HtmlDesign = HtmlDesign & "					<td width=""10"" background=""" & HomeAliasSL & "images/mwshd_rc.gif?" & GB_STU & """><img src=""" & HomeAliasSL & "images/spacer.gif?" & GB_STU & """ width=""10"" height=""10""></td>" & vbCrLf
			HtmlDesign = HtmlDesign & "				</tr>" & vbCrLf
			HtmlDesign = HtmlDesign & "				<tr> " & vbCrLf
			HtmlDesign = HtmlDesign & "					<td width=""10"" height=""10""><img src=""" & HomeAliasSL & "images/mwshd_ld.gif?" & GB_STU & """ width=""10"" height=""10""></td>" & vbCrLf
			HtmlDesign = HtmlDesign & "					<td height=""10"" background=""" & HomeAliasSL & "images/mwshd_CD.gif?" & GB_STU & """><img src=""" & HomeAliasSL & "images/spacer.gif?" & GB_STU & """ width=""10"" height=""10""></td>" & vbCrLf
			HtmlDesign = HtmlDesign & "					<td width=""10"" height=""10""><img src=""" & HomeAliasSL & "images/mwshd_rd.gif?" & GB_STU & """ width=""10"" height=""10""></td>" & vbCrLf
			HtmlDesign = HtmlDesign & "				</tr>" & vbCrLf
			HtmlDesign = HtmlDesign & "			</table>" & vbCrLf
			HtmlDesign = HtmlDesign & "		</td>" & vbCrLf
			HtmlDesign = HtmlDesign & "	</tr>" & vbCrLf
			HtmlDesign = HtmlDesign & "</table>" & vbCrLf
			HtmlDesign = HtmlDesign & "</center>" & vbCrLf

		ElseIf i = 6 Then '受発信文書・メール
			HtmlDesign = ""
			HtmlDesign = HtmlDesign & "<center>" & vbCrLf
			HtmlDesign = HtmlDesign & "<table id=""MainContentsLayer"" width=""100%"" height=""100%"" border=""0"" cellpadding=""0"" cellspacing=""0"">" & vbCrLf
			HtmlDesign = HtmlDesign & "	<tr> " & vbCrLf
			HtmlDesign = HtmlDesign & "		<td height=""34"" valign=""top"" bgcolor=""#8D9BCC"">" & vbCrLf
			HtmlDesign = HtmlDesign & "			<table width=""100%"" height=""34"" border=""0"" cellpadding=""0"" cellspacing=""0"" background=""" & HomeAliasSL & "images/mlttl_bk.gif?" & GB_STU & """>" & vbCrLf
			HtmlDesign = HtmlDesign & "				<tr> " & vbCrLf
			HtmlDesign = HtmlDesign & "					<td align=""center"" valign=""bottom"" width="""">" & vbCrLf
			HtmlDesign = HtmlDesign & "<div id=""BaseL3_2"">&nbsp;</div>" & vbCrLf
			HtmlDesign = HtmlDesign & "					</td>" & vbCrLf
			HtmlDesign = HtmlDesign & "					<td width=""70"" valign=""top""> " & vbCrLf
			HtmlDesign = HtmlDesign & "						<table width=""70"" height=""29"" border=""0"" cellpadding=""0"" cellspacing=""0"">" & vbCrLf
			HtmlDesign = HtmlDesign & "							<tr> " & vbCrLf
			HtmlDesign = HtmlDesign & "								<td width=""70"" height=""29"" background=""" & HomeAliasSL & "images/spbtn_close.gif?" & GB_STU & """ class=""tbtn"" onClick=""" & MailBlink & "ExitFlg=0;top.window.close()"">&nbsp;</td>" & vbCrLf
			HtmlDesign = HtmlDesign & "							</tr>" & vbCrLf
			HtmlDesign = HtmlDesign & "						</table>" & vbCrLf
			HtmlDesign = HtmlDesign & "					</td>" & vbCrLf
'			HtmlDesign = HtmlDesign & "					<td width=""60"" valign=""top""><img src=""" & HomeAliasSL & "images/mlttl_slogo.gif?" & GB_STU & """ width=""60"" height=""25""></td>" & vbCrLf
			HtmlDesign = HtmlDesign & "				</tr>" & vbCrLf
			HtmlDesign = HtmlDesign & "			</table>" & vbCrLf
			HtmlDesign = HtmlDesign & "		</td>" & vbCrLf
			HtmlDesign = HtmlDesign & "	</tr>" & vbCrLf
			HtmlDesign = HtmlDesign & "	<tr> " & vbCrLf
			HtmlDesign = HtmlDesign & "		<td align=""center"" valign=""top""> " & vbCrLf
			HtmlDesign = HtmlDesign & "			<table width=""100%"" height=""100%"" border=""0"" cellpadding=""0"" cellspacing=""0"">" & vbCrLf
			HtmlDesign = HtmlDesign & "				<tr> " & vbCrLf
			HtmlDesign = HtmlDesign & "					<td width=""10"" height=""40"" valign=""top"" background=""" & HomeAliasSL & "images/mwshd_lc.gif?" & GB_STU & """><img src=""" & HomeAliasSL & "images/mwshd_lu.gif?" & GB_STU & """ width=""10"" height=""10""></td>" & vbCrLf
			HtmlDesign = HtmlDesign & "					<td height=""40"" valign=""bottom"" bgcolor=""#FFFFFF""> " & vbCrLf
			HtmlDesign = HtmlDesign & "						<table width=""100%"" height=""35"" border=""0"" cellpadding=""0"" cellspacing=""0"">" & vbCrLf
			HtmlDesign = HtmlDesign & "							<tr> " & vbCrLf
			HtmlDesign = HtmlDesign & "								<td width=""1"" valign=""top"" background=""" & HomeAliasSL & "images/kwin_dl_g.gif?" & GB_STU & """> " & vbCrLf
			HtmlDesign = HtmlDesign & "									<table width=""1"" height=""27"" border=""0"" cellpadding=""0"" cellspacing=""0"" bgcolor=""#33CC99"">" & vbCrLf
			HtmlDesign = HtmlDesign & "										<tr> " & vbCrLf
			HtmlDesign = HtmlDesign & "											<td width=""10"" height=""27"" background=""" & HomeAliasSL & "images/mlttl_wzl.gif?" & GB_STU & """ class=""tx1416b"" style=""color:#FFFFFF"">" & Spacer(10,1) & "</td>" & vbCrLf
'			HtmlDesign = HtmlDesign & "											<td height=""25"" background=""" & HomeAliasSL & "images/mlttl_wzc.gif?" & GB_STU & """ class=""tx1214b"" style=""color:#FFFFFF""><b>" & KaisyaRyakuMeisyo & "</b>"
			TmpKaishaMeisho = KaisyaRyakuMeisyo
			If KaisyaMeisyo <> "" Then
				TmpKaishaMeisho = KaisyaMeisyo
			End If
			If Len(TmpKaishaMeisho) > 16 Then
				TmpKaishaMeisho = "<span style=""font-size:14px;"">" & TmpKaishaMeisho & "</span>"
			End If
'			HtmlDesign = HtmlDesign & "											<td height=""27"" background=""" & HomeAliasSL & "images/mlttl_wzc.gif?" & GB_STU & """ class=""tx1618"" style=""color:#FFFFFF""><nobr><b>" & KaisyaMeisyo & "</b>"
			If GB_CSS = "EC" Then
				HtmlDesign = HtmlDesign & "											<td height=""27"" background=""" & HomeAliasSL & "images/mlttl_wzc.gif?" & GB_STU & """ class=""tx1618"" style=""color:#FFFFFF""><nobr>" & TmpKaishaMeisho & ""
			Else
				HtmlDesign = HtmlDesign & "											<td height=""27"" background=""" & HomeAliasSL & "images/mlttl_wzc.gif?" & GB_STU & """ class=""tx1618"" style=""color:#FFFFFF""><nobr><b>" & TmpKaishaMeisho & "</b>"
			End If
			If PackageMode = 1 Or GB_Admin => 1 Then
			Else
				HtmlDesign = HtmlDesign & "<span class=""tx1416"">[" & ConvShijyoName(GB_EnshuCD, GB_ShijyoCD) & "]</span>"
			End If
			HtmlDesign = HtmlDesign & "</nobr></td>" & vbCrLf
			HtmlDesign = HtmlDesign & "											<td width=""25"" height=""27"" background=""" & HomeAliasSL & "images/mlttl_wzr1.gif?" & GB_STU & """ class=""tx1416b"" style=""color:#FFFFFF"">" & Spacer(25,1) & "</td>" & vbCrLf
			HtmlDesign = HtmlDesign & "											<td width=""1"" height=""27"" bgcolor=""#FFFFFF"">" & Spacer(25,1) & "</td>" & vbCrLf
			HtmlDesign = HtmlDesign & "										</tr>" & vbCrLf
			HtmlDesign = HtmlDesign & "									</table>" & vbCrLf
			HtmlDesign = HtmlDesign & "								</td>" & vbCrLf
			HtmlDesign = HtmlDesign & "								<td valign=""top"" background=""" & HomeAliasSL & "images/kwin_dl_g.gif?" & GB_STU & """>" & vbCrLf
			HtmlDesign = HtmlDesign & "									<div>" & Spacer(1,1) & "</div>" & vbCrLf
			HtmlDesign = HtmlDesign & "									<table width=""100%"" height=""25"" border=""0"" cellpadding=""0"" cellspacing=""0"">" & vbCrLf
			HtmlDesign = HtmlDesign & "										<tr> " & vbCrLf
			HtmlDesign = HtmlDesign & "											<td width=""19"" height=""25"" background=""" & HomeAliasSL & "images/mlttl_bkl.gif?" & GB_STU & """ class=""tx1416b"">&nbsp;</td>" & vbCrLf
			HtmlDesign = HtmlDesign & "											<td height=""25"" align=""center"" background=""" & HomeAliasSL & "images/mlttl_bkc.gif?" & GB_STU & """ class=""tx1618b""><div>" & Spacer(1,1) & "</div><div id=""BaseL4""></div></td>" & vbCrLf
			HtmlDesign = HtmlDesign & "											<td width=""19"" height=""25"" background=""" & HomeAliasSL & "images/mlttl_bkr.gif?" & GB_STU & """ class=""tx1416b"">&nbsp;</td>" & vbCrLf
			HtmlDesign = HtmlDesign & "										</tr>" & vbCrLf
			HtmlDesign = HtmlDesign & "									</table>" & vbCrLf
			HtmlDesign = HtmlDesign & "								</td>" & vbCrLf
			HtmlDesign = HtmlDesign & "								<td width=""100"" align=""center"" valign=""top"" background=""" & HomeAliasSL & "images/kwin_dl_g.gif?" & GB_STU & """><div id=""BaseL2""></div>" & vbCrLf
			HtmlDesign = HtmlDesign & "								</td>" & vbCrLf
			HtmlDesign = HtmlDesign & "								<td width=""30"" background=""" & HomeAliasSL & "images/kwin_dc_g.gif?" & GB_STU & """>&nbsp;</td>" & vbCrLf
			HtmlDesign = HtmlDesign & "								<td width=""230"" align=""center"" valign=""bottom"" background=""" & HomeAliasSL & "images/kwin_dr_g.gif?" & GB_STU & """> " & vbCrLf
			HtmlDesign = HtmlDesign & "								<div id=""BaseL3_1""></div>" & vbCrLf
			HtmlDesign = HtmlDesign & "								</td>" & vbCrLf
			HtmlDesign = HtmlDesign & "							</tr>" & vbCrLf
			HtmlDesign = HtmlDesign & "						</table>" & vbCrLf
			HtmlDesign = HtmlDesign & "					</td>" & vbCrLf
			HtmlDesign = HtmlDesign & "					<td width=""10"" height=""40"" valign=""top"" background=""" & HomeAliasSL & "images/mwshd_rc.gif?" & GB_STU & """><img src=""" & HomeAliasSL & "images/mwshd_ru.gif?" & GB_STU & """ width=""10"" height=""10""></td>" & vbCrLf
			HtmlDesign = HtmlDesign & "				</tr>" & vbCrLf
			HtmlDesign = HtmlDesign & "				<tr> " & vbCrLf
			HtmlDesign = HtmlDesign & "					<td width=""10"" background=""" & HomeAliasSL & "images/mwshd_lc.gif?" & GB_STU & """><img src=""" & HomeAliasSL & "images/spacer.gif?" & GB_STU & """ width=""10"" height=""10""></td>" & vbCrLf
			HtmlDesign = HtmlDesign & "					<td align=""center"" valign=""middle"" bgcolor=""#CED4E9""> " & vbCrLf
			If GB_IEmode <> "1" Then										'非IEは親divをtableにして子をtable-cellにすれば、サイズ100%が潰れてしまうことがなくなる
				HtmlDesign = HtmlDesign & "					" & HttpH0 & "<div style=""display:table;width:100%;height:100%;""><div id=""BaseL0"" style=""display:table-cell;vertical-align:middle;height:100%;""></div></div>" & vbCrLf
			Else
				HtmlDesign = HtmlDesign & "					" & HttpH0 & "<div id=""BaseL0""></div>" & vbCrLf
			End If
			HtmlDesign = HtmlDesign & "					</td>" & vbCrLf
			HtmlDesign = HtmlDesign & "					<td width=""10"" background=""" & HomeAliasSL & "images/mwshd_rc.gif?" & GB_STU & """><img src=""" & HomeAliasSL & "images/spacer.gif?" & GB_STU & """ width=""10"" height=""10""></td>" & vbCrLf
			HtmlDesign = HtmlDesign & "				</tr>" & vbCrLf
			HtmlDesign = HtmlDesign & "				<tr> " & vbCrLf
			HtmlDesign = HtmlDesign & "					<td width=""10"" height=""10""><img src=""" & HomeAliasSL & "images/mwshd_ld.gif?" & GB_STU & """ width=""10"" height=""10""></td>" & vbCrLf
			HtmlDesign = HtmlDesign & "					<td height=""10"" background=""" & HomeAliasSL & "images/mwshd_CD.gif?" & GB_STU & """><img src=""" & HomeAliasSL & "images/spacer.gif?" & GB_STU & """ width=""10"" height=""10""></td>" & vbCrLf
			HtmlDesign = HtmlDesign & "					<td width=""10"" height=""10""><img src=""" & HomeAliasSL & "images/mwshd_rd.gif?" & GB_STU & """ width=""10"" height=""10""></td>" & vbCrLf
			HtmlDesign = HtmlDesign & "				</tr>" & vbCrLf
			HtmlDesign = HtmlDesign & "			</table>" & vbCrLf
			HtmlDesign = HtmlDesign & "		</td>" & vbCrLf
			HtmlDesign = HtmlDesign & "	</tr>" & vbCrLf
			HtmlDesign = HtmlDesign & "</table>" & vbCrLf
			HtmlDesign = HtmlDesign & "</center>" & vbCrLf

		ElseIf i = 5 Then	'記帳チェック
			HtmlDesign = ""
			HtmlDesign = HtmlDesign & "<center>" & vbCrLf
			HtmlDesign = HtmlDesign & "<table id=""MainContentsLayer"" width=""100%"" height=""100%"" border=""0"" cellpadding=""0"" cellspacing=""0"">" & vbCrLf
			HtmlDesign = HtmlDesign & "	<tr> " & vbCrLf
			HtmlDesign = HtmlDesign & "		<td height=""34"" valign=""top""> " & vbCrLf
			HtmlDesign = HtmlDesign & "			<table width=""100%"" height=""34"" border=""0"" cellpadding=""0"" cellspacing=""0"" background=""" & HomeAliasSL & "images/mlttl_bk.gif?" & GB_STU & """>" & vbCrLf
			HtmlDesign = HtmlDesign & "				<tr> " & vbCrLf
			HtmlDesign = HtmlDesign & "					<td width=""70"">&nbsp;</td>" & vbCrLf
			HtmlDesign = HtmlDesign & "					<td align=""center"" valign=""bottom"">&nbsp; </td>" & vbCrLf
			HtmlDesign = HtmlDesign & "					<td width=""70"" valign=""top""> " & vbCrLf
			HtmlDesign = HtmlDesign & "						<table width=""70"" height=""29"" border=""0"" cellpadding=""0"" cellspacing=""0"">" & vbCrLf
			HtmlDesign = HtmlDesign & "							<tr> " & vbCrLf
			HtmlDesign = HtmlDesign & "								<td width=""70"" height=""29"" background=""" & HomeAliasSL & "images/spbtn_close.gif?" & GB_STU & """ class=""tbtn"" onClick=""ExitFlg=0;top.window.close();"">&nbsp;</td>" & vbCrLf
			HtmlDesign = HtmlDesign & "							</tr>" & vbCrLf
			HtmlDesign = HtmlDesign & "						</table>" & vbCrLf
			HtmlDesign = HtmlDesign & "					</td>" & vbCrLf
			HtmlDesign = HtmlDesign & "				</tr>" & vbCrLf
			HtmlDesign = HtmlDesign & "			</table>" & vbCrLf
			HtmlDesign = HtmlDesign & "		</td>" & vbCrLf
			HtmlDesign = HtmlDesign & "	</tr>" & vbCrLf
			HtmlDesign = HtmlDesign & "	<tr> " & vbCrLf
			HtmlDesign = HtmlDesign & "		<td align=""center"" valign=""top""> " & vbCrLf
			HtmlDesign = HtmlDesign & "			<table width=""100%"" height=""100%"" border=""0"" cellpadding=""0"" cellspacing=""0"">" & vbCrLf
			HtmlDesign = HtmlDesign & "				<tr> " & vbCrLf
			HtmlDesign = HtmlDesign & "					<td width=""10"" height=""75"" valign=""top"" background=""" & HomeAliasSL & "images/mwshd_lc.gif?" & GB_STU & """><img src=""" & HomeAliasSL & "images/mwshd_lu.gif?" & GB_STU & """ width=""10"" height=""10""></td>" & vbCrLf
			HtmlDesign = HtmlDesign & "					<td height=""75"">" & vbCrLf
			HtmlDesign = HtmlDesign & "						<table width=""100%"" height=""35"" border=""0"" cellpadding=""0"" cellspacing=""0"" background=""" & HomeAliasSL & "images/kwin_bk_ss.gif?" & GB_STU & """ bgcolor=""#8C7546"">" & vbCrLf
			HtmlDesign = HtmlDesign & "							<tr> " & vbCrLf
			HtmlDesign = HtmlDesign & "								<td width=""10"" height=""35""><img src=""" & HomeAliasSL & "images/kwin_wvline.gif?" & GB_STU & """ width=""1"" height=""35""></td>" & vbCrLf
			HtmlDesign = HtmlDesign & "								<td width=""30"" height=""35"" valign=""middle""><img src=""" & HomeAliasSL & "images/ssw_icon_01.gif?" & GB_STU & """ width=""30"" height=""30""></td>" & vbCrLf
			HtmlDesign = HtmlDesign & "								<td width=""100"" height=""35"" valign=""middle"" class=""tx1820b"" style=""color:#FFFFFF"">&nbsp;チェック</td>" & vbCrLf
			HtmlDesign = HtmlDesign & "								<td height=""35"" align=""center"" valign=""bottom""> " & vbCrLf
			HtmlDesign = HtmlDesign & "								<div id=""BaseL2""></div>" & vbCrLf
			HtmlDesign = HtmlDesign & "								<img src=""" & HomeAliasSL & "images/spacer.gif?" & GB_STU & """ width=""1"" height=""1""></td>" & vbCrLf
'			HtmlDesign = HtmlDesign & "								<td width=""220"" height=""35"">&nbsp;</td>" & vbCrLf
			If GB_CSS = "EC" Then
				HtmlDesign = HtmlDesign & "								<td width=""1"" height=""35"" style=""color:#FFFFFF"" class=""tx1618"" align=""right""><nobr>" & KaisyaMeisyo & ""
			Else
				HtmlDesign = HtmlDesign & "								<td width=""1"" height=""35"" style=""color:#FFFFFF"" class=""tx1618"" align=""right""><nobr><b>" & KaisyaMeisyo & "</b>"
			End If
			If PackageMode = 1 Or GB_Admin => 1 Then
			Else
				HtmlDesign = HtmlDesign & "<span class=""tx1214"">[" & ConvShijyoName(GB_EnshuCD, GB_ShijyoCD) & "]</span>"
			End If
			HtmlDesign = HtmlDesign & "</nobr></td>" & vbCrLf
			HtmlDesign = HtmlDesign & "								<td width=""10"" height=""35"" align=""right""><img src=""" & HomeAliasSL & "images/kwin_wvline.gif?" & GB_STU & """ width=""1"" height=""35""></td>" & vbCrLf
			HtmlDesign = HtmlDesign & "							</tr>" & vbCrLf
			HtmlDesign = HtmlDesign & "						</table>" & vbCrLf
			HtmlDesign = HtmlDesign & "						<table width=""100%"" height=""40"" border=""0"" cellpadding=""0"" cellspacing=""0"" bgcolor=""" & TmpColor & """>" & vbCrLf
			HtmlDesign = HtmlDesign & "							<tr> " & vbCrLf
			HtmlDesign = HtmlDesign & "								<td width=""10"" height=""5""><img src=""" & HomeAliasSL & "images/kwin_wvline.gif?" & GB_STU & """ width=""1"" height=""5""></td>" & vbCrLf
			HtmlDesign = HtmlDesign & "								<td height=""5"" align=""right""><img src=""" & HomeAliasSL & "images/kwin_wvline.gif?" & GB_STU & """ width=""1"" height=""5""></td>" & vbCrLf
			HtmlDesign = HtmlDesign & "							</tr>" & vbCrLf
			HtmlDesign = HtmlDesign & "							<tr> " & vbCrLf
			HtmlDesign = HtmlDesign & "								<td width=""10"" height=""35"" valign=""top"" background=""" & HomeAliasSL & "images/kwin_dl_g.gif?" & GB_STU & """><img src=""" & HomeAliasSL & "images/kwin_wvline.gif?" & GB_STU & """ width=""1"" height=""30""></td>" & vbCrLf
			HtmlDesign = HtmlDesign & "								<td height=""35"">" & vbCrLf
			HtmlDesign = HtmlDesign & "									<table width=""100%"" height=""35"" border=""0"" cellpadding=""0"" cellspacing=""0"" background=""" & HomeAliasSL & "images/kwin_dl_g.gif?" & GB_STU & """>" & vbCrLf
			HtmlDesign = HtmlDesign & "										<tr> " & vbCrLf
			HtmlDesign = HtmlDesign & "											<td height=""35"" valign=""top""> " & vbCrLf
			HtmlDesign = HtmlDesign & "												<table width=""100%"" height=""25"" border=""0"" cellpadding=""0"" cellspacing=""0"">" & vbCrLf
			HtmlDesign = HtmlDesign & "													<tr> " & vbCrLf
			HtmlDesign = HtmlDesign & "														<td width=""15"" height=""25"" background=""" & HomeAliasSL & "images/kwin_tt_l" & TmpColorObj2 & ".gif?" & GB_STU & """>&nbsp;</td>" & vbCrLf
			HtmlDesign = HtmlDesign & "														<td nowrap height=""25"" align=""center"" valign=""middle"" background=""" & HomeAliasSL & "images/kwin_tt_c" & TmpColorObj2 & ".gif?" & GB_STU & """ class=""tx1820b"" style=""color:#FFFFFF; font:bold"">" & vbCrLf
'			HtmlDesign = HtmlDesign & "															<div>" & Spacer(1,2) & "</div>" & vbCrLf	'タイトルバー内の文字ボックスの高さ位置調整
			HtmlDesign = HtmlDesign & "															<div id=""BaseL4""></div>" & vbCrLf
			HtmlDesign = HtmlDesign & "															<img src=""" & HomeAliasSL & "images/spacer.gif?" & GB_STU & """ width=""1"" height=""1""></td>" & vbCrLf
			HtmlDesign = HtmlDesign & "														<td width=""15"" height=""25"" background=""" & HomeAliasSL & "images/kwin_tt_r" & TmpColorObj2 & ".gif?" & GB_STU & """>&nbsp;</td>" & vbCrLf
			HtmlDesign = HtmlDesign & "														<td width=""6""><img src=""" & HomeAliasSL & "images/spacer.gif?" & GB_STU & """ width=""6"" height=""1""></td>" & vbCrLf
			HtmlDesign = HtmlDesign & "													</tr>" & vbCrLf
			HtmlDesign = HtmlDesign & "												</table>" & vbCrLf
			HtmlDesign = HtmlDesign & "											</td>" & vbCrLf
			HtmlDesign = HtmlDesign & "											<td width=""180"" height=""35"" align=""right"" valign=""top""> " & vbCrLf
			HtmlDesign = HtmlDesign & "										 <div id=""BaseL3_2""></div>" & vbCrLf
			HtmlDesign = HtmlDesign & "											<img src=""" & HomeAliasSL & "images/spacer.gif?" & GB_STU & """ width=""1"" height=""1""></td>" & vbCrLf
			HtmlDesign = HtmlDesign & "											<td width=""30"" height=""36"" background=""" & HomeAliasSL & "images/kwin_dc_g.gif?" & GB_STU & """>&nbsp;</td>" & vbCrLf
			HtmlDesign = HtmlDesign & "											<td width=""180"" valign=""bottom"" background=""" & HomeAliasSL & "images/kwin_dr_g.gif?" & GB_STU & """>" & vbCrLf
			HtmlDesign = HtmlDesign & "										 <div id=""BaseL3_1""></div>" & vbCrLf
			HtmlDesign = HtmlDesign & "											<img src=""" & HomeAliasSL & "images/spacer.gif?" & GB_STU & """ width=""1"" height=""1""></td>" & vbCrLf
			HtmlDesign = HtmlDesign & "										</tr>" & vbCrLf
			HtmlDesign = HtmlDesign & "									</table>" & vbCrLf
			HtmlDesign = HtmlDesign & "								</td>" & vbCrLf
			HtmlDesign = HtmlDesign & "							</tr>" & vbCrLf
			HtmlDesign = HtmlDesign & "						</table>" & vbCrLf
			HtmlDesign = HtmlDesign & "					</td>" & vbCrLf
			HtmlDesign = HtmlDesign & "					<td width=""10"" height=""70"" valign=""top"" background=""" & HomeAliasSL & "images/mwshd_rc.gif?" & GB_STU & """><img src=""" & HomeAliasSL & "images/mwshd_ru.gif?" & GB_STU & """ width=""10"" height=""10""></td>" & vbCrLf
			HtmlDesign = HtmlDesign & "				</tr>" & vbCrLf
			HtmlDesign = HtmlDesign & "				<tr> " & vbCrLf
			HtmlDesign = HtmlDesign & "					<td width=""10"" background=""" & HomeAliasSL & "images/mwshd_lc.gif?" & GB_STU & """><img src=""" & HomeAliasSL & "images/spacer.gif?" & GB_STU & """ width=""10"" height=""10""></td>" & vbCrLf
			HtmlDesign = HtmlDesign & "					<td align=""center"" valign=""middle"" bgcolor=""#CED4E9"">" & vbCrLf
			If GB_IEmode <> "1" Then										'非IEは親divをtableにして子をtable-cellにすれば、サイズ100%が潰れてしまうことがなくなる
				HtmlDesign = HtmlDesign & "					" & HttpH0 & "<div style=""display:table;width:100%;height:100%;""><div id=""BaseL0"" style=""display:table-cell;vertical-align:middle;height:100%;""></div></div>" & vbCrLf
			Else
				HtmlDesign = HtmlDesign & "					" & HttpH0 & "<div id=""BaseL0""></div>" & vbCrLf
			End If
			HtmlDesign = HtmlDesign & "					</td>" & vbCrLf
			HtmlDesign = HtmlDesign & "					<td width=""10"" background=""" & HomeAliasSL & "images/mwshd_rc.gif?" & GB_STU & """><img src=""" & HomeAliasSL & "images/spacer.gif?" & GB_STU & """ width=""10"" height=""10""></td>" & vbCrLf
			HtmlDesign = HtmlDesign & "				</tr>" & vbCrLf
			HtmlDesign = HtmlDesign & "				<tr> " & vbCrLf
			HtmlDesign = HtmlDesign & "					<td width=""10"" height=""10""><img src=""" & HomeAliasSL & "images/mwshd_ld.gif?" & GB_STU & """ width=""10"" height=""10""></td>" & vbCrLf
			HtmlDesign = HtmlDesign & "					<td height=""10"" background=""" & HomeAliasSL & "images/mwshd_CD.gif?" & GB_STU & """><img src=""" & HomeAliasSL & "images/spacer.gif?" & GB_STU & """ width=""10"" height=""10""></td>" & vbCrLf
			HtmlDesign = HtmlDesign & "					<td width=""10"" height=""10""><img src=""" & HomeAliasSL & "images/mwshd_rd.gif?" & GB_STU & """ width=""10"" height=""10""></td>" & vbCrLf
			HtmlDesign = HtmlDesign & "				</tr>" & vbCrLf
			HtmlDesign = HtmlDesign & "			</table>" & vbCrLf
			HtmlDesign = HtmlDesign & "		</td>" & vbCrLf
			HtmlDesign = HtmlDesign & "	</tr>" & vbCrLf
			HtmlDesign = HtmlDesign & "</table>" & vbCrLf
			HtmlDesign = HtmlDesign & "</center>" & vbCrLf

		ElseIf i = 4 Then '照会集計(RouteType="ViewOnly")
			HtmlDesign = ""
			HtmlDesign = HtmlDesign & "<center>" & vbCrLf
			HtmlDesign = HtmlDesign & "<table id=""MainContentsLayer"" width=""100%"" height=""100%"" border=""0"" cellpadding=""0"" cellspacing=""0"">" & vbCrLf
			HtmlDesign = HtmlDesign & "	<tr> " & vbCrLf
			HtmlDesign = HtmlDesign & "		<td height=""34"" valign=""top"">" & vbCrLf
			HtmlDesign = HtmlDesign & "			<table width=""100%"" height=""34"" border=""0"" cellpadding=""0"" cellspacing=""0"" background=""" & HomeAliasSL & "images/mlttl_bk.gif?" & GB_STU & """>" & vbCrLf
			HtmlDesign = HtmlDesign & "				<tr> " & vbCrLf
			HtmlDesign = HtmlDesign & "					<td width=""60"">&nbsp;</td>" & vbCrLf
			HtmlDesign = HtmlDesign & "					<td align=""center"" valign=""bottom"">&nbsp; </td>" & vbCrLf
			HtmlDesign = HtmlDesign & "					<td width=""70"" valign=""top""> " & vbCrLf
			HtmlDesign = HtmlDesign & "						<table width=""70"" height=""25"" border=""0"" cellpadding=""0"" cellspacing=""0"">" & vbCrLf
			HtmlDesign = HtmlDesign & "							<tr> " & vbCrLf
			HtmlDesign = HtmlDesign & "								<td width=""70"" height=""25"" background=""" & HomeAliasSL & "images/spbtn_close.gif?" & GB_STU & """ class=""tbtn"" onClick=""ExitFlg=0;top.window.close();"">&nbsp;</td>" & vbCrLf
			HtmlDesign = HtmlDesign & "							</tr>" & vbCrLf
			HtmlDesign = HtmlDesign & "						</table>" & vbCrLf
			HtmlDesign = HtmlDesign & "					</td>" & vbCrLf
			HtmlDesign = HtmlDesign & "				</tr>" & vbCrLf
			HtmlDesign = HtmlDesign & "			</table>" & vbCrLf
			HtmlDesign = HtmlDesign & "		</td>" & vbCrLf
			HtmlDesign = HtmlDesign & "	</tr>" & vbCrLf
			HtmlDesign = HtmlDesign & "	<tr> " & vbCrLf
			HtmlDesign = HtmlDesign & "		<td align=""center"" valign=""top""> " & vbCrLf
			HtmlDesign = HtmlDesign & "			<table width=""100%"" height=""100%"" border=""0"" cellpadding=""0"" cellspacing=""0"">" & vbCrLf
			HtmlDesign = HtmlDesign & "				<tr> " & vbCrLf
			HtmlDesign = HtmlDesign & "					<td width=""10"" height=""76"" valign=""top"" background=""" & HomeAliasSL & "images/mwshd_lc.gif?" & GB_STU & """><img src=""" & HomeAliasSL & "images/mwshd_lu.gif?" & GB_STU & """ width=""10"" height=""10""></td>" & vbCrLf
			HtmlDesign = HtmlDesign & "					<td height=""70"">" & vbCrLf
			HtmlDesign = HtmlDesign & "						<table width=""100%"" height=""35"" border=""0"" cellpadding=""0"" cellspacing=""0"" background=""" & HomeAliasSL & "images/kwin_bk_ss.gif?" & GB_STU & """ bgcolor=""#8C7546"">" & vbCrLf
			HtmlDesign = HtmlDesign & "							<tr> " & vbCrLf
			HtmlDesign = HtmlDesign & "								<td width=""10"" height=""35""><img src=""" & HomeAliasSL & "images/kwin_wvline.gif?" & GB_STU & """ width=""1"" height=""35""></td>" & vbCrLf
			HtmlDesign = HtmlDesign & "								<td width=""30"" height=""35"" valign=""middle""><img src=""" & HomeAliasSL & "images/ssw_icon_01.gif?" & GB_STU & """ width=""30"" height=""30""></td>" & vbCrLf
			HtmlDesign = HtmlDesign & "								<td width=""100"" height=""35"" valign=""middle"" class=""tx1820b"" style=""color:#FFFFFF"">&nbsp;照会・集計</td>" & vbCrLf
			HtmlDesign = HtmlDesign & "								<td height=""35"" align=""center"" valign=""bottom""> " & vbCrLf
			HtmlDesign = HtmlDesign & "								<div id=""BaseL2""></div>" & vbCrLf
			HtmlDesign = HtmlDesign & "								<img src=""" & HomeAliasSL & "images/spacer.gif?" & GB_STU & """ width=""1"" height=""1""></td>" & vbCrLf
'			HtmlDesign = HtmlDesign & "								<td width=""220"" height=""35"" style=""color:#FFFFFF"" class=""tx1214"" align=""right""><b>" & KaisyaRyakuMeisyo & "</b>"
			If GB_CSS = "EC" Then
				HtmlDesign = HtmlDesign & "								<td width=""1"" height=""35"" style=""color:#FFFFFF"" class=""tx1618"" align=""right""><nobr>" & KaisyaMeisyo & ""
			Else
				HtmlDesign = HtmlDesign & "								<td width=""1"" height=""35"" style=""color:#FFFFFF"" class=""tx1618"" align=""right""><nobr><b>" & KaisyaMeisyo & "</b>"
			End If
			If PackageMode = 1 Or GB_Admin => 1 Then
			Else
				HtmlDesign = HtmlDesign & "<span class=""tx1214"">[" & ConvShijyoName(GB_EnshuCD, GB_ShijyoCD) & "]</span>"
			End If
			HtmlDesign = HtmlDesign & "</nobr></td>" & vbCrLf
			HtmlDesign = HtmlDesign & "								<td width=""10"" height=""35"" align=""right""><img src=""" & HomeAliasSL & "images/kwin_wvline.gif?" & GB_STU & """ width=""1"" height=""35""></td>" & vbCrLf
			HtmlDesign = HtmlDesign & "							</tr>" & vbCrLf
			HtmlDesign = HtmlDesign & "						</table>" & vbCrLf
			HtmlDesign = HtmlDesign & "						<table width=""100%"" height=""40"" border=""0"" cellpadding=""0"" cellspacing=""0"" bgcolor=""" & TmpColor & """>" & vbCrLf
			HtmlDesign = HtmlDesign & "							<tr> " & vbCrLf
			HtmlDesign = HtmlDesign & "								<td width=""10"" height=""5""><img src=""" & HomeAliasSL & "images/kwin_wvline.gif?" & GB_STU & """ width=""1"" height=""5""></td>" & vbCrLf
			HtmlDesign = HtmlDesign & "								<td height=""5"" align=""right""><img src=""" & HomeAliasSL & "images/kwin_wvline.gif?" & GB_STU & """ width=""1"" height=""5""></td>" & vbCrLf
			HtmlDesign = HtmlDesign & "							</tr>" & vbCrLf
			HtmlDesign = HtmlDesign & "							<tr> " & vbCrLf
			HtmlDesign = HtmlDesign & "								<td width=""10"" height=""35"" valign=""top"" background=""" & HomeAliasSL & "images/kwin_dl_g.gif?" & GB_STU & """><img src=""" & HomeAliasSL & "images/kwin_wvline.gif?" & GB_STU & """ width=""1"" height=""30""></td>" & vbCrLf
			HtmlDesign = HtmlDesign & "								<td height=""35"">" & vbCrLf
			HtmlDesign = HtmlDesign & "									<table width=""100%"" height=""35"" border=""0"" cellpadding=""0"" cellspacing=""0"" background=""" & HomeAliasSL & "images/kwin_dl_g.gif?" & GB_STU & """>" & vbCrLf
			HtmlDesign = HtmlDesign & "										<tr> " & vbCrLf
			HtmlDesign = HtmlDesign & "											<td height=""35"" valign=""top""> " & vbCrLf
			HtmlDesign = HtmlDesign & "												<table width=""100%"" height=""25"" border=""0"" cellpadding=""0"" cellspacing=""0"">" & vbCrLf
			HtmlDesign = HtmlDesign & "													<tr> " & vbCrLf
			HtmlDesign = HtmlDesign & "														<td width=""15"" height=""25"" background=""" & HomeAliasSL & "images/kwin_tt_l" & TmpColorObj2 & ".gif?" & GB_STU & """>&nbsp;</td>" & vbCrLf
			HtmlDesign = HtmlDesign & "														<td nowrap height=""25"" align=""center"" valign=""middle"" background=""" & HomeAliasSL & "images/kwin_tt_c" & TmpColorObj2 & ".gif?" & GB_STU & """ class=""tx1820b"" style=""color:#FFFFFF; font:bold"">" & vbCrLf
'			HtmlDesign = HtmlDesign & "															<div>" & Spacer(1,2) & "</div>" & vbCrLf	'タイトルバー内の文字ボックスの高さ位置調整
			HtmlDesign = HtmlDesign & "															<div id=""BaseL4""></div>" & vbCrLf
			HtmlDesign = HtmlDesign & "															<img src=""" & HomeAliasSL & "images/spacer.gif?" & GB_STU & """ width=""1"" height=""1""></td>" & vbCrLf
			HtmlDesign = HtmlDesign & "														<td width=""15"" height=""25"" background=""" & HomeAliasSL & "images/kwin_tt_r" & TmpColorObj2 & ".gif?" & GB_STU & """>&nbsp;</td>" & vbCrLf
			HtmlDesign = HtmlDesign & "														<td width=""6""><img src=""" & HomeAliasSL & "images/spacer.gif?" & GB_STU & """ width=""6"" height=""1""></td>" & vbCrLf
			HtmlDesign = HtmlDesign & "													</tr>" & vbCrLf
			HtmlDesign = HtmlDesign & "												</table>" & vbCrLf
			HtmlDesign = HtmlDesign & "											</td>" & vbCrLf
			HtmlDesign = HtmlDesign & "											<td width=""180"" height=""35"" align=""right"" valign=""top"">" & vbCrLf
			HtmlDesign = HtmlDesign & "												<div id=""BaseL3_2""></div>" & vbCrLf
			HtmlDesign = HtmlDesign & "											<img src=""" & HomeAliasSL & "images/spacer.gif?" & GB_STU & """ width=""1"" height=""1""></td>" & vbCrLf
			HtmlDesign = HtmlDesign & "											<td width=""30"" height=""35"" background=""" & HomeAliasSL & "images/kwin_dc_g.gif?" & GB_STU & """>&nbsp;</td>" & vbCrLf
			HtmlDesign = HtmlDesign & "											<td width=""180"" height=""36"" valign=""bottom"" background=""" & HomeAliasSL & "images/kwin_dr_g.gif?" & GB_STU & """>" & vbCrLf
			HtmlDesign = HtmlDesign & "												<div id=""BaseL3_1""></div>" & vbCrLf
			HtmlDesign = HtmlDesign & "											<img src=""" & HomeAliasSL & "images/spacer.gif?" & GB_STU & """ width=""1"" height=""1""></td>" & vbCrLf
			HtmlDesign = HtmlDesign & "										</tr>" & vbCrLf
			HtmlDesign = HtmlDesign & "									</table>" & vbCrLf
			HtmlDesign = HtmlDesign & "								</td>" & vbCrLf
			HtmlDesign = HtmlDesign & "							</tr>" & vbCrLf
			HtmlDesign = HtmlDesign & "						</table>" & vbCrLf
			HtmlDesign = HtmlDesign & "					</td>" & vbCrLf
			HtmlDesign = HtmlDesign & "					<td width=""10"" height=""70"" valign=""top"" background=""" & HomeAliasSL & "images/mwshd_rc.gif?" & GB_STU & """><img src=""" & HomeAliasSL & "images/mwshd_ru.gif?" & GB_STU & """ width=""10"" height=""10""></td>" & vbCrLf
			HtmlDesign = HtmlDesign & "				</tr>" & vbCrLf
			HtmlDesign = HtmlDesign & "				<tr> " & vbCrLf
			HtmlDesign = HtmlDesign & "					<td width=""10"" background=""" & HomeAliasSL & "images/mwshd_lc.gif?" & GB_STU & """><img src=""" & HomeAliasSL & "images/spacer.gif?" & GB_STU & """ width=""10"" height=""10""></td>" & vbCrLf
			HtmlDesign = HtmlDesign & "					<td align=""center"" valign=""middle"" bgcolor=""#CED4E9"">" & vbCrLf
			If GB_IEmode <> "1" Then										'非IEは親divをtableにして子をtable-cellにすれば、サイズ100%が潰れてしまうことがなくなる
				HtmlDesign = HtmlDesign & "					" & HttpH0 & "<div style=""display:table;width:100%;height:100%;""><div id=""BaseL0"" style=""display:table-cell;vertical-align:middle;height:100%;""></div></div>" & vbCrLf
			Else
				HtmlDesign = HtmlDesign & "					" & HttpH0 & "<div id=""BaseL0""></div>" & vbCrLf
			End If
			HtmlDesign = HtmlDesign & "					</td>" & vbCrLf
			HtmlDesign = HtmlDesign & "					<td width=""10"" background=""" & HomeAliasSL & "images/mwshd_rc.gif?" & GB_STU & """><img src=""" & HomeAliasSL & "images/spacer.gif?" & GB_STU & """ width=""10"" height=""10""></td>" & vbCrLf
			HtmlDesign = HtmlDesign & "				</tr>" & vbCrLf
			HtmlDesign = HtmlDesign & "				<tr> " & vbCrLf
			HtmlDesign = HtmlDesign & "					<td width=""10"" height=""10""><img src=""" & HomeAliasSL & "images/mwshd_ld.gif?" & GB_STU & """ width=""10"" height=""10""></td>" & vbCrLf
			HtmlDesign = HtmlDesign & "					<td height=""10"" background=""" & HomeAliasSL & "images/mwshd_CD.gif?" & GB_STU & """><img src=""" & HomeAliasSL & "images/spacer.gif?" & GB_STU & """ width=""10"" height=""10""></td>" & vbCrLf
			HtmlDesign = HtmlDesign & "					<td width=""10"" height=""10""><img src=""" & HomeAliasSL & "images/mwshd_rd.gif?" & GB_STU & """ width=""10"" height=""10""></td>" & vbCrLf
			HtmlDesign = HtmlDesign & "				</tr>" & vbCrLf
			HtmlDesign = HtmlDesign & "			</table>" & vbCrLf
			HtmlDesign = HtmlDesign & "		</td>" & vbCrLf
			HtmlDesign = HtmlDesign & "	</tr>" & vbCrLf
			HtmlDesign = HtmlDesign & "</table>" & vbCrLf
			HtmlDesign = HtmlDesign & "</center>" & vbCrLf

		ElseIf i = 7 Then '新規ログイン登録
			HtmlDesign = ""
			HtmlDesign = HtmlDesign & "<center>" & vbCrLf
			HtmlDesign = HtmlDesign & "<table id=""MainContentsLayer"" width=""100%"" height=""100%"" border=""0"" cellpadding=""0"" cellspacing=""0"">" & vbCrLf
			HtmlDesign = HtmlDesign & "	<tr> " & vbCrLf
			HtmlDesign = HtmlDesign & "		<td align=""center"" valign=""middle"">" & vbCrLf
			If GB_IEmode <> "1" Then										'非IEは親divをtableにして子をtable-cellにすれば、サイズ100%が潰れてしまうことがなくなる
				HtmlDesign = HtmlDesign & "			" & HttpH0 & "<div style=""display:table;width:100%;height:100%;""><div id=""BaseL0"" style=""display:table-cell;vertical-align:middle;height:100%;""></div></div>" & vbCrLf
			Else
				HtmlDesign = HtmlDesign & "			" & HttpH0 & "<div id=""BaseL0""></div>" & vbCrLf
			End If
			HtmlDesign = HtmlDesign & "		</td>" & vbCrLf
			HtmlDesign = HtmlDesign & "	</tr>" & vbCrLf
			HtmlDesign = HtmlDesign & "</table>" & vbCrLf
			HtmlDesign = HtmlDesign & "</center>" & vbCrLf

		ElseIf i = 8 Then '演習選択・Excel取り込み関係
			HtmlDesign = ""
			HtmlDesign = HtmlDesign & "<center>" & vbCrLf
			HtmlDesign = HtmlDesign & "<table id=""MainContentsLayer"" width=""100%"" height=""100%"" border=""0"" cellpadding=""0"" cellspacing=""0"">" & vbCrLf
			HtmlDesign = HtmlDesign & "	<tr> " & vbCrLf
			HtmlDesign = HtmlDesign & "		<td height=""25"" bgcolor=""#2A3B73""> " & vbCrLf
			HtmlDesign = HtmlDesign & "			<table width=""100%"" height=""29"" border=""0"" cellpadding=""0"" cellspacing=""0"">" & vbCrLf
			HtmlDesign = HtmlDesign & "				<tr>" & vbCrLf
			HtmlDesign = HtmlDesign & "					<td width=""430"" height=""29"" align=""left""> " & vbCrLf
			HtmlDesign = HtmlDesign & "						<table width=""460"" height=""29"" border=""0"" cellpadding=""0"" cellspacing=""0"" background=""" & HomeAliasSL & "images/usrbk_c.gif?" & GB_STU & """ class=""tx1416"">" & vbCrLf
			HtmlDesign = HtmlDesign & "							<tr> " & vbCrLf
'			HtmlDesign = HtmlDesign & "								<td width=""29"" height=""29"" background=""" & HomeAliasSL & "images/usrbk_l.gif?" & GB_STU & """ onClick=""tblbtn( '" & HomeAliasSL & "redirect.asp?url=" & Request.ServerVariables("URL") & "&" & Request.ServerVariables("QUERY_STRING") & "')""><img src=""" & HomeAliasSL & "images/usrttl_id.gif?" & GB_STU & """ width=""29"" height=""25""></td>" & vbCrLf
			HtmlDesign = HtmlDesign & "								<td width=""29"" height=""29"" background=""" & HomeAliasSL & "images/usrbk_l.gif?" & GB_STU & """ onClick=""WindowTopRedirect();""><img src=""" & HomeAliasSL & "images/usrttl_id.gif?" & GB_STU & """ width=""30"" height=""25""></td>" & vbCrLf
			HtmlDesign = HtmlDesign & "								<td height=""29"" class=""tx1315"">" & HardWrap(GakuseiNo) & "&nbsp;</td>" & vbCrLf
'			HtmlDesign = HtmlDesign & "								<td width=""29"" height=""29"" onClick=""tblbtn( '" & HomeAliasSL & "redirect.asp?url=" & Request.ServerVariables("URL") & "&" & Request.ServerVariables("QUERY_STRING") & "&windowtype=1')""><img src=""" & HomeAliasSL & "images/usrttl_nm.gif?" & GB_STU & """ width=""50"" height=""25""></td>" & vbCrLf
			HtmlDesign = HtmlDesign & "								<td width=""29"" height=""29""><img src=""" & HomeAliasSL & "images/usrttl_nm.gif?" & GB_STU & """ width=""41"" height=""25""></td>" & vbCrLf
			HtmlDesign = HtmlDesign & "								<td width=""160"" height=""29"" onClick=""UserPramUPD();"" style=""cursor:pointer;"">" & GakuseiShimei & "</td>" & vbCrLf
			HtmlDesign = HtmlDesign & "								<td width=""16"" height=""29"" onClick=""tblbtn('" & HomeAliasSL & "system/session.asp')""><img src=""" & HomeAliasSL & "images/usrttl_dt.gif?" & GB_STU & """ width=""21"" height=""25""></td>" & vbCrLf
			HtmlDesign = HtmlDesign & "								<td width=""70"" height=""29"" class=""tx1315"">" & GetYYYYMMDD() & "</td>" & vbCrLf
			HtmlDesign = HtmlDesign & "								<td width=""10"" height=""29"" background=""" & HomeAliasSL & "images/usrbk_r.gif?" & GB_STU & """>&nbsp;</td>" & vbCrLf
			HtmlDesign = HtmlDesign & "							</tr>" & vbCrLf
			HtmlDesign = HtmlDesign & "						</table>" & vbCrLf
			HtmlDesign = HtmlDesign & "					</td>" & vbCrLf
			HtmlDesign = HtmlDesign & "					<td height=""25"" align=""right"">" & vbCrLf
			HtmlDesign = HtmlDesign & "						<div id=""BaseL1"" style=""height:29px;""></div>" & vbCrLf
			HtmlDesign = HtmlDesign & "					<img src=""" & HomeAliasSL & "images/spacer.gif?" & GB_STU & """ width=""1"" height=""1""></td>" & vbCrLf
			'CAモードでサイバートレードからの連動モードでは閉じるボタンを表示する
			If PackageMode = 1 And "" & Session(DBName & "CT21toCA21") <> "" Then
				HtmlDesign = HtmlDesign & "<td width=""70"" height=""25"" background=""" & HomeAliasSL & "images/spbtn_close.gif?" & GB_STU & """ class=""tbtn"" onClick=""ExitFlg=0;top.window.close();"">&nbsp;</td>" & vbCrLf
																						'演習管理者は管理演習でのみダイレクト運用管理ボタンを表示する
			ElseIf (DebugFlg > 0 Or Session(HomeAlias & "AutoLoginButton") = "1") And GB_Admin < 1 And (GB_AdminPCE = "" Or GB_AdminPCE = GB_EnshuCD) Then
				HtmlDesign = HtmlDesign & "<td width=""70"" height=""25"" background=""" & HomeAliasSL & "images/spbtn_admin.gif?" & GB_STU & """ class=""tbtn"" onClick=""tblbtn( '" & HomeAliasSL & "default_bin.asp?AutoLoginAdmin=1&admin=1&AutoLoginEnshuCD=" & GB_EnshuCD & "&AdminPCE=" & GB_AdminPCE & "&AutoLoginReturn=" & Session(HomeAlias & "AutoLoginReturn") & "')"">&nbsp;</td>" & vbCrLf
			Else
				HtmlDesign = HtmlDesign & "<td width=""70"" height=""25"" background=""" & HomeAliasSL & "images/spbtn_lgof.gif?" & GB_STU & """ class=""tbtn"" onClick=""Logout()"">&nbsp;</td>" & vbCrLf
			End If
			HtmlDesign = HtmlDesign & "				</tr>" & vbCrLf
			HtmlDesign = HtmlDesign & "			</table>" & vbCrLf
			HtmlDesign = HtmlDesign & "		</td>" & vbCrLf
			HtmlDesign = HtmlDesign & "	</tr>" & vbCrLf

			HtmlDesign = HtmlDesign & "	<tr> " & vbCrLf
			HtmlDesign = HtmlDesign & "		<td align=""center"" valign=""middle"">" & vbCrLf
			If GB_IEmode <> "1" Then										'非IEは親divをtableにして子をtable-cellにすれば、サイズ100%が潰れてしまうことがなくなる
				HtmlDesign = HtmlDesign & "			" & HttpH0 & "<div style=""display:table;width:100%;height:100%;""><div id=""BaseL0"" style=""display:table-cell;vertical-align:middle;height:100%;""></div></div>" & vbCrLf
			Else
				HtmlDesign = HtmlDesign & "			" & HttpH0 & "<div id=""BaseL0""></div>" & vbCrLf
			End If
			HtmlDesign = HtmlDesign & "		</td>" & vbCrLf
			HtmlDesign = HtmlDesign & "	</tr>" & vbCrLf
			HtmlDesign = HtmlDesign & "</table>" & vbCrLf
			HtmlDesign = HtmlDesign & "</center>" & vbCrLf

		ElseIf i = 9 Then '会社選択・公証人・会社作成・名刺マナー
			HtmlDesign = ""
			HtmlDesign = HtmlDesign & "<center>" & vbCrLf
			HtmlDesign = HtmlDesign & "<table id=""MainContentsLayer"" width=""100%"" height=""100%"" border=""0"" cellpadding=""0"" cellspacing=""0"">" & vbCrLf
			HtmlDesign = HtmlDesign & AdminMessageHTML '黒板表示
			HtmlDesign = HtmlDesign & "	<tr> " & vbCrLf
			HtmlDesign = HtmlDesign & "		<td height=""29"" bgcolor=""#2A3B73""> " & vbCrLf
			HtmlDesign = HtmlDesign & "			<table width=""100%"" height=""29"" border=""0"" cellpadding=""0"" cellspacing=""0"">" & vbCrLf
			HtmlDesign = HtmlDesign & "				<tr>" & vbCrLf
			HtmlDesign = HtmlDesign & "					<td width=""430"" height=""29"" align=""left""> " & vbCrLf
			HtmlDesign = HtmlDesign & "						<table width=""460"" height=""29"" border=""0"" cellpadding=""0"" cellspacing=""0"" background=""" & HomeAliasSL & "images/usrbk_c.gif?" & GB_STU & """ class=""tx1416"">" & vbCrLf
			HtmlDesign = HtmlDesign & "							<tr> " & vbCrLf
'			HtmlDesign = HtmlDesign & "								<td width=""29"" height=""29"" background=""" & HomeAliasSL & "images/usrbk_l.gif?" & GB_STU & """ onClick=""tblbtn( '" & HomeAliasSL & "redirect.asp?url=" & Request.ServerVariables("URL") & "')""><img src=""" & HomeAliasSL & "images/usrttl_id.gif?" & GB_STU & """ width=""29"" height=""25""></td>" & vbCrLf
			HtmlDesign = HtmlDesign & "								<td width=""29"" height=""29"" background=""" & HomeAliasSL & "images/usrbk_l.gif?" & GB_STU & """ onClick=""WindowTopRedirect();""><img src=""" & HomeAliasSL & "images/usrttl_id.gif?" & GB_STU & """ width=""30"" height=""25""></td>" & vbCrLf
			HtmlDesign = HtmlDesign & "								<td height=""29"" class=""tx1315"">" & HardWrap(GakuseiNo) & "&nbsp;</td>" & vbCrLf
'			HtmlDesign = HtmlDesign & "								<td width=""29"" height=""29"" onClick=""tblbtn( '" & HomeAliasSL & "redirect.asp?url=" & Request.ServerVariables("URL") & "&windowtype=1')""><img src=""" & HomeAliasSL & "images/usrttl_nm.gif?" & GB_STU & """ width=""50"" height=""25""></td>" & vbCrLf
			HtmlDesign = HtmlDesign & "								<td width=""29"" height=""29""><img src=""" & HomeAliasSL & "images/usrttl_nm.gif?" & GB_STU & """ width=""41"" height=""25""></td>" & vbCrLf
			HtmlDesign = HtmlDesign & "								<td width=""160"" height=""29"" onClick=""UserPramUPD();"" style=""cursor:pointer;"">" & GakuseiShimei & "</td>" & vbCrLf
			HtmlDesign = HtmlDesign & "								<td width=""16"" height=""29"" onClick=""tblbtn('" & HomeAliasSL & "system/session.asp')""><img src=""" & HomeAliasSL & "images/usrttl_dt.gif?" & GB_STU & """ width=""21"" height=""25""></td>" & vbCrLf
			HtmlDesign = HtmlDesign & "								<td width=""70"" height=""29"" class=""tx1315"">" & GetYYYYMMDD() & "</td>" & vbCrLf
			HtmlDesign = HtmlDesign & "								<td width=""10"" height=""29"" background=""" & HomeAliasSL & "images/usrbk_r.gif?" & GB_STU & """>&nbsp;</td>" & vbCrLf
			HtmlDesign = HtmlDesign & "							</tr>" & vbCrLf
			HtmlDesign = HtmlDesign & "						</table>" & vbCrLf
			HtmlDesign = HtmlDesign & "					</td>" & vbCrLf
			HtmlDesign = HtmlDesign & "					<td height=""29"" align=""right"">" & vbCrLf
			HtmlDesign = HtmlDesign & "						<div id=""BaseL1"" style=""height:29px;""></div>" & vbCrLf
			HtmlDesign = HtmlDesign & "					<img src=""" & HomeAliasSL & "images/spacer.gif?" & GB_STU & """ width=""1"" height=""1""></td>" & vbCrLf
			'CAモードでサイバートレードからの連動モードでは閉じるボタンを表示する
			If PackageMode = 1 And "" & Session(DBName & "CT21toCA21") <> "" Then
				HtmlDesign = HtmlDesign & "<td width=""70"" height=""25"" background=""" & HomeAliasSL & "images/spbtn_close.gif?" & GB_STU & """ class=""tbtn"" onClick=""ExitFlg=0;top.window.close();"">&nbsp;</td>" & vbCrLf
																						'演習管理者は管理演習でのみダイレクト運用管理ボタンを表示する
			ElseIf (DebugFlg > 0 Or Session(HomeAlias & "AutoLoginButton") = "1") And GB_Admin < 1 And (GB_AdminPCE = "" Or GB_AdminPCE = GB_EnshuCD) Then
				HtmlDesign = HtmlDesign & "<td width=""70"" height=""29"" background=""" & HomeAliasSL & "images/spbtn_admin.gif?" & GB_STU & """ class=""tbtn"" onClick=""tblbtn( '" & HomeAliasSL & "default_bin.asp?AutoLoginAdmin=1&admin=1&AutoLoginEnshuCD=" & GB_EnshuCD & "&AdminPCE=" & GB_AdminPCE & "&AutoLoginReturn=" & Session(HomeAlias & "AutoLoginReturn") & "')"">&nbsp;</td>" & vbCrLf
			Else
				HtmlDesign = HtmlDesign & "<td width=""70"" height=""29"" background=""" & HomeAliasSL & "images/spbtn_lgof.gif?" & GB_STU & """ class=""tbtn"" onClick=""Logout()"">&nbsp;</td>" & vbCrLf
			End If
			HtmlDesign = HtmlDesign & "				</tr>" & vbCrLf
			HtmlDesign = HtmlDesign & "			</table>" & vbCrLf
			HtmlDesign = HtmlDesign & "		</td>" & vbCrLf
			HtmlDesign = HtmlDesign & "	</tr>" & vbCrLf
			HtmlDesign = HtmlDesign & "	<tr> " & vbCrLf
			HtmlDesign = HtmlDesign & "		<td height=""35"" align=""left"" valign=""top"" background=""" & HomeAliasSL & "images/nvbar_bk.gif?" & GB_STU & """> " & vbCrLf
			HtmlDesign = HtmlDesign & "			<div id=""BaseL2""></div>" & vbCrLf
			HtmlDesign = HtmlDesign & "	</tr>" & vbCrLf
			HtmlDesign = HtmlDesign & "	<tr> " & vbCrLf
			HtmlDesign = HtmlDesign & "		<td align=""center"" valign=""middle"">" & vbCrLf
			If GB_IEmode <> "1" Then										'非IEは親divをtableにして子をtable-cellにすれば、サイズ100%が潰れてしまうことがなくなる
				HtmlDesign = HtmlDesign & "			" & HttpH0 & "<div style=""display:table;width:100%;height:100%;""><div id=""BaseL0"" style=""display:table-cell;vertical-align:middle;height:100%;""></div></div>" & vbCrLf
			Else
				HtmlDesign = HtmlDesign & "			" & HttpH0 & "<div id=""BaseL0""></div>" & vbCrLf
			End If
			HtmlDesign = HtmlDesign & "		</td>" & vbCrLf
			HtmlDesign = HtmlDesign & "	</tr>" & vbCrLf
			HtmlDesign = HtmlDesign & "</table>" & vbCrLf
			HtmlDesign = HtmlDesign & "</center>" & vbCrLf

		Else 'If i = 1 Then '全般?
			HtmlDesign = ""
			'HtmlDesign = HtmlDesign & Request.ServerVariables("HTTP_USER_AGENT") & vbCrLf
			HtmlDesign = HtmlDesign & "<center>" & vbCrLf
			HtmlDesign = HtmlDesign & "<table id=""MainContentsLayer"" width=""" & AllContentWidth & """ height=""100%"" border=""0"" cellpadding=""0"" cellspacing=""0"">" & vbCrLf
			HtmlDesign = HtmlDesign & AdminMessageHTML '黒板表示
			HtmlDesign = HtmlDesign & "	<tr>" & vbCrLf
			HtmlDesign = HtmlDesign & "		<td height=""29"" bgcolor=""#2A3B73"">" & vbCrLf
			HtmlDesign = HtmlDesign & "			<table width=""100%"" height=""29"" border=""0"" cellpadding=""0"" cellspacing=""0"">" & vbCrLf
			HtmlDesign = HtmlDesign & "				<tr>" & vbCrLf
			HtmlDesign = HtmlDesign & "					<td width=""375"" height=""29"" align=""left""> " & vbCrLf
			HtmlDesign = HtmlDesign & "						<table width=""460"" height=""29"" border=""0"" cellpadding=""0"" cellspacing=""0"" background=""" & HomeAliasSL & "images/usrbk_c.gif?" & GB_STU & """ class=""tx1416"">" & vbCrLf
			HtmlDesign = HtmlDesign & "							<tr> " & vbCrLf
'			HtmlDesign = HtmlDesign & "								<td width=""29"" height=""29"" background=""" & HomeAliasSL & "images/usrbk_l.gif?" & GB_STU & """ onClick=""tblbtn( '" & HomeAliasSL & "redirect.asp?url=" & Request.ServerVariables("URL") & "')""><img src=""" & HomeAliasSL & "images/usrttl_id.gif?" & GB_STU & """ width=""29"" height=""25""></td>" & vbCrLf
			HtmlDesign = HtmlDesign & "								<td width=""29"" height=""29"" background=""" & HomeAliasSL & "images/usrbk_l.gif?" & GB_STU & """ onClick=""WindowTopRedirect();""><img src=""" & HomeAliasSL & "images/usrttl_id.gif?" & GB_STU & """ width=""30"" height=""25""></td>" & vbCrLf
			If GB_Admin = 1 Then
				HtmlDesign = HtmlDesign & "								<td height=""29"" class=""tx1315"">" & HardWrap(AdminCode) & "&nbsp;</td>" & vbCrLf
			Else
				HtmlDesign = HtmlDesign & "								<td height=""29"" class=""tx1315"">" & HardWrap(GakuseiNo) & "&nbsp;</td>" & vbCrLf
			End If
'			HtmlDesign = HtmlDesign & "								<td width=""29"" height=""29"" onClick=""tblbtn( '" & HomeAliasSL & "redirect.asp?url=" & Request.ServerVariables("URL") & "&windowtype=1')""><img src=""" & HomeAliasSL & "images/usrttl_nm.gif?" & GB_STU & """ width=""50"" height=""25""></td>" & vbCrLf
			HtmlDesign = HtmlDesign & "								<td width=""29"" height=""29""><img src=""" & HomeAliasSL & "images/usrttl_nm.gif?" & GB_STU & """ width=""41"" height=""25""></td>" & vbCrLf
			If GB_Admin = 1 Then
				HtmlDesign = HtmlDesign & "								<td width=""160"" height=""29"">運用管理者</td>" & vbCrLf
			Else
				HtmlDesign = HtmlDesign & "								<td width=""160"" height=""29"" onClick=""UserPramUPD();"" style=""cursor:pointer;"">" & GakuseiShimei & "</td>" & vbCrLf
			End If
			HtmlDesign = HtmlDesign & "								<td width=""16"" height=""29"" onClick=""tblbtn('" & HomeAliasSL & "system/session.asp')""><img src=""" & HomeAliasSL & "images/usrttl_dt.gif?" & GB_STU & """ width=""21"" height=""25""></td>" & vbCrLf
			HtmlDesign = HtmlDesign & "								<td width=""70"" height=""29"" class=""tx1315"">" & GetYYYYMMDD() & "</td>" & vbCrLf
			HtmlDesign = HtmlDesign & "								<td width=""10"" height=""29"" background=""" & HomeAliasSL & "images/usrbk_r.gif?" & GB_STU & """>&nbsp;</td>" & vbCrLf
			HtmlDesign = HtmlDesign & "							</tr>" & vbCrLf
			HtmlDesign = HtmlDesign & "						</table>" & vbCrLf
			HtmlDesign = HtmlDesign & "					</td>" & vbCrLf
			HtmlDesign = HtmlDesign & "					<td height=""29"" align=""right"">" & vbCrLf
			HtmlDesign = HtmlDesign & "						<div id=""BaseL1"" style=""height:29px;""></div>" & vbCrLf
			HtmlDesign = HtmlDesign & "					<img src=""" & HomeAliasSL & "images/spacer.gif?" & GB_STU & """ width=""1"" height=""1""></td>" & vbCrLf
																						'演習管理者は管理演習でのみダイレクト運用管理ボタンを表示する
			If (Session(HomeAlias & "AutoLoginButton") = "1") And GB_Admin < 1 And (GB_AdminPCE = "" Or GB_AdminPCE = GB_EnshuCD) Then
'			If (DebugFlg > 0 Or Session(HomeAlias & "AutoLoginButton") = "1") And GB_Admin < 1 And (GB_AdminPCE = "" Or GB_AdminPCE = GB_EnshuCD) Then
				HtmlDesign = HtmlDesign & "<td width=""70"" height=""29"" background=""" & HomeAliasSL & "images/spbtn_admin.gif?" & GB_STU & """ class=""tbtn"" onClick=""tblbtn( '" & HomeAliasSL & "default_bin.asp?AutoLoginAdmin=1&admin=1&AutoLoginEnshuCD=" & GB_EnshuCD & "&AdminPCE=" & GB_AdminPCE & "&AutoLoginReturn=" & Session(HomeAlias & "AutoLoginReturn") & "')"">&nbsp;</td>" & vbCrLf
			Else
				'CAモードでサイバートレードからの連動モードでは閉じるボタンを表示する
				If PackageMode = 1 And "" & Session(DBName & "CT21toCA21") <> "" Then
					HtmlDesign = HtmlDesign & "<td width=""70"" height=""29"" background=""" & HomeAliasSL & "images/spbtn_close.gif?" & GB_STU & """ class=""tbtn"" onClick=""ExitFlg=0;top.window.close();"">&nbsp;</td>" & vbCrLf
				Else
					HtmlDesign = HtmlDesign & "<td width=""70"" height=""29"" background=""" & HomeAliasSL & "images/spbtn_lgof.gif?" & GB_STU & """ class=""tbtn"" onClick=""Logout()"">&nbsp;</td>" & vbCrLf
				End If
			End If
			HtmlDesign = HtmlDesign & "				</tr>" & vbCrLf
			HtmlDesign = HtmlDesign & "			</table>" & vbCrLf
			HtmlDesign = HtmlDesign & "		</td>" & vbCrLf
			HtmlDesign = HtmlDesign & "	</tr>" & vbCrLf
			HtmlDesign = HtmlDesign & "	<tr> " & vbCrLf
			HtmlDesign = HtmlDesign & "		<td height=""35"" align=""left"" valign=""top"" background=""" & HomeAliasSL & "images/nvbar_bk.gif?" & GB_STU & """ bgcolor=""#8D9BCC""> " & vbCrLf
			HtmlDesign = HtmlDesign & "			<div id=""BaseL2""></div>" & vbCrLf
	'		HtmlDesign = HtmlDesign & "			<img src=""" & HomeAliasSL & "images/spacer.gif?" & GB_STU & """ width=""1"" height=""1"">" & vbCrLf
			HtmlDesign = HtmlDesign & "		</td>" & vbCrLf
			HtmlDesign = HtmlDesign & "	</tr>" & vbCrLf
			HtmlDesign = HtmlDesign & "	<tr> " & vbCrLf
			HtmlDesign = HtmlDesign & "		<td align=""center"" valign=""top"">" & vbCrLf
			HtmlDesign = HtmlDesign & "			<table width=""100%"" height=""100%"" border=""0"" cellpadding=""0"" cellspacing=""0"">" & vbCrLf
			HtmlDesign = HtmlDesign & "				<tr> " & vbCrLf
			HtmlDesign = HtmlDesign & "					<td width=""10"" height=""70"" valign=""top"" background=""" & HomeAliasSL & "images/mwshd_lc.gif?" & GB_STU & """><img src=""" & HomeAliasSL & "images/mwshd_lu.gif?" & GB_STU & """ width=""10"" height=""10""></td>" & vbCrLf
			HtmlDesign = HtmlDesign & "					<td height=""70"" background=""" & HomeAliasSL & "images/kwin_bk_g.gif?" & GB_STU & """ bgcolor=""" & TmpColor & """>" & vbCrLf
			HtmlDesign = HtmlDesign & "						<table width=""100%"" height=""35"" border=""0"" cellpadding=""0"" cellspacing=""0"">" & vbCrLf
			HtmlDesign = HtmlDesign & "							<tr>" & vbCrLf
			HtmlDesign = HtmlDesign & "								<td width=""10"" height=""35""><img src=""" & HomeAliasSL & "images/kwin_wvline.gif?" & GB_STU & """ width=""1"" height=""35""></td>" & vbCrLf
'			HtmlDesign = HtmlDesign & "								<td width=""215"" height=""35"" align=""left"" valign=""middle"" class=""tx1416"" style=""color:#FFFFFF""><b>" & KaisyaRyakuMeisyo & "</b>"
'			HtmlDesign = HtmlDesign & "								<td width=""275"" height=""35"" align=""left"" valign=""middle"" class=""tx1416"" style=""color:#FFFFFF""><b>" & KaisyaMeisyo & "</b>"
			HtmlDesign = HtmlDesign & "								<td width=""1"" height=""35"" align=""left"" valign=""middle"" class=""tx1618"" style=""color:#FFFFFF""><nobr>"
			TmpKaishaMeisho = KaisyaRyakuMeisyo
			If KaisyaMeisyo <> "" Then
				TmpKaishaMeisho = KaisyaMeisyo
			End If
			If Len(TmpKaishaMeisho) > 16 Then
				TmpKaishaMeisho = "<span style=""font-size:14px;"">" & TmpKaishaMeisho & "</span>"
			End If
			If GB_CSS = "EC" Then
				HtmlDesign = HtmlDesign & "" & TmpKaishaMeisho & "" 'Chromebook対応のため太字廃止
			Else
				HtmlDesign = HtmlDesign & "<b>" & TmpKaishaMeisho & "</b>&nbsp;"
			End If
			If PackageMode = 1 Or GB_Admin => 1 Then
			Else
				HtmlDesign = HtmlDesign & "<span class=""tx1416"">[" & ConvShijyoName(GB_EnshuCD, GB_ShijyoCD) & "]</span>&nbsp;"
			End If
			HtmlDesign = HtmlDesign & "</nobr></td>" & vbCrLf
			HtmlDesign = HtmlDesign & "								<td height=""35"" valign=""top""> " & vbCrLf
			HtmlDesign = HtmlDesign & "									<table width=""100%"" height=""25"" border=""0"" cellpadding=""0"" cellspacing=""0"" class=""tx1416"">" & vbCrLf
			HtmlDesign = HtmlDesign & "										<tr><td><img src=""" & HomeAliasSL & "images/spacer.gif?" & GB_STU & """ width=""1"" height=""6""></td></tr>" & vbCrLf	'メッセージバーの高さ位置調整
			HtmlDesign = HtmlDesign & "										<tr>" & vbCrLf
			HtmlDesign = HtmlDesign & "											<td width=""20"" height=""25"" background=""" & HomeAliasSL & "images/iwin_bkl_" & TmpColorObj & ".gif?" & GB_STU & """><img src=""" & HomeAliasSL & "images/iwin_icon_info.gif?" & GB_STU & """ width=""20"" height=""25""></td>" & vbCrLf
			HtmlDesign = HtmlDesign & "											<td height=""25"" background=""" & HomeAliasSL & "images/iwin_bkc_" & TmpColorObj & ".gif?" & GB_STU & """>"
			HtmlDesign = HtmlDesign & "<div id=""BaseL5""></div>"
			HtmlDesign = HtmlDesign & "<img src=""" & HomeAliasSL & "images/spacer.gif?" & GB_STU & """ width=""1"" height=""1""></td>" & vbCrLf
'			HtmlDesign = HtmlDesign & "											<td width=""1"" height=""25"" background=""" & HomeAliasSL & "images/iwin_bkc_" & TmpColorObj & ".gif?" & GB_STU & """><input type=""text"" name=""dummy"" size=""1"" style=""font-size: 1px; border-style: solid; border-color: #FFFFFF; width: 0px; ime-mode: inactive;"" tabindex=""-1""></td>" & vbCrLf
			HtmlDesign = HtmlDesign & "											<td width=""1"" height=""25"" background=""" & HomeAliasSL & "images/iwin_bkc_" & TmpColorObj & ".gif?" & GB_STU & """></td>" & vbCrLf
			If (GB_KaikeiKaishibi <> "" Or GB_KaikeiSyuryobi <> "") AND GB_Admin = 0 Then
				HtmlDesign = HtmlDesign & "											<td width=""22"" height=""25"" background=""" & HomeAliasSL & "images/iwin_bkc_" & TmpColorObj & ".gif?" & GB_STU & """><img src=""" & HomeAliasSL & "images/iwin_icon_date.gif?" & GB_STU & """ width=""20"" height=""25""></td>" & vbCrLf
				'実践日取得
				Dim Jissenbi
				Jissenbi = ""
				Query = "exec SPM演習取得 '" & GB_SystemCD & "','" & GB_EnshuCD & "'"
				Set Content = OpenQuery(Query)
				If Not(Content.BOF Or Content.EOF) Then
					Jissenbi = "" & SetTimeYYYYMMDD(Content.Fields("実践日"))
				End If
				If Jissenbi <> "" Then
					HtmlDesign = HtmlDesign & "											<td width=""1"" height=""25"" valign=""middle"" background=""" & HomeAliasSL & "images/iwin_bkc_" & TmpColorObj & ".gif?" & GB_STU & """>"
'					HtmlDesign = HtmlDesign & "											<td width=""123"" height=""25"" valign=""middle"" background=""" & HomeAliasSL & "images/iwin_bkc_" & TmpColorObj & ".gif?" & GB_STU & """>"
					HtmlDesign = HtmlDesign & "<nobr>実践日:" & Jissenbi & "</nobr>"
					HtmlDesign = HtmlDesign & "</td>" & vbCrLf
					If "" & Session(DBName & "AdminPC") = "1" Then
						HtmlDesign = HtmlDesign & "											<td width=""1"" height=""25"" valign=""middle"" background=""" & HomeAliasSL & "images/iwin_bkc_" & TmpColorObj & ".gif?" & GB_STU & """><nobr>&nbsp;<span class=""tx1315"" style=""color: #FF0000; cursor: pointer;"" onClick=""tblbtn('" & HomeAliasSL & "admin/enshu/fm_jissenbi.asp?KaisyaCD=" & GB_KaisyaCD & "')"">日付変更</span></nobr></td>" & vbCrLf
					End If
				Else
					HtmlDesign = HtmlDesign & "											<td width=""1"" height=""25"" valign=""middle"" background=""" & HomeAliasSL & "images/iwin_bkc_" & TmpColorObj & ".gif?" & GB_STU & """>"
'					HtmlDesign = HtmlDesign & "											<td width=""219"" height=""25"" valign=""middle"" background=""" & HomeAliasSL & "images/iwin_bkc_" & TmpColorObj & ".gif?" & GB_STU & """>"
					HtmlDesign = HtmlDesign & "<nobr>会計期間:" & GB_KaikeiKaishibi & "~" & GB_KaikeiSyuryobi & "</nobr>"
					HtmlDesign = HtmlDesign & "</td>" & vbCrLf
				End If
			End If
			HtmlDesign = HtmlDesign & "											<td width=""10"" height=""25"" background=""" & HomeAliasSL & "images/iwin_bkr_" & TmpColorObj & ".gif?" & GB_STU & """>&nbsp;</td>" & vbCrLf
			HtmlDesign = HtmlDesign & "										</tr>" & vbCrLf
			HtmlDesign = HtmlDesign & "									</table>" & vbCrLf
			HtmlDesign = HtmlDesign & "								</td>" & vbCrLf
			HtmlDesign = HtmlDesign & "								<td width=""10"" height=""35"" align=""right""><img src=""" & HomeAliasSL & "images/kwin_wvline.gif?" & GB_STU & """ width=""1"" height=""35""></td>" & vbCrLf
			HtmlDesign = HtmlDesign & "							</tr>" & vbCrLf
			HtmlDesign = HtmlDesign & "						</table>" & vbCrLf
			HtmlDesign = HtmlDesign & "						<table width=""100%"" height=""35"" border=""0"" cellpadding=""0"" cellspacing=""0"">" & vbCrLf
			HtmlDesign = HtmlDesign & "							<tr>" & vbCrLf
			HtmlDesign = HtmlDesign & "								<td width=""10"" height=""35"" valign=""top""><img src=""" & HomeAliasSL & "images/kwin_wvline.gif?" & GB_STU & """ width=""1"" height=""30""></td>" & vbCrLf
			HtmlDesign = HtmlDesign & "								<td height=""35"" valign=""top"">" & vbCrLf
			HtmlDesign = HtmlDesign & "									<table width=""100%"" height=""25"" border=""0"" cellpadding=""0"" cellspacing=""0"">" & vbCrLf
			HtmlDesign = HtmlDesign & "										<tr>" & vbCrLf
			HtmlDesign = HtmlDesign & "											<td width=""15"" height=""25"" background=""" & HomeAliasSL & "images/kwin_tt_l" & TmpColorObj2 & ".gif?" & GB_STU & """>&nbsp;</td>" & vbCrLf
			HtmlDesign = HtmlDesign & "											<td height=""25"" align=""center"" valign=""middle"" background=""" & HomeAliasSL & "images/kwin_tt_c" & TmpColorObj2 & ".gif?" & GB_STU & """ class=""tx1820b"" style=""color:#FFFFFF; font:bold"">" & vbCrLf
			'HtmlDesign = HtmlDesign & "											<div>" & Spacer(1,2) & "</div>" & vbCrLf	'タイトルバー内の文字ボックスの高さ位置調整
			HtmlDesign = HtmlDesign & "											<div id=""BaseL4""></div>" & vbCrLf
			'HtmlDesign = HtmlDesign & "											<img src=""" & HomeAliasSL & "images/spacer.gif?" & GB_STU & """ width=""1"" height=""1"">" & vbCrLf
			HtmlDesign = HtmlDesign & "											</td>" & vbCrLf
			HtmlDesign = HtmlDesign & "											<td width=""15"" height=""25"" background=""" & HomeAliasSL & "images/kwin_tt_r" & TmpColorObj2 & ".gif?" & GB_STU & """>&nbsp;</td>" & vbCrLf
			HtmlDesign = HtmlDesign & "											<td width=""6""><img src=""" & HomeAliasSL & "images/spacer.gif?" & GB_STU & """ width=""6"" height=""1""></td>" & vbCrLf
			HtmlDesign = HtmlDesign & "										</tr>" & vbCrLf
			HtmlDesign = HtmlDesign & "									</table>" & vbCrLf
			HtmlDesign = HtmlDesign & "								</td>" & vbCrLf
			HtmlDesign = HtmlDesign & "								<td width=""120"" height=""35"" align=""left"" valign=""top""> " & vbCrLf
			HtmlDesign = HtmlDesign & "									<div id=""BaseL3_2""></div>" & vbCrLf
	'		HtmlDesign = HtmlDesign & "									<img src=""" & HomeAliasSL & "images/spacer.gif?" & GB_STU & """ width=""1"" height=""1"">" & vbCrLf
			HtmlDesign = HtmlDesign & "								</td>" & vbCrLf
			HtmlDesign = HtmlDesign & "								<td width=""29"" height=""35"" background=""" & HomeAliasSL & "images/kwin_dc_g.gif?" & GB_STU & """>&nbsp;</td>" & vbCrLf
			HtmlDesign = HtmlDesign & "								<td width=""210"" height=""36"" valign=""bottom"" background=""" & HomeAliasSL & "images/kwin_dr_g.gif?" & GB_STU & """>"
			HtmlDesign = HtmlDesign & "									<div id=""BaseL3_1""></div>" & vbCrLf
	'		HtmlDesign = HtmlDesign & "									<img src=""" & HomeAliasSL & "images/spacer.gif?" & GB_STU & """ width=""1"" height=""1"">" & vbCrLf
			HtmlDesign = HtmlDesign & "								</td>" & vbCrLf
			HtmlDesign = HtmlDesign & "							</tr>" & vbCrLf
			HtmlDesign = HtmlDesign & "						</table>" & vbCrLf
			HtmlDesign = HtmlDesign & "					</td>" & vbCrLf
			HtmlDesign = HtmlDesign & "					<td width=""10"" height=""70"" valign=""top"" background=""" & HomeAliasSL & "images/mwshd_rc.gif?" & GB_STU & """><img src=""" & HomeAliasSL & "images/mwshd_ru.gif?" & GB_STU & """ width=""10"" height=""10""></td>" & vbCrLf
			HtmlDesign = HtmlDesign & "				</tr>" & vbCrLf
			HtmlDesign = HtmlDesign & "				<tr> " & vbCrLf
			HtmlDesign = HtmlDesign & "					<td width=""10"" background=""" & HomeAliasSL & "images/mwshd_lc.gif?" & GB_STU & """><img src=""" & HomeAliasSL & "images/spacer.gif?" & GB_STU & """ width=""10"" height=""10""></td>" & vbCrLf
			HtmlDesign = HtmlDesign & "					<td align=""center"" valign=""middle"" bgcolor=""#CED4E9""> " & vbCrLf
			If GB_IEmode <> "1" Then													'非IEは親divをtableにして子をtable-cellにすれば、サイズ100%が潰れてしまうことがなくなる
				HtmlDesign = HtmlDesign & "					" & HttpH0 & "<div style=""display:table;width:100%;height:100%;""><div id=""BaseL0"" style=""display:table-cell;vertical-align:middle;height:100%;""></div></div>" & vbCrLf
			Else
				HtmlDesign = HtmlDesign & "					" & HttpH0 & "<div id=""BaseL0""></div>" & vbCrLf
			End If
			'HtmlDesign = HtmlDesign & "						 <img src=""" & HomeAliasSL & "images/spacer.gif?" & GB_STU & """ width=""1"" height=""1"">" & vbCrLf
			HtmlDesign = HtmlDesign & "					</td>" & vbCrLf
			HtmlDesign = HtmlDesign & "					<td width=""10"" background=""" & HomeAliasSL & "images/mwshd_rc.gif?" & GB_STU & """><img src=""" & HomeAliasSL & "images/spacer.gif?" & GB_STU & """ width=""10"" height=""10""></td>" & vbCrLf
			HtmlDesign = HtmlDesign & "				</tr>" & vbCrLf
			HtmlDesign = HtmlDesign & "				<tr> " & vbCrLf
			HtmlDesign = HtmlDesign & "					<td width=""10"" height=""10""><img src=""" & HomeAliasSL & "images/mwshd_ld.gif?" & GB_STU & """ width=""10"" height=""10""></td>" & vbCrLf
			HtmlDesign = HtmlDesign & "					<td height=""10"" background=""" & HomeAliasSL & "images/mwshd_CD.gif?" & GB_STU & """><img src=""" & HomeAliasSL & "images/spacer.gif?" & GB_STU & """ width=""10"" height=""10""></td>" & vbCrLf
			HtmlDesign = HtmlDesign & "					<td width=""10"" height=""10""><img src=""" & HomeAliasSL & "images/mwshd_rd.gif?" & GB_STU & """ width=""10"" height=""10""></td>" & vbCrLf
			HtmlDesign = HtmlDesign & "				</tr>" & vbCrLf
			HtmlDesign = HtmlDesign & "			</table>" & vbCrLf
			HtmlDesign = HtmlDesign & "		</td>" & vbCrLf
			HtmlDesign = HtmlDesign & "	</tr>" & vbCrLf
			HtmlDesign = HtmlDesign & "</table>" & vbCrLf
			HtmlDesign = HtmlDesign & "</center>" & vbCrLf
		End If

		'プリンタ出力ページを別ウィンドウで表示するJavaScriptフラグ
		HtmlDesign = HtmlDesign & "<SCRIPT LANGUAGE=""JavaScript"">" & vbCrLf
		HtmlDesign = HtmlDesign & "<!--" & vbCrLf
		HtmlDesign = HtmlDesign & "	PrintOpenWindow = " & PrintOpenWindow & ";" & vbCrLf
		HtmlDesign = HtmlDesign & "-->" & vbCrLf
		HtmlDesign = HtmlDesign & "</SCRIPT>" & vbCrLf

		'セッションタイムアウトが発生しないよう対策(170612小野)
		HtmlDesign = HtmlDesign & "		<div style=""width:0px;height:0px"">" & vbCrLf
		HtmlDesign = HtmlDesign & "			<IFRAME name=""MaintainSessionIFrame"" SRC=""" & HomeAliasSL & "include_layout_dummy.asp"" WIDTH=""0"" HEIGHT=""0"" FRAMEBORDER=0 MARGINHEIGHT=0 MARGINWIDTH=0 NORESIZE SCROLLING=no>" & vbCrLf
		HtmlDesign = HtmlDesign & "			</IFRAME>" & vbCrLf
		HtmlDesign = HtmlDesign & "		</div>" & vbCrLf

	End Function



'※ModeにCSSファイル名を指定できる。複数指定時はセミコロン区切り。
	Function HtmlHeader(Mode)
		'Mode引数の前後にセミコロンを付加(InStr判定のため)
		Mode = ";" & Mode & ";"
		Dim Kaisou
		Kaisou = ""
		Dim TmpScriptName '環境変数SCRIPT_NAMEを分解格納する配列
		Dim Cnt 'ループカウンタ
		Dim TmpCnt 'カーソルカウンタ
		TmpCnt = 0
		TmpScriptName = Request.ServerVariables("SCRIPT_NAME")
		TmpScriptName = Split(TmpScriptName, "/")
		'HomeAliasを探す
		For Cnt = 0 To UBound(TmpScriptName)
			If "" & TmpScriptName(Cnt) = HomeAlias Then
				TmpCnt = Cnt
				Exit For
			End If
		Next
		'HomeAliasより下の階層数を相対パスにする
		TmpCnt = TmpCnt + 1
		For Cnt = TmpCnt To UBound(TmpScriptName)
			'ファイルが見付かったら終了
			If InStr("" & TmpScriptName(Cnt), ".") > 0 Then
				Exit For
			End If
			Kaisou = Kaisou & "../"
		Next
		HtmlHeader = ""
		HtmlHeader = HtmlHeader & "" & vbCrLf
		HtmlHeader = HtmlHeader & "<head>" & vbCrLf
		HtmlHeader = HtmlHeader & "<meta http-equiv=""Content-Type"" content=""text/html; charset=shift_jis"">" & vbCrLf
		HtmlHeader = HtmlHeader & "<meta http-equiv=""content-language"" content=""ja"">" & vbCrLf '日本語指定
		HtmlHeader = HtmlHeader & "<meta name=""description"" content=""システム・フューチャーの教育ソフトは、信頼と実績で全国各地の学校に導入されています。"">" & vbCrLf
		HtmlHeader = HtmlHeader & "<!-- システム・フューチャーの教育ソフトは、信頼と実績で全国各地の学校に導入されています。-->" & vbCrLf
		HtmlHeader = HtmlHeader & "<meta http-equiv=""Pragma"" content=""no-cache"">" & vbCrLf
		HtmlHeader = HtmlHeader & "<meta http-equiv=""Cache-Control"" content=""no-cache"">" & vbCrLf
		HtmlHeader = HtmlHeader & "<meta http-equiv=""Expires"" content=""-1"">" & vbCrLf
		If InStr(Mode, ";-sj3web;") < 1 Then 'マイナス指定の場合のみsj3web.cssを除外する
			HtmlHeader = HtmlHeader & "<link href=""" & Kaisou & "binx/" & GB_CSS & "sj3web.css?" & TimeUniq() & """ rel=""stylesheet"" type=""text/css"">" & vbCrLf
		End If
		If InStr(Mode, ";sj3tyoboblack;") > 0 Then
			HtmlHeader = HtmlHeader & "<link href=""" & Kaisou & "binx/" & GB_CSS & "sj3tyoboblack.css?" & TimeUniq() & """ rel=""stylesheet"" type=""text/css"">" & vbCrLf
		End If
		If InStr(Mode, ";sj3tyoboblack11;") > 0 Then
			HtmlHeader = HtmlHeader & "<link href=""" & Kaisou & "binx/" & GB_CSS & "sj3tyoboblack11.css?" & TimeUniq() & """ rel=""stylesheet"" type=""text/css"">" & vbCrLf
		End If
		If InStr(Mode, ";sj3tyoboblackPRT09;") > 0 Then
			HtmlHeader = HtmlHeader & "<link href=""" & Kaisou & "binx/" & GB_CSS & "sj3tyoboblackPRT09.css?" & TimeUniq() & """ rel=""stylesheet"" type=""text/css"">" & vbCrLf
		End If
		If InStr(Mode, ";sj3tyoboblacks;") > 0 Then
			HtmlHeader = HtmlHeader & "<link href=""" & Kaisou & "binx/" & GB_CSS & "sj3tyoboblacks.css?" & TimeUniq() & """ rel=""stylesheet"" type=""text/css"">" & vbCrLf
		End If
		If InStr(Mode, ";sj3tyobored;") > 0 Then
			HtmlHeader = HtmlHeader & "<link href=""" & Kaisou & "binx/" & GB_CSS & "sj3tyobored.css?" & TimeUniq() & """ rel=""stylesheet"" type=""text/css"">" & vbCrLf
		End If
		If InStr(Mode, ";sj3tyobored1;") > 0 Then
			HtmlHeader = HtmlHeader & "<link href=""" & Kaisou & "binx/" & GB_CSS & "sj3tyobored1.css?" & TimeUniq() & """ rel=""stylesheet"" type=""text/css"">" & vbCrLf
		End If
		If InStr(Mode, ";sj3tyobored2;") > 0 Then
			HtmlHeader = HtmlHeader & "<link href=""" & Kaisou & "binx/" & GB_CSS & "sj3tyobored2.css?" & TimeUniq() & """ rel=""stylesheet"" type=""text/css"">" & vbCrLf
		End If
		If InStr(Mode, ";sj3tyobored11;") > 0 Then
			HtmlHeader = HtmlHeader & "<link href=""" & Kaisou & "binx/" & GB_CSS & "sj3tyobored11.css?" & TimeUniq() & """ rel=""stylesheet"" type=""text/css"">" & vbCrLf
		End If
		If InStr(Mode, ";sj3tyoboredPRT09;") > 0 Then
			HtmlHeader = HtmlHeader & "<link href=""" & Kaisou & "binx/" & GB_CSS & "sj3tyoboredPRT09.css?" & TimeUniq() & """ rel=""stylesheet"" type=""text/css"">" & vbCrLf
		End If
		If InStr(Mode, ";sj3tyoboredPRT10;") > 0 Then
			HtmlHeader = HtmlHeader & "<link href=""" & Kaisou & "binx/" & GB_CSS & "sj3tyoboredPRT10.css?" & TimeUniq() & """ rel=""stylesheet"" type=""text/css"">" & vbCrLf
		End If
		If InStr(Mode, ";sj3tyoboreds;") > 0 Then
			HtmlHeader = HtmlHeader & "<link href=""" & Kaisou & "binx/" & GB_CSS & "sj3tyoboreds.css?" & TimeUniq() & """ rel=""stylesheet"" type=""text/css"">" & vbCrLf
		End If
		If Mode = ";Calc;" Then
			HtmlHeader = HtmlHeader & "<title>電卓</title>" & vbCrLf
		Else
			HtmlHeader = HtmlHeader & "<title>" & AppTitle & "</title>" & vbCrLf
		End If
		HtmlHeader = HtmlHeader & "<script language=""JavaScript"" src=""" & Kaisou & "include.js?" & TimeUniq() & """></script>" & vbCrLf
		HtmlHeader = HtmlHeader & "<script language=""JavaScript"" src=""" & Kaisou & "includesj.js?" & TimeUniq() & """></script>" & vbCrLf
'		HtmlHeader = HtmlHeader & "<script language=""JScript"" src=""" & Kaisou & "include.js?" & TimeUniq() & """></script>" & vbCrLf
'		HtmlHeader = HtmlHeader & "<script language=""JScript"" src=""" & Kaisou & "includesj.js?" & TimeUniq() & """></script>" & vbCrLf
'		HtmlHeader = HtmlHeader & "<script language=""JScript.Encode"" src=""" & Kaisou & "include_enc.js?" & TimeUniq() & """></script>" & vbCrLf
'		HtmlHeader = HtmlHeader & "<script language=""JScript.Encode"" src=""" & Kaisou & "includesj_enc.js?" & TimeUniq() & """></script>" & vbCrLf
		HtmlHeader = HtmlHeader & "<script type=""text/javascript"" src=""" & Kaisou & "javascript.js?" & TimeUniq() & """></script>" & vbCrLf
		If InStr(Mode, ";Chart;") > 0 Then 'チャートライブラリを読み込む
'			HtmlHeader = HtmlHeader & "<script src=""" & Kaisou & "binx/chart.js""></script>" & vbCrLf
			HtmlHeader = HtmlHeader & "<script src=""" & Kaisou & "binx/chart.min.js""></script>" & vbCrLf
		End If
		If 0=1 And GB_IEmode <> "1" Then '戻るボタンを抑制すると「○○は登録済みです」画面の戻るリンクが聞かなくなってしまうので廃止
			HtmlHeader = HtmlHeader & "<SCRIPT LANGUAGE=""JavaScript"">" & vbCrLf
			HtmlHeader = HtmlHeader & "<!--" & vbCrLf
			HtmlHeader = HtmlHeader & "	history.pushState(null, null, location.href);" & vbCrLf
			HtmlHeader = HtmlHeader & "	window.addEventListener('popstate', (e) => {" & vbCrLf
			HtmlHeader = HtmlHeader & "		history.go(1);" & vbCrLf
			HtmlHeader = HtmlHeader & "	});" & vbCrLf
			HtmlHeader = HtmlHeader & "-->" & vbCrLf
			HtmlHeader = HtmlHeader & "</SCRIPT>" & vbCrLf
		End If
		HtmlHeader = HtmlHeader & "</head>" & vbCrLf

	End Function



'/////////////////////////////////////////////////////////////////////////////////////
'	名称:HttpL1,2,3
'	目的:通常ページ内のレイヤーの内容を返す
'	作成:2002/9/30 山崎
'/////////////////////////////////////////////////////////////////////////////////////


	Function HttpL1 (iType)

		Dim RateEnable
		RateEnable = True
		'為替レートマスタの行数・文字数でwopenRに与えるサイズを調節する変数
		Dim RateRowCnt
		Dim RateColCnt

		'受発信文書フレーム及びメッセンジャーフレームの自動リロードフラグ
		Dim AutoReload
		AutoReload = ""
		'入力画面ではリロード時にタブコントロールが飛んでしまうのでリロードさせない(090423小野)
		Dim TmpUrl
		TmpUrl = LCase(Request.ServerVariables("SCRIPT_NAME"))
		If Right(TmpUrl, 12) = "/default.asp" Or InStr(TmpUrl, "/menu") > 0 Or InStr(TmpUrl, "_view") Or InStr(TmpUrl, "_main") > 0 Or InStr(TmpUrl, "_ichiran") > 0 Or Right(TmpUrl, 11) = "/admenu.asp" Then
			'AutoReload = "1" 'メッセンジャーのオートリロードは廃止(210528小野)
		End If

		'FESメッセンジャー存在チェック
		Dim MESdb
		If MESvariable = 1 Then
			On Error Resume Next
				Err.Clear()
				Set MESdb = Server.CreateObject("ADODB.Connection")
				MESdb.ConnectionTimeout = 60
				MESdb.CommandTimeout    = 60
				MESdb.Open "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=" & DBUser & ";Password=" & DBPass & ";Initial Catalog=fesmessenger;Data Source=" & SQLServer
				If Err.Description <> "" Then
					MESvariable = 0
				Else
					'フィールド数によるバージョン整合判定(140804版で11フィールドに拡張)
					Query = " SELECT TOP 1 * FROM TMSメッセージ受信F "
					Set Content = ExecQuery(MESdb, Query)
					If Content.Fields.Count < 11 Then
						MESvariable = 0
					End If
				End If
			On Error Goto 0
		End If

		'FESメッセンジャー管理者識別(演習会社ログイン後はユーザーモードでも管理者にする)
		Dim ForceAdmin
		Dim ForceEnshu
		ForceAdmin = GB_Admin
		ForceEnshu = ""
		If ForceAdmin < 1 And Session(HomeAlias & "AutoLoginButton") = "1" Then
			If GB_AdminPCE = "" Then	'演習会社ログイン後且つ演習管理者ではない
				ForceAdmin = 1
				ForceEnshu = GB_EnshuCD	'選択演習を初期表示にする
			ElseIf GB_AdminPCE = GB_EnshuCD Then
				ForceAdmin = 2
			End If
		End If

		'FESメッセンジャーフレームに渡す引数
		Dim MessengerQuery
		If PackageMode = 1 Then
			MessengerQuery = "?MES_AppCD=ca21"
		Else
			MessengerQuery = "?MES_AppCD=sj4web"
		End If
		MessengerQuery = MessengerQuery & "&MES_SystemCD=" & GB_SystemCD
		MessengerQuery = MessengerQuery & "&MES_DBName=" & DBName
		MessengerQuery = MessengerQuery & "&MES_DBUser=" & DBUser
		MessengerQuery = MessengerQuery & "&MES_DBPass=" & DBPass
		MessengerQuery = MessengerQuery & "&MES_Admin=" & ForceAdmin
		MessengerQuery = MessengerQuery & "&MES_ForceEnshu=" & ForceEnshu
		MessengerQuery = MessengerQuery & "&MES_Enshu=" & GB_EnshuCD
		MessengerQuery = MessengerQuery & "&MES_User=" & GB_GakuseiNo
'		MessengerQuery = MessengerQuery & "&OpenMode=Send"

		Dim Kitakuriyou
		Dim KichoCheck
		Dim CheckButton
		Dim MailButton
		KichoCheck = 1
		CheckButton = 1
		Query = "exec SPM演習取得 '" & GB_SystemCD & "','" & EnshuCD & "'"
		Set Content = OpenQuery(Query)
		If Not(Content.BOF Or Content.EOF) Then
			Kitakuriyou = "" & Content.Fields("寄託倉庫利用")
			If "" & Content.Fields("手動総勘定元帳表示") <> "1" And "" & Content.Fields("現金出納帳表示") <> "1" And "" & Content.Fields("当座預金出納帳表示") <> "1" And "" & Content.Fields("売上帳表示") <> "1" And "" & Content.Fields("仕入帳表示") <> "1" And "" & Content.Fields("売掛金元帳表示") <> "1" And "" & Content.Fields("買掛金元帳表示") <> "1" And "" & Content.Fields("受取手形記入帳表示") <> "1" And "" & Content.Fields("支払手形記入帳表示") <> "1" Then
				KichoCheck = 0
			End If
			If (KichoCheck = 0 Or "" & Content.Fields("記帳チェック表示") = "0") And "" & Content.Fields("現物チェック表示") <> "1" And "" & Content.Fields("商品チェック表示") <> "1" Then
				CheckButton = 0
			End If
			MailButton = "" & Content.Fields("メール利用")
		End If
		If Kitakuriyou = "1" Then
			Kitakuriyou = 1
		Else
			Kitakuriyou = 0
		End If
		If PackageMode = 1 And GB_EnshuKubun = "P" Then
			MailButton = ""
		End If

		Dim bCheck
		bCheck = 0
		Dim Query, Content
	If 0=1 Then
		Query = "exec SPN受信文書一覧 '" & GB_SystemCD & "','" & EnshuCD & "', '" & KaisyaCD & "'"
		Set Content = OpenQuery(Query)
		Dim BunsyoInfo, MailInfo, KaifuFlg
		Do While Not(Content.BOF Or Content.EOF)
			If Content.Fields("削除フラグ") = 0 And Content.Fields("開封フラグ") = 0 Then
				bCheck = 1
			End If
			Content.MoveNext
		Loop

		Query = "exec SPNメール受信一覧 '" & GB_SystemCD & "','" & EnshuCD & "', '" & KaisyaCD & "'"
		Set Content = OpenQuery(Query)
		Do While Not(Content.BOF Or Content.EOF)
			If Content.Fields("削除フラグ") = 0 And Content.Fields("開封フラグ") = 0 Then
				bCheck = 1
			End If
			Content.MoveNext
		Loop
	End If


		If iType = 0 Then
			HttpL1 = ""
			HttpL1 = HttpL1 & "<div id=""L1"" style=""position:absolute; visibility: hidden; left: 0px; top: 0px;"">" & vbCrLf
			'FESメッセンジャーデータベースが存在すればボタン表示
			If MESvariable = 1 Then
				HttpL1 = HttpL1 & "	<table height=""29"" border=""0"" cellpadding=""0"" cellspacing=""0"">" & vbCrLf
				HttpL1 = HttpL1 & "		 <tr>" & vbCrLf
				HttpL1 = HttpL1 & "			 <td width=""25"" height=""29"" valign=""middle"">" & vbCrLf
				HttpL1 = HttpL1 & "			 	<IFRAME name=""messengeriframe"" SRC=""" & HomeAliasSL & "include_layout_messenger.asp" & MessengerQuery & "&AutoReload=" & AutoReload & "&" & TimeUniq() & """ WIDTH=""25"" HEIGHT=""25"" FRAMEBORDER=0 MARGINHEIGHT=0 MARGINWIDTH=0 NORESIZE SCROLLING=no tabindex=""-1"" allowTransparency=""true"">" & vbCrLf
				HttpL1 = HttpL1 & "			 		<img src=""" & HomeAliasSL & "images/spacer.gif?" & GB_STU & """ width=""8"" height=""1"">" & vbCrLf
				HttpL1 = HttpL1 & "			 	</IFRAME>" & vbCrLf
				HttpL1 = HttpL1 & "			 </td>" & vbCrLf
				HttpL1 = HttpL1 & "		</tr>" & vbCrLf
				HttpL1 = HttpL1 & "	</table>" & vbCrLf
			End If
			HttpL1 = HttpL1 & "</div>" & vbCrLf
		ElseIf iType = 1 Then	'ポータル、チェック、照会・集計、受発信文書、メッセンジャー、電卓
			HttpL1 = ""
			HttpL1 = HttpL1 & "<div id=""L1"" style=""position:absolute; visibility: hidden; left: 0px; top: 0px;"">" & vbCrLf
			HttpL1 = HttpL1 & "	<table height=""29"" border=""0"" cellpadding=""0"" cellspacing=""0"">" & vbCrLf
			HttpL1 = HttpL1 & "		 <tr>" & vbCrLf
			RateEnable = False
			Query = "exec SPM演習取得 '" & GB_SystemCD & "', '" & EnshuCD & "'"
			Set Content = OpenQuery(Query)
			If Not(Content.BOF Or Content.EOF) Then
				If "" & Content.Fields("為替レート利用") = "1" Then
					RateEnable = True
				End If
			End If
			If RateEnable Then
				'為替レートマスタの行数・文字数でwopenRに与えるサイズを調節する
				RateRowCnt = 0
				RateColCnt = 0
				Query = ""
				Query = Query & " SELECT * "
				Query = Query & " FROM TDA為替レートM "
				Query = Query & " WHERE システムCD = '" & GB_SystemCD & "' "
				Query = Query & " 	AND 演習CD = '" & EnshuCD & "' "
				Query = Query & " ORDER BY 通貨CD "
				Set Content = OpenQuery(Query)
				Do While Not(Content.BOF Or Content.EOF)
					RateEnable = True
					RateRowCnt = RateRowCnt + 1
					If Len(Content.Fields("名称")) > RateColCnt Then
						RateColCnt = Len(Content.Fields("名称"))
					End If
					If Len(Content.Fields("単位")) > RateColCnt Then
						RateColCnt = Len(Content.Fields("単位"))
					End If
					Content.MoveNext
				Loop
				If RateEnable Then
					RateRowCnt = RateRowCnt - 5 '基準行数5を減算
					RateColCnt = RateColCnt - 3 '基準文字数3を減算
					If RateRowCnt < 0 Then
						RateRowCnt = 0
					End If
					If RateColCnt < 0 Then
						RateColCnt = 0
					End If
					RateRowCnt = RateRowCnt * 36
					RateColCnt = RateColCnt * 36
					HttpL1 = HttpL1 & "			 <td width=""29"" height=""29"" background=""" & HomeAliasSL & "images/spbtn_rate.png?" & GB_STU & """ class=""tbtn"" onClick=""wopenR(" & RateColCnt & "," & RateRowCnt & ");""> </td>" & vbCrLf
				End If
			End If
'			If CMvariable = 1 And Not(GB_Gyosyu = "B") And Not((GB_Gyosyu = "K" Or GB_Gyosyu = "U") And Kitakuriyou = 1) Then
'			If CMvariable = 1 And Not(GB_Gyosyu = "B") And Not(GB_Gyosyu = "K") And Not(GB_Gyosyu = "U") Then
			If CMvariable = 1 And Not(GB_Gyosyu = "B") Then
				HttpL1 = HttpL1 & "		<td width=""93"" background=""" & HomeAliasSL & "images/spbtn_cm.gif?" & GB_STU & """ class=""tbtn"" onClick=""wopen('" & HomeAliasSL & "user/bk/portal/portal_kaisha_ichiran.asp','portal')""><img src=""" & HomeAliasSL & "images/spacer.gif?" & GB_STU & """ width=""8"" height=""1""></td>" & vbCrLf
			End If
			If GB_Gyosyu <> "B" Then
				If CheckButton = 1 Then
					HttpL1 = HttpL1 & "		<td width=""85"" background=""" & HomeAliasSL & "images/spbtn_cc.gif?" & GB_STU & """ class=""tbtn"" onClick=""wopen('" & HomeAliasSL & "user/bk/kityocheck/fm_kityo_check.asp?RouteType=KityoOnly','KichoCheck')""><img src=""" & HomeAliasSL & "images/spacer.gif?" & GB_STU & """ width=""8"" height=""1""></td>" & vbCrLf
				End If
				HttpL1 = HttpL1 & "		<td width=""103"" height=""29"" background=""" & HomeAliasSL & "images/spbtn_ss.gif?" & GB_STU & """ class=""tbtn"" onClick=""wopen('" & HomeAliasSL & "user/bk/menu_s_viewonly.asp','syoukai')""><img src=""" & HomeAliasSL & "images/spacer.gif?" & GB_STU & """ width=""8"" height=""1""></td>" & vbCrLf
			End If

'			If bCheck = 1 Then
'				HttpL1 = HttpL1 & "			 <td width=""95"" height=""29"" background=""" & HomeAliasSL & "images/spbtn_mailblk.gif?" & GB_STU & """ class=""tbtn"" onClick=""wopen('" & HomeAliasSL & "user/bk/jyuhasshinbunsyownd/fn_jyuhasshinbunsyo.asp?PageType=Recv&RouteType=MailOnly','mail')"">" & vbCrLf
'			Else
'				HttpL1 = HttpL1 & "			 <td width=""95"" height=""29"" background=""" & HomeAliasSL & "images/spbtn_mail_n.gif?" & GB_STU & """ class=""tbtn"" onClick=""wopen('" & HomeAliasSL & "user/bk/jyuhasshinbunsyownd/fn_jyuhasshinbunsyo.asp?PageType=Recv&RouteType=MailOnly','mail')"">" & vbCrLf
'			End If
			HttpL1 = HttpL1 & "			 <td width=""110"" height=""29"">" & vbCrLf
			HttpL1 = HttpL1 & "			 	<IFRAME name=""mailblink"" SRC=""" & HomeAliasSL & "include_layout_mail.asp?bCheck=" & bCheck & "&AutoReload=" & AutoReload & "&" & TimeUniq() & """ WIDTH=""110"" HEIGHT=""28"" FRAMEBORDER=0 MARGINHEIGHT=0 MARGINWIDTH=0 NORESIZE SCROLLING=no tabindex=""-1"" allowTransparency=""true"">" & vbCrLf
			HttpL1 = HttpL1 & "			 	<img src=""" & HomeAliasSL & "images/spacer.gif?" & GB_STU & """ width=""8"" height=""1"">" & vbCrLf
			HttpL1 = HttpL1 & "			 	</IFRAME>" & vbCrLf
			HttpL1 = HttpL1 & "			 </td>" & vbCrLf
			'FESメッセンジャーデータベースが存在すればボタン表示
			If MESvariable = 1 Then
				HttpL1 = HttpL1 & "			 <td width=""25"" height=""29"" valign=""middle"">" & vbCrLf
				HttpL1 = HttpL1 & "			 	<IFRAME name=""messengeriframe"" SRC=""" & HomeAliasSL & "include_layout_messenger.asp" & MessengerQuery & "&AutoReload=" & AutoReload & "&" & TimeUniq() & """ WIDTH=""25"" HEIGHT=""25"" FRAMEBORDER=0 MARGINHEIGHT=0 MARGINWIDTH=0 NORESIZE SCROLLING=no tabindex=""-1"" allowTransparency=""true"">" & vbCrLf
				HttpL1 = HttpL1 & "			 		<img src=""" & HomeAliasSL & "images/spacer.gif?" & GB_STU & """ width=""8"" height=""1"">" & vbCrLf
				HttpL1 = HttpL1 & "			 	</IFRAME>" & vbCrLf
				HttpL1 = HttpL1 & "			 </td>" & vbCrLf
			End If
'			HttpL1 = HttpL1 & "			 <td width=""30"" height=""29"" background=""" & HomeAliasSL & "images/spbtn_img.gif?" & GB_STU & """ class=""tbtn"" onClick=""wopen('" & HomeAliasSL & "user/bk/kikakushitsu/gazokako.asp?RouteType=ImgWnd')""> </td>" & vbCrLf
			HttpL1 = HttpL1 & "			 <td width=""24"" height=""29"" background=""" & HomeAliasSL & "images/spbtn_calc.gif?" & GB_STU & """ class=""tbtn"" onClick=""wopenC()""> </td>" & vbCrLf
			HttpL1 = HttpL1 & "			 <td><img src=""" & HomeAliasSL & "images/spacer.gif?" & GB_STU & """ width=""1"" height=""1""></td>" & vbCrLf
			HttpL1 = HttpL1 & "	</tr>" & vbCrLf
			HttpL1 = HttpL1 & "	</table>" & vbCrLf
			HttpL1 = HttpL1 & "</div>" & vbCrLf
		ElseIf iType = 2 Or iType = 3 Then	'ポータル、チェック、照会・集計、受発信文書、メッセンジャー、電卓
			HttpL1 = ""
			HttpL1 = HttpL1 & "<div id=""L1"" style=""position:absolute; visibility: hidden; left: 0px; top: 0px;"">" & vbCrLf
			HttpL1 = HttpL1 & "	<table height=""29"" border=""0"" cellpadding=""0"" cellspacing=""0"">" & vbCrLf
			HttpL1 = HttpL1 & "		 <tr>" & vbCrLf
			HttpL1 = HttpL1 & "			 <td><img src=""" & HomeAliasSL & "images/spacer.gif?" & GB_STU & """ width=""1"" height=""1""></td>" & vbCrLf
			RateEnable = False
			Query = "exec SPM演習取得 '" & GB_SystemCD & "', '" & EnshuCD & "'"
			Set Content = OpenQuery(Query)
			If Not(Content.BOF Or Content.EOF) Then
				If "" & Content.Fields("為替レート利用") = "1" Then
					RateEnable = True
				End If
			End If
			If RateEnable Then
				RateEnable = False
				'為替レートマスタの行数・文字数でwopenRに与えるサイズを調節する
				RateRowCnt = 0
				RateColCnt = 0
				Query = ""
				Query = Query & " SELECT * "
				Query = Query & " FROM TDA為替レートM "
				Query = Query & " WHERE システムCD = '" & GB_SystemCD & "' "
				Query = Query & " 	AND 演習CD = '" & EnshuCD & "' "
				Query = Query & " ORDER BY 通貨CD "
				Set Content = OpenQuery(Query)
				Do While Not(Content.BOF Or Content.EOF)
					RateEnable = True
					RateRowCnt = RateRowCnt + 1
					If Len(Content.Fields("名称")) > RateColCnt Then
						RateColCnt = Len(Content.Fields("名称"))
					End If
					If Len(Content.Fields("単位")) > RateColCnt Then
						RateColCnt = Len(Content.Fields("単位"))
					End If
					Content.MoveNext
				Loop
				If RateEnable Then
					RateRowCnt = RateRowCnt - 5 '基準行数5を減算
					RateColCnt = RateColCnt - 3 '基準文字数3を減算
					If RateRowCnt < 0 Then
						RateRowCnt = 0
					End If
					If RateColCnt < 0 Then
						RateColCnt = 0
					End If
					RateRowCnt = RateRowCnt * 36
					RateColCnt = RateColCnt * 36
					HttpL1 = HttpL1 & "			 <td width=""29"" height=""29"" background=""" & HomeAliasSL & "images/spbtn_rate.png?" & GB_STU & """ class=""tbtn"" onClick=""wopenR(" & RateColCnt & "," & RateRowCnt & ");""> </td>" & vbCrLf
					HttpL1 = HttpL1 & "			 <td><img src=""" & HomeAliasSL & "images/spacer.gif?" & GB_STU & """ width=""1"" height=""1""></td>" & vbCrLf
				End If
			End If
'			If CMvariable = 1 And Not(GB_Gyosyu = "B") And Not((GB_Gyosyu = "K" Or GB_Gyosyu = "U") And Kitakuriyou = 1) Then
'			If CMvariable = 1 And Not(GB_Gyosyu = "B") And Not(GB_Gyosyu = "K") And Not(GB_Gyosyu = "U") Then
			'サイバー会計モードではポータルボタンを表示しない
			If PackageMode = 1 Then
			Else
				If CMvariable = 1 And Not(GB_Gyosyu = "B") And PackageMode <> 1 Then
					HttpL1 = HttpL1 & "		<td width=""93"" background=""" & HomeAliasSL & "images/spbtn_cm.gif?" & GB_STU & """ class=""tbtn"" onClick=""wopen('" & HomeAliasSL & "user/bk/portal/portal_kaisha_ichiran.asp','portal')""><img src=""" & HomeAliasSL & "images/spacer.gif?" & GB_STU & """ width=""8"" height=""1""></td>" & vbCrLf
				End If
			End If
			'サイバー会計のグループモードでは「メール」ボタンを表示する
			If PackageMode = 1 And GB_EnshuKubun = "G" And MailButton = "1" Then
				HttpL1 = HttpL1 & "			 <td width=""85"" height=""29"">" & vbCrLf
				HttpL1 = HttpL1 & "			 	<IFRAME name=""mailblink"" SRC=""" & HomeAliasSL & "include_layout_mail.asp?bCheck=" & bCheck & "&AutoReload=" & AutoReload & "&" & TimeUniq() & """ WIDTH=""85"" HEIGHT=""29"" FRAMEBORDER=0 MARGINHEIGHT=0 MARGINWIDTH=0 NORESIZE SCROLLING=no tabindex=""-1"" allowTransparency=""true"">" & vbCrLf
				HttpL1 = HttpL1 & "			 	<img src=""" & HomeAliasSL & "images/spacer.gif?" & GB_STU & """ width=""8"" height=""1"">" & vbCrLf
				HttpL1 = HttpL1 & "			 	</IFRAME>" & vbCrLf
				HttpL1 = HttpL1 & "			 </td>" & vbCrLf
			End If
			If GB_Gyosyu <> "B" Then
				If CheckButton = 1 Then
					HttpL1 = HttpL1 & "		<td width=""85"" background=""" & HomeAliasSL & "images/spbtn_cc.gif?" & GB_STU & """ class=""tbtn"" onClick=""wopen('" & HomeAliasSL & "user/bk/kityocheck/fm_kityo_check.asp?RouteType=KityoOnly','KichoCheck')""><img src=""" & HomeAliasSL & "images/spacer.gif?" & GB_STU & """ width=""8"" height=""1""></td>" & vbCrLf
				End If
				HttpL1 = HttpL1 & "		<td width=""103"" height=""29"" background=""" & HomeAliasSL & "images/spbtn_ss.gif?" & GB_STU & """ class=""tbtn"" onClick=""wopen('" & HomeAliasSL & "user/bk/menu_s_viewonly.asp','syoukai')""><img src=""" & HomeAliasSL & "images/spacer.gif?" & GB_STU & """ width=""8"" height=""1""></td>" & vbCrLf
			End If
'			If bCheck = 1 Then
'				HttpL1 = HttpL1 & "			 <td width=""95"" height=""29"" background=""" & HomeAliasSL & "images/spbtn_mailblk.gif?" & GB_STU & """ class=""tbtn"" onClick=""wopen('" & HomeAliasSL & "user/bk/jyuhasshinbunsyownd/fn_jyuhasshinbunsyo.asp?PageType=Recv&RouteType=MailOnly','mail')"">" & vbCrLf
'			Else
'				HttpL1 = HttpL1 & "			 <td width=""95"" height=""29"" background=""" & HomeAliasSL & "images/spbtn_mail_n.gif?" & GB_STU & """ class=""tbtn"" onClick=""wopen('" & HomeAliasSL & "user/bk/jyuhasshinbunsyownd/fn_jyuhasshinbunsyo.asp?PageType=Recv&RouteType=MailOnly','mail')"">" & vbCrLf
'			End If
			'サイバー会計モードでは受発信文書ボタンを表示しない
			If PackageMode = 1 Then
			Else
				HttpL1 = HttpL1 & "			 <td width=""110"" height=""29"">" & vbCrLf
				HttpL1 = HttpL1 & "			 	<IFRAME name=""mailblink"" SRC=""" & HomeAliasSL & "include_layout_mail.asp?bCheck=" & bCheck & "&AutoReload=" & AutoReload & "&" & TimeUniq() & """ WIDTH=""110"" HEIGHT=""29"" FRAMEBORDER=0 MARGINHEIGHT=0 MARGINWIDTH=0 NORESIZE SCROLLING=no tabindex=""-1"" allowTransparency=""true"">" & vbCrLf
				HttpL1 = HttpL1 & "			 	<img src=""" & HomeAliasSL & "images/spacer.gif?" & GB_STU & """ width=""8"" height=""1"">" & vbCrLf
				HttpL1 = HttpL1 & "			 	</IFRAME>" & vbCrLf
				HttpL1 = HttpL1 & "			 </td>" & vbCrLf
			End If
			'FESメッセンジャーデータベースが存在すればボタン表示
			If MESvariable = 1 Then
				HttpL1 = HttpL1 & "			 <td width=""25"" height=""29"" valign=""middle"">" & vbCrLf
				HttpL1 = HttpL1 & "			 	<IFRAME name=""messengeriframe"" SRC=""" & HomeAliasSL & "include_layout_messenger.asp" & MessengerQuery & "&AutoReload=" & AutoReload & "&" & TimeUniq() & """ WIDTH=""25"" HEIGHT=""25"" FRAMEBORDER=0 MARGINHEIGHT=0 MARGINWIDTH=0 NORESIZE SCROLLING=no tabindex=""-1"" allowTransparency=""true"">" & vbCrLf
				HttpL1 = HttpL1 & "			 		<img src=""" & HomeAliasSL & "images/spacer.gif?" & GB_STU & """ width=""8"" height=""1"">" & vbCrLf
				HttpL1 = HttpL1 & "			 	</IFRAME>" & vbCrLf
				HttpL1 = HttpL1 & "			 </td>" & vbCrLf
			End If
'			HttpL1 = HttpL1 & "			 <td width=""30"" height=""29"" background=""" & HomeAliasSL & "images/spbtn_img.gif?" & GB_STU & """ class=""tbtn"" onClick=""wopen('" & HomeAliasSL & "user/bk/kikakushitsu/gazokako.asp?RouteType=ImgWnd')""> </td>" & vbCrLf
			HttpL1 = HttpL1 & "			 <td width=""24"" height=""29"" background=""" & HomeAliasSL & "images/spbtn_calc.gif?" & GB_STU & """ class=""tbtn"" onClick=""wopenC()""> </td>" & vbCrLf
			HttpL1 = HttpL1 & "		 </tr>" & vbCrLf
			HttpL1 = HttpL1 & "	</table>" & vbCrLf
			HttpL1 = HttpL1 & "</div>" & vbCrLf
		ElseIf iType = 4 Then	'無し
			HttpL1 = ""
			HttpL1 = HttpL1 & "<div id=""L1"" style=""position:absolute; visibility: hidden; left: 0px; top: 0px;"">" & vbCrLf
			HttpL1 = HttpL1 & "	<table height=""25"" border=""0"" cellpadding=""0"" cellspacing=""0"">" & vbCrLf
			HttpL1 = HttpL1 & "		 <tr>" & vbCrLf
			HttpL1 = HttpL1 & "			 <td><img src=""" & HomeAliasSL & "images/spacer.gif?" & GB_STU & """ width=""1"" height=""1""></td>" & vbCrLf
			'FESメッセンジャーデータベースが存在すればボタン表示
			If MESvariable = 1 And InStr(UCase(Request.ServerVariables("URL")), UCase("" & HomeAliasSL & "admin/admenu_enshu_sentaku.asp")) < 1 Then
				HttpL1 = HttpL1 & "			 <td width=""25"" height=""29"" valign=""middle"">" & vbCrLf
				HttpL1 = HttpL1 & "			 	<IFRAME name=""messengeriframe"" SRC=""" & HomeAliasSL & "include_layout_messenger.asp" & MessengerQuery & "&AutoReload=" & AutoReload & "&" & TimeUniq() & """ WIDTH=""25"" HEIGHT=""25"" FRAMEBORDER=0 MARGINHEIGHT=0 MARGINWIDTH=0 NORESIZE SCROLLING=no tabindex=""-1"" allowTransparency=""true"">" & vbCrLf
				HttpL1 = HttpL1 & "			 		<img src=""" & HomeAliasSL & "images/spacer.gif?" & GB_STU & """ width=""8"" height=""1"">" & vbCrLf
				HttpL1 = HttpL1 & "			 	</IFRAME>" & vbCrLf
				HttpL1 = HttpL1 & "			 </td>" & vbCrLf
			End If
			HttpL1 = HttpL1 & "		 </tr>" & vbCrLf
			HttpL1 = HttpL1 & "	</table>" & vbCrLf
			HttpL1 = HttpL1 & "</div>" & vbCrLf
		End If
	End Function



	Function HttpL2 (btn1,btn1c, btn2, btn2c, btn3, btn3c, btn4, btn4c, btn5, btn5c, btn6, btn6c)

		'サイバー会計モードではボタンを入れ替える
'		If PackageMode = 1 And btn1 = "会社選択" Then
'			btn1 = "演習選択"
'			btn1c = "tblbtn('" & HomeAliasSL & "user/default.asp')"
'		End If
'		If PackageMode = 1 And btn2 = "商社" Then
'			btn2 = "メニュー"
'			btn2c = "tblbtn('" & HomeAliasSL & "user/bk/menu_s.asp')"
'		End If

		'使えないクエリ文字列を入れ替える
		btn1c = QueryStringIrekae(btn1c)
		btn2c = QueryStringIrekae(btn2c)
		btn3c = QueryStringIrekae(btn3c)
		btn4c = QueryStringIrekae(btn4c)
		btn5c = QueryStringIrekae(btn5c)
		btn6c = QueryStringIrekae(btn6c)

		Dim Query
		Dim Content
		Dim Kouririyou
		Dim Kitakuriyou
		Dim KitakuKeiyaku
		Dim InputHojyobo
		Dim AutoGenkinNyuSyukinRireki, AutoYokinNyuSyukinRireki, AutoNyukoJisseki, AutoSyukoJisseki
		Dim AutoSyohinZaiko, AutoUketoriTegataIchiran, AutoShiaraiTegataIchiran
		Dim InputShiwaketyo, InputShiwakeShukeihyo, InputGokeiZandakaShisanhyo, InputSokanjyoMototyo
		Dim InputTaisyakuTaisyohyo, InputSonekiKeisansyo, InputHachiketaSeisanhyo, InputStockholderEquity
		Dim AutoShiwaketyo, AutoShiwakeShukeihyo, AutoGokeiZandakaShisanhyo, AutoSokanjyoMototyo
		Dim AutoTaisyakuTaisyohyo, AutoSonekiKeisansyo, AutoHachiketaSeisanhyo, AutoStockholderEquity
		Dim SokanjyomototyoHyojyunshiki
		Dim SyohinNyusyukkoSeikousei
		Dim SiireNyuko
		Dim UriageHenpin
		Dim RiyoDenpyoSu
		Dim SeisanhyoSeirikinyu
		Dim InputShiwaketyoKyuVersionRiyo
		Dim SyohinKikakushitsuRiyo
		Dim GenkaKaikeiRiyo
		Dim NyuShukkoTanto
		Query = "exec SPM演習取得 '" & GB_SystemCD & "','" & EnshuCD & "'"
		Set Content = OpenQuery(Query)
		If Not(Content.BOF Or Content.EOF) Then
			Kitakuriyou = "" & Content.Fields("寄託倉庫利用")
			Kouririyou = "" & Content.Fields("小売販売有無")
			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)
			InputHojyobo = Content.Fields("手動補助簿表示")
			InputShiwaketyo = Content.Fields("手動仕訳帳表示")
			InputShiwakeShukeihyo = Content.Fields("手動仕訳集計表表示")
			InputGokeiZandakaShisanhyo = Content.Fields("手動合計残高試算表表示")
			InputSokanjyoMototyo = Content.Fields("手動総勘定元帳表示")
			InputTaisyakuTaisyohyo = Content.Fields("手動貸借対照表表示")
			InputSonekiKeisansyo = Content.Fields("手動損益計算書表示")
			InputHachiketaSeisanhyo = Content.Fields("手動8桁精算表表示")
			InputStockholderEquity = Content.Fields("手動株主資本等変動計算書表示")
			AutoShiwaketyo = Content.Fields("自動転記仕訳帳表示")
			AutoShiwakeShukeihyo = Content.Fields("自動転記仕訳集計表表示")
			AutoGokeiZandakaShisanhyo = Content.Fields("自動転記合計残高試算表表示")
			AutoSokanjyoMototyo = Content.Fields("自動転記総勘定元帳表示")
			AutoTaisyakuTaisyohyo = Content.Fields("自動転記貸借対照表表示")
			AutoSonekiKeisansyo = Content.Fields("自動転記損益計算書表示")
			AutoHachiketaSeisanhyo = Content.Fields("自動転記8桁精算表表示")
			AutoStockholderEquity = Content.Fields("自動転記株主資本等変動計算書表示")
			SokanjyomototyoHyojyunshiki = Content.Fields("総勘定元帳標準式利用")
			SyohinNyusyukkoSeikousei = Content.Fields("商品入出庫整合性利用")
			RiyoDenpyoSu = Content.Fields("利用伝票数区分")
			SeisanhyoSeirikinyu = Content.Fields("整理記入精算表利用")
			InputShiwaketyoKyuVersionRiyo = Content.Fields("手入力仕訳帳旧バージョン利用")
			SyohinKikakushitsuRiyo = "" & Content.Fields("商品開発課利用")
			GenkaKaikeiRiyo = "" & Content.Fields("原価会計利用")
			NyuShukkoTanto = "" & Content.Fields("倉庫部利用")
		End If
		If Kitakuriyou = "1" Then
			Kitakuriyou = 1
		Else
			Kitakuriyou = 0
		End If
		KitakuKeiyaku = KitakuKeiyakuJoutai() 'int型1文字
		If Kouririyou = "1" Then
			Kouririyou = 1
		Else
			Kouririyou = 0
		End If
		If SyohinNyusyukkoSeikousei = "1" Then
			SiireNyuko = "" & HomeAliasSL & "user/bk/shiireuriage/fd_nyusyukko_ichiran.asp?BunsyoSyuruiCD=SS&SenpoBunsyoSyuruiCD=SU&NyusyukoKubun=S"
			UriageHenpin = "" & HomeAliasSL & "user/bk/shiireuriage/fd_nyusyukko_ichiran.asp?BunsyoSyuruiCD=SY&SenpoBunsyoSyuruiCD=SX"
		Else
			SiireNyuko = "" & HomeAliasSL & "user/bk/shiireuriage/fd_nyusyukko.asp?BunsyoSyuruiCD=SS&NyusyukoKubun=S"
			UriageHenpin = "" & HomeAliasSL & "user/bk/shiireuriage/fd_nyusyukko.asp?BunsyoSyuruiCD=SY"
		End If

		Dim PopuoKaigyo 'ポップアップメニュー折り返し
		PopuoKaigyo = ""
		If GB_IEmode = "1" Then
			PopuoKaigyo = "			MenuItem.push(""kaigyo"", ""dummy"");" & vbCrLf
		End If

		HttpL2 = ""
	'※ ※ ※ ※ ※ ポップアップメニュー関数 ※ ※ ※ ※ ※(070218小野)
		HttpL2 = HttpL2 & "<SCRIPT LANGUAGE=""JavaScript"">" & vbCrLf
		HttpL2 = HttpL2 & "<!--" & vbCrLf
		HttpL2 = HttpL2 & "function PopupMenu(obj, item, posx, posy) {" & vbCrLf
		HttpL2 = HttpL2 & "	posx = eval(posx) + document.getElementById('MainContentsLayer').getBoundingClientRect().left;" & vbCrLf
		HttpL2 = HttpL2 & "	if (document.getElementById('AdminMessageLayer')) {" & vbCrLf
If GB_IEmode <> "1" Then
		'HttpL2 = HttpL2 & "alert(document.getElementById('AdminMessageLayer').getBoundingClientRect().height);" & vbCrLf
		HttpL2 = HttpL2 & "		posy = eval(posy) + document.getElementById('AdminMessageLayer').getBoundingClientRect().height;" & vbCrLf '黒板表示の場合の下シフト
Else
		HttpL2 = HttpL2 & "		posy = eval(posy) + 40;" & vbCrLf '黒板表示の場合の下シフト(IEモードは固定値で妥協)
End If
		HttpL2 = HttpL2 & "	}" & vbCrLf
'		HttpL2 = HttpL2 & "alert(posy);" & vbCrLf
		HttpL2 = HttpL2 & "	var sjpopupmenuel = document.getElementById('sjpopupmenu');" & vbCrLf
		'メニュー項目
		HttpL2 = HttpL2 & "	MenuItem = new Array();" & vbCrLf
		HttpL2 = HttpL2 & "	switch (item) {" & vbCrLf
		'同時同業会社選択
		If GB_EnshuKubun = "P" Then
			HttpL2 = HttpL2 & "		case 'default':" & vbCrLf
			HttpL2 = HttpL2 & "			MenuItem.push(""会社選択"", """ & HomeAliasSL & "user/bk"");" & vbCrLf
			Dim MenuCnt
			MenuCnt = 0
			Query = "exec SPV選択可能会社一覧 '" & GB_SystemCD & "','" & EnshuCD & "', '" & GakuseiNo & "', '0'"
			Set Content = OpenQuery(Query)
			Do While Not(Content.BOF Or Content.EOF)
		 		If Content.Fields("会社取扱区分") <> 0 And Content.Fields("会社CD") <> KaisyaCD Then
					MenuCnt = MenuCnt + 1
					HttpL2 = HttpL2 & "			MenuItem.push(""" & Content.Fields("会社略名称")
'					HttpL2 = HttpL2 & "			MenuItem.push(""" & Content.Fields("会社略名称") & "-"
'					If Content.Fields("業種名称") = "運輸・倉庫・保険" Then
'						HttpL2 = HttpL2 & "運送"
'					Else
'						HttpL2 = HttpL2 & Content.Fields("業種名称")
'					End If
					HttpL2 = HttpL2 & """, """ & HomeAliasSL & "user/bk/default_bin.asp?KaisyaCD=" & Content.Fields("会社CD") & """);" & vbCrLf
					If MenuCnt Mod 5 = 0 Then
						HttpL2 = HttpL2 & PopuoKaigyo
					End If
				End If
			 	Content.MoveNext
			Loop
			HttpL2 = HttpL2 & "			break;" & vbCrLf
		End If
		'商社
		HttpL2 = HttpL2 & "		case 's':" & vbCrLf
		HttpL2 = HttpL2 & "			MenuItem.push(""商社"", """ & HomeAliasSL & "user/bk/menu_s.asp"");" & vbCrLf
		HttpL2 = HttpL2 & "			MenuItem.push(""経  理  部"", """ & HomeAliasSL & "user/bk/menu_s1.asp"");" & vbCrLf
		HttpL2 = HttpL2 & "			MenuItem.push(""仕  入  部"", """ & HomeAliasSL & "user/bk/menu_s3.asp"");" & vbCrLf
		HttpL2 = HttpL2 & "			MenuItem.push(""販  売  部"", """ & HomeAliasSL & "user/bk/menu_s2.asp"");" & vbCrLf
		If NyuShukkoTanto = "1" Then
			HttpL2 = HttpL2 & "			MenuItem.push(""倉  庫  部"", """ & HomeAliasSL & "user/bk/menu_s7.asp"");" & vbCrLf
		End If
		If Genkavariable > 0 And GenkaKaikeiRiyo = "1" Then
			HttpL2 = HttpL2 & "			MenuItem.push(""製  造  部"", """ & HomeAliasSL & "user/bk/menu_s6.asp"");" & vbCrLf
		ElseIf SyohinKikakushitsuRiyo = "1" Then
			HttpL2 = HttpL2 & "			MenuItem.push(""商 品 企 画 室"", """ & HomeAliasSL & "user/bk/menu_s5.asp"");" & vbCrLf
		End If
		HttpL2 = HttpL2 & "			MenuItem.push(""社長室・総務部"", """ & HomeAliasSL & "user/bk/menu_s4.asp"");" & vbCrLf
		HttpL2 = HttpL2 & PopuoKaigyo
		HttpL2 = HttpL2 & "			break;" & vbCrLf
If 0 = 1 Then '部署内ポップアップは廃止
		'経理部
		HttpL2 = HttpL2 & "		case 's1':" & vbCrLf
		HttpL2 = HttpL2 & "			MenuItem.push(""経理部"",   """ & HomeAliasSL & "user/bk/menu_s1.asp"");" & vbCrLf
		HttpL2 = HttpL2 & "			MenuItem.push(""伝    票"",   """ & HomeAliasSL & "user/bk/menu_s11.asp"");" & vbCrLf
		HttpL2 = HttpL2 & "			MenuItem.push(""帳    簿"",   """ & HomeAliasSL & "user/bk/menu_s12.asp"");" & vbCrLf
		HttpL2 = HttpL2 & "			MenuItem.push(""入    金"",   """ & HomeAliasSL & "user/bk/kinko/fk_nyukin.asp?PageType=Nyukin"");" & vbCrLf
		HttpL2 = HttpL2 & "			MenuItem.push(""出    金"",   """ & HomeAliasSL & "user/bk/kinko/fk_nyukin.asp?PageType=Shukkin"");" & vbCrLf
		HttpL2 = HttpL2 & "			MenuItem.push(""領 収 書 管 理"", """ & HomeAliasSL & "user/bk/ryosyusyo/fk_ryosyusyo.asp"");" & vbCrLf
		HttpL2 = HttpL2 & "			MenuItem.push(""給 与 台 帳"", """ & HomeAliasSL & "user/bk/kyuyo/fk_kyuyo_ichiran.asp"");" & vbCrLf
		HttpL2 = HttpL2 & PopuoKaigyo
		HttpL2 = HttpL2 & "			MenuItem.push(""小 切 手 管 理"", """ & HomeAliasSL & "user/bk/tegata/fk_tegata.asp?BunsyoSyuruiCD=TG"");" & vbCrLf
		HttpL2 = HttpL2 & "			MenuItem.push(""約束手形管理"",   """ & HomeAliasSL & "user/bk/tegata/fk_tegata.asp?BunsyoSyuruiCD=TY"");" & vbCrLf
		HttpL2 = HttpL2 & "			MenuItem.push(""為替手形管理"",   """ & HomeAliasSL & "user/bk/tegata/fk_tegata.asp?BunsyoSyuruiCD=TK"");" & vbCrLf
		If AutoUketoriTegataIchiran = "1" Then
			HttpL2 = HttpL2 & "			MenuItem.push(""受取手形履歴"",   """ & HomeAliasSL & "user/bk/syokaisyukei/fk_uketorisiharaitegatatyo_view.asp?BunsyoSyuruiCD=MH&SenpoFlg=1"");" & vbCrLf
		End If
		If AutoShiaraiTegataIchiran = "1" Then
			HttpL2 = HttpL2 & "			MenuItem.push(""支払手形履歴"",   """ & HomeAliasSL & "user/bk/syokaisyukei/fk_uketorisiharaitegatatyo_view.asp?BunsyoSyuruiCD=MI"");" & vbCrLf
		End If
		HttpL2 = HttpL2 & PopuoKaigyo
		HttpL2 = HttpL2 & "			MenuItem.push(""勘定残高設定"",   """ & HomeAliasSL & "user/bk/kisyusettei/fk_kanjyozandaka.asp"");" & vbCrLf
		HttpL2 = HttpL2 & "			MenuItem.push(""繰越残高設定"",   """ & HomeAliasSL & "user/bk/kisyusettei/fk_kurikoshizandaka.asp"");" & vbCrLf
		If SeisanhyoSeirikinyu = "1" Then
			HttpL2 = HttpL2 & "			MenuItem.push(""精算表整理記入"", """ & HomeAliasSL & "user/bk/kimatsusettei/fk_seisanhyo.asp"");" & vbCrLf
		Else
			HttpL2 = HttpL2 & "			MenuItem.push(""整理記入振替"", """ & HomeAliasSL & "user/bk/kimatsusettei/fk_furikae.asp"");" & vbCrLf
		End If
		HttpL2 = HttpL2 & "			MenuItem.push(""銀 行 窓 口"", """ & HomeAliasSL & "user/bk/menu_s1.asp"");" & vbCrLf
		If AutoGenkinNyuSyukinRireki = "1" Then
			HttpL2 = HttpL2 & "			MenuItem.push(""入 出 金 履 歴"", """ & HomeAliasSL & "user/bk/syokaisyukei/fk_kinko_rireki.asp?PageType="");" & vbCrLf
		End If
		HttpL2 = HttpL2 & "			break;" & vbCrLf
		'経理部 → 伝票
		HttpL2 = HttpL2 & "		case 's11':" & vbCrLf
		HttpL2 = HttpL2 & "			MenuItem.push(""伝票"",   """ & HomeAliasSL & "user/bk/menu_s11.asp"");" & vbCrLf
		If RiyoDenpyoSu = "5" Or RiyoDenpyoSu = "3" Then
			HttpL2 = HttpL2 & "			MenuItem.push(""入 金 伝 票"", """ & HomeAliasSL & "user/bk/denpyo/fk_nyukinsyukin.asp?Pagetype=Nyukin"");" & vbCrLf
			HttpL2 = HttpL2 & "			MenuItem.push(""出 金 伝 票"", """ & HomeAliasSL & "user/bk/denpyo/fk_nyukinsyukin.asp?Pagetype=Shukkin"");" & vbCrLf
		End If
		HttpL2 = HttpL2 & "			MenuItem.push(""振 替 伝 票"", """ & HomeAliasSL & "user/bk/denpyo/fk_furikae.asp"");" & vbCrLf
		If RiyoDenpyoSu = "5"Then
			HttpL2 = HttpL2 & "			MenuItem.push(""仕 入 伝 票"", """ & HomeAliasSL & "user/bk/denpyo/fk_shiireuriage.asp?Pagetype=Shiire"");" & vbCrLf
			HttpL2 = HttpL2 & "			MenuItem.push(""売 上 伝 票"", """ & HomeAliasSL & "user/bk/denpyo/fk_shiireuriage.asp?Pagetype=Uriage"");" & vbCrLf
		End If
		HttpL2 = HttpL2 & "			break;" & vbCrLf
		'経理部 → 帳簿
		HttpL2 = HttpL2 & "		case 's12':" & vbCrLf
		HttpL2 = HttpL2 & "			MenuItem.push(""帳簿"",   """ & HomeAliasSL & "user/bk/menu_s12.asp"");" & vbCrLf
		If InputShiwaketyo = "1" Then
			If InputShiwaketyoKyuVersionRiyo = "1" Then
				HttpL2 = HttpL2 & "			MenuItem.push(""仕  訳  帳"",   """ & HomeAliasSL & "user/bk/tyobo/fk_shiwakenikkityo_old.asp"");" & vbCrLf
			Else
				HttpL2 = HttpL2 & "			MenuItem.push(""仕  訳  帳"",   """ & HomeAliasSL & "user/bk/tyobo/fk_shiwakenikkityo.asp"");" & vbCrLf
			End If
		End If
		If InputShiwakeShukeihyo = "1" Then
			HttpL2 = HttpL2 & "			MenuItem.push(""仕 訳 集 計 表"", """ & HomeAliasSL & "user/bk/tyobo/fk_shiwakesyukeihyo.asp"");" & vbCrLf
		End If
		If InputGokeiZandakaShisanhyo = "1" Then
			HttpL2 = HttpL2 & "			MenuItem.push(""合計残高試算表"", """ & HomeAliasSL & "user/bk/tyobo/fk_gokeizandakashisanhyo.asp"");" & vbCrLf
		End If
		If InputSokanjyoMototyo = "1" Then
			If SokanjyomototyoHyojyunshiki = "1" Then
				HttpL2 = HttpL2 & "			MenuItem.push(""総 勘 定 元 帳"", """ & HomeAliasSL & "user/bk/tyobo/fk_sokanjyomototyohyojyun.asp"");" & vbCrLf
			Else
				HttpL2 = HttpL2 & "			MenuItem.push(""総 勘 定 元 帳"", """ & HomeAliasSL & "user/bk/tyobo/fk_sokanjyomototyo.asp"");" & vbCrLf
			End If
		End If
		If InputHojyobo = "1" Then
			HttpL2 = HttpL2 & "			MenuItem.push(""現 金 出 納 帳"", """ & HomeAliasSL & "user/bk/hojyobo/fk_genkinsuitotyo.asp?RouteType="");" & vbCrLf
			HttpL2 = HttpL2 & "			MenuItem.push(""当座預金出納帳"", """ & HomeAliasSL & "user/bk/hojyobo/fk_touzayokinsuitotyo.asp?RouteType="");" & vbCrLf
		End If
		HttpL2 = HttpL2 & PopuoKaigyo
		If InputTaisyakuTaisyohyo = "1" Then
			HttpL2 = HttpL2 & "			MenuItem.push(""貸 借 対 照 表"", """ & HomeAliasSL & "user/bk/tyobo/fk_taisyakutaisyohyo.asp"");" & vbCrLf
		End If
		If InputSonekiKeisansyo = "1" Then
			HttpL2 = HttpL2 & "			MenuItem.push(""損 益 計 算 書"", """ & HomeAliasSL & "user/bk/tyobo/fk_sonekikeisansyo.asp"");" & vbCrLf
		End If
		If InputHachiketaSeisanhyo = "1" Then
			HttpL2 = HttpL2 & "			MenuItem.push(""8 桁 精 算 表"",  """ & HomeAliasSL & "user/bk/tyobo/fk_hachiketaseisanhyo.asp"");" & vbCrLf
		End If
		If InputStockholderEquity = "1" Then
			HttpL2 = HttpL2 & "			MenuItem.push(""株主資本計算書"", """ & HomeAliasSL & "user/bk/tyobo/fk_stockholder_equity.asp"");" & vbCrLf
		End If
		If InputHojyobo = "1" Then
			HttpL2 = HttpL2 & "			MenuItem.push(""売  上  帳"",   """ & HomeAliasSL & "user/bk/hojyobo/fk_shiireuriagetyo.asp?RouteType=&PageType=Uriage"");" & vbCrLf
			HttpL2 = HttpL2 & "			MenuItem.push(""仕  入  帳"",   """ & HomeAliasSL & "user/bk/hojyobo/fk_shiireuriagetyo.asp?RouteType=&PageType=Shiire"");" & vbCrLf
			HttpL2 = HttpL2 & PopuoKaigyo
			HttpL2 = HttpL2 & "			MenuItem.push(""売 掛 金 元 帳"", """ & HomeAliasSL & "user/bk/hojyobo/fk_urikaikakekintyo.asp?RouteType=&PageType=Urikake"");" & vbCrLf
			HttpL2 = HttpL2 & "			MenuItem.push(""買 掛 金 元 帳"", """ & HomeAliasSL & "user/bk/hojyobo/fk_urikaikakekintyo.asp?RouteType=&PageType=Kaikake"");" & vbCrLf
			HttpL2 = HttpL2 & "			MenuItem.push(""商 品 有 高 帳"", """ & HomeAliasSL & "user/bk/hojyobo/fk_syohinaridakatyo.asp?RouteType="");" & vbCrLf
			HttpL2 = HttpL2 & "			MenuItem.push(""受取手形記入帳"", """ & HomeAliasSL & "user/bk/hojyobo/fk_uketorisiharaitegatatyo.asp?RouteType=&PageType=Uketori"");" & vbCrLf
			HttpL2 = HttpL2 & "			MenuItem.push(""支払手形記入帳"", """ & HomeAliasSL & "user/bk/hojyobo/fk_uketorisiharaitegatatyo.asp?RouteType=&PageType=Shiharai"");" & vbCrLf
		End If
		HttpL2 = HttpL2 & "			break;" & vbCrLf
		'仕入部
		HttpL2 = HttpL2 & "		case 's3':" & vbCrLf
		HttpL2 = HttpL2 & "			MenuItem.push(""仕入部"", """ & HomeAliasSL & "user/bk/menu_s3.asp"");" & vbCrLf
		If Gyosyu = "S" Or Gyosyu = "U" Then
			If Kitakuriyou < 1 Then
				HttpL2 = HttpL2 & "			MenuItem.push(""見 積 依 頼 書"", """ & HomeAliasSL & "user/bk/shiireuriage/fd_syorui.asp?BunsyoSyuruiCD=KI"");" & vbCrLf
				HttpL2 = HttpL2 & "			MenuItem.push(""注  文  書"",   """ & HomeAliasSL & "user/bk/shiireuriage/fd_syorui.asp?BunsyoSyuruiCD=KC"");" & vbCrLf
				HttpL2 = HttpL2 & "			MenuItem.push(""先注文請書確認"", """ & HomeAliasSL & "user/bk/shiireuriage/fd_syorui_ichiran.asp?BunsyoSyuruiCD=KK&SenpoBunsyoSyuruiCD=KU"");" & vbCrLf
				HttpL2 = HttpL2 & "			MenuItem.push(""物 品 受 領 書"", """ & HomeAliasSL & "user/bk/shiireuriage/fd_syorui.asp?BunsyoSyuruiCD=KB"");" & vbCrLf
				HttpL2 = HttpL2 & PopuoKaigyo
				HttpL2 = HttpL2 & "			MenuItem.push(""管理部買入申込"", """ & HomeAliasSL & "user/bk/shiireuriage/fd_syorui.asp?BunsyoSyuruiCD=KX"");" & vbCrLf
			Else
				HttpL2 = HttpL2 & "			MenuItem.push(""見 積 依 頼 書"", """ & HomeAliasSL & "user/bk/shiireuriage/fd_kitaku_syorui.asp?BunsyoSyuruiCD=KI"");" & vbCrLf
				HttpL2 = HttpL2 & "			MenuItem.push(""注  文  書"",   """ & HomeAliasSL & "user/bk/shiireuriage/fd_kitaku_syorui.asp?BunsyoSyuruiCD=KC"");" & vbCrLf
				HttpL2 = HttpL2 & "			MenuItem.push(""先方注文請書確"", """ & HomeAliasSL & "user/bk/shiireuriage/fd_syorui_ichiran.asp?BunsyoSyuruiCD=KK&SenpoBunsyoSyuruiCD=KU"");" & vbCrLf
				HttpL2 = HttpL2 & "			MenuItem.push(""物 品 受 領 書"", """ & HomeAliasSL & "user/bk/shiireuriage/fd_syorui.asp?BunsyoSyuruiCD=KB"");" & vbCrLf
				HttpL2 = HttpL2 & PopuoKaigyo
				If KitakuKeiyaku > 0 Then
					HttpL2 = HttpL2 & "			MenuItem.push(""管理部買入申込"", """ & HomeAliasSL & "user/bk/shiireuriage/fd_kitaku_syorui.asp?BunsyoSyuruiCD=KX"");" & vbCrLf
				End If
			End If
			HttpL2 = HttpL2 & "			MenuItem.push(""管理部宛受領書"", """ & HomeAliasSL & "user/bk/shiireuriage/fd_syorui.asp?BunsyoSyuruiCD=KO"");" & vbCrLf
			If KitakuKeiyaku > 0 Then
				HttpL2 = HttpL2 & "			MenuItem.push(""寄 託 確 認"", """ & HomeAliasSL & "user/bk/shiireuriage/fd_kitaku_nyuko_ichiran.asp?BunsyoSyuruiCD=SS&NyusyukoKubun=S"");" & vbCrLf
			ElseIf Kitakuriyou < 1 Or Gyosyu = "U" Then
				HttpL2 = HttpL2 & "			MenuItem.push(""仕 入 入 庫"", """ & SiireNyuko & """);" & vbCrLf
			End If
			HttpL2 = HttpL2 & "			MenuItem.push(""仕 入 返 品"", """ & HomeAliasSL & "user/bk/shiireuriage/fd_nyusyukko.asp?BunsyoSyuruiCD=SX"");" & vbCrLf
			HttpL2 = HttpL2 & PopuoKaigyo
		End If
		HttpL2 = HttpL2 & "			MenuItem.push(""他社在庫問合"", """ & HomeAliasSL & "user/bk/syokaisyukei/rm_tasyazaiko.asp"");" & vbCrLf
		HttpL2 = HttpL2 & "			MenuItem.push(""商 品 在 庫"", """ & HomeAliasSL & "user/bk/syokaisyukei/rm_syohinzaiko.asp?RouteType=Shiire"");" & vbCrLf
		HttpL2 = HttpL2 & "			MenuItem.push(""入 庫 実 績"", """ & HomeAliasSL & "user/bk/syokaisyukei/rm_shiireuriagejisseki.asp?PageType=Shiire"");" & vbCrLf
		If Gyosyu = "K" Then
			HttpL2 = HttpL2 & "			MenuItem.push(""仕 入 入 庫"", """ & SiireNyuko & """);" & vbCrLf
			HttpL2 = HttpL2 & "			MenuItem.push(""仕 入 返 品"", """ & HomeAliasSL & "user/bk/shiireuriage/fd_nyusyukko.asp?BunsyoSyuruiCD=SX"");" & vbCrLf
		End If
		HttpL2 = HttpL2 & "			break;" & vbCrLf
		'販売部
		HttpL2 = HttpL2 & "		case 's2':" & vbCrLf
		HttpL2 = HttpL2 & "			MenuItem.push(""販売部"", """ & HomeAliasSL & "user/bk/menu_s2.asp"");" & vbCrLf
		If Gyosyu = "S" Or Gyosyu = "U" Then
			If Kitakuriyou < 1 Then
				HttpL2 = HttpL2 & "			MenuItem.push(""見  積  書"",   """ & HomeAliasSL & "user/bk/shiireuriage/fd_syorui.asp?BunsyoSyuruiCD=KM"");" & vbCrLf
				HttpL2 = HttpL2 & "			MenuItem.push(""注 文 請 書"", """ & HomeAliasSL & "user/bk/shiireuriage/fd_syorui.asp?BunsyoSyuruiCD=KU"");" & vbCrLf
				HttpL2 = HttpL2 & "			MenuItem.push(""納 品 請 求 書"", """ & HomeAliasSL & "user/bk/shiireuriage/fd_syorui.asp?BunsyoSyuruiCD=KN"");" & vbCrLf
				HttpL2 = HttpL2 & "			MenuItem.push(""管理部売渡申込"", """ & HomeAliasSL & "user/bk/shiireuriage/fd_syorui.asp?BunsyoSyuruiCD=KY"");" & vbCrLf
			Else
				HttpL2 = HttpL2 & "			MenuItem.push(""見  積  書"",   """ & HomeAliasSL & "user/bk/shiireuriage/fd_kitaku_syorui.asp?BunsyoSyuruiCD=KM"");" & vbCrLf
				HttpL2 = HttpL2 & "			MenuItem.push(""注 文 請 書"", """ & HomeAliasSL & "user/bk/shiireuriage/fd_kitaku_syorui.asp?BunsyoSyuruiCD=KU"");" & vbCrLf
				HttpL2 = HttpL2 & "			MenuItem.push(""納 品 請 求 書"", """ & HomeAliasSL & "user/bk/shiireuriage/fd_syorui.asp?BunsyoSyuruiCD=KN"");" & vbCrLf
				HttpL2 = HttpL2 & "			MenuItem.push(""管理部売渡申込"", """ & HomeAliasSL & "user/bk/shiireuriage/fd_kitaku_syorui.asp?BunsyoSyuruiCD=KY"");" & vbCrLf
			End If
			HttpL2 = HttpL2 & "			MenuItem.push(""管理宛納品請求"", """ & HomeAliasSL & "user/bk/shiireuriage/fd_syorui.asp?BunsyoSyuruiCD=KP"");" & vbCrLf
			HttpL2 = HttpL2 & PopuoKaigyo
			If KitakuKeiyaku > 0 Then
				HttpL2 = HttpL2 & "			MenuItem.push(""出 庫 依 頼"", """ & HomeAliasSL & "user/bk/shiireuriage/fd_kitaku_syukko_ichiran.asp?BunsyoSyuruiCD=KS&NyusyukoKubun=U"");" & vbCrLf
			ElseIf Kitakuriyou < 1 Then
				HttpL2 = HttpL2 & "			MenuItem.push(""売 上 出 庫"", """ & HomeAliasSL & "user/bk/shiireuriage/fd_nyusyukko.asp?BunsyoSyuruiCD=SU&NyusyukoKubun=U"");" & vbCrLf
			End If
			HttpL2 = HttpL2 & "			MenuItem.push(""売 上 返 品"", """ & UriageHenpin & """);" & vbCrLf
			If Kouririyou > 0 Then
				HttpL2 = HttpL2 & "			MenuItem.push(""小 売 販 売"", """ & HomeAliasSL & "user/bk/kouri/kh_kouri.asp?BunsyoSyuruiCD=HU&NyusyukoKubun=U"");" & vbCrLf
			End If
			HttpL2 = HttpL2 & PopuoKaigyo
		End If
		HttpL2 = HttpL2 & "			MenuItem.push(""運送費見積依頼"", """ & HomeAliasSL & "user/bk/unyusokomadoguchi/fc_syorui.asp?BunsyoSyuruiCD=CB"");" & vbCrLf
		HttpL2 = HttpL2 & "			MenuItem.push(""商 品 在 庫"", """ & HomeAliasSL & "user/bk/syokaisyukei/rm_syohinzaiko.asp?RouteType=Hanbai"");" & vbCrLf
		HttpL2 = HttpL2 & "			MenuItem.push(""出 庫 実 績"", """ & HomeAliasSL & "user/bk/syokaisyukei/rm_shiireuriagejisseki.asp?PageType=Uriage"");" & vbCrLf
		If Gyosyu = "K" Then
			HttpL2 = HttpL2 & "			MenuItem.push(""売 上 出 庫"", """ & HomeAliasSL & "user/bk/shiireuriage/fd_nyusyukko.asp?BunsyoSyuruiCD=SU&NyusyukoKubun=U"");" & vbCrLf
			HttpL2 = HttpL2 & "			MenuItem.push(""売 上 返 品"", """ & UriageHenpin & """);" & vbCrLf
		End If
		HttpL2 = HttpL2 & "			break;" & vbCrLf
		'商品企画室
		HttpL2 = HttpL2 & "		case 's5':" & vbCrLf
		HttpL2 = HttpL2 & "			MenuItem.push(""商品企画室"", """ & HomeAliasSL & "user/bk/menu_s5.asp"");" & vbCrLf
		HttpL2 = HttpL2 & "			MenuItem.push(""オリジナル商品<br>管   理"", """ & HomeAliasSL & "admin/master/shohin/fm_shohin.asp?Action=1&PageType=Original"");" & vbCrLf
		HttpL2 = HttpL2 & "			MenuItem.push(""オリジナル商品<br>入   庫"", """ & HomeAliasSL & "user/bk/shiireuriage/fd_nyusyukko.asp?BunsyoSyuruiCD=SC"");" & vbCrLf
If GB_IEmode = "1" Then
		HttpL2 = HttpL2 & "			MenuItem.push(""画 像 加 工"", """ & HomeAliasSL & "user/bk/kikakushitsu/gazokako.asp"");" & vbCrLf
End If
		HttpL2 = HttpL2 & "			break;" & vbCrLf
		'社長室・総務部
		HttpL2 = HttpL2 & "		case 's4':" & vbCrLf
		HttpL2 = HttpL2 & "			MenuItem.push(""社長室・総務部"", """ & HomeAliasSL & "user/bk/menu_s4.asp"");" & vbCrLf
		HttpL2 = HttpL2 & "			MenuItem.push(""名 刺 作 成"", """ & HomeAliasSL & "user/bk/meishi/default.asp"");" & vbCrLf
		HttpL2 = HttpL2 & "			MenuItem.push(""名 刺 マ ナ ー"", """ & HomeAliasSL & "user/bk/meishi/manner.asp"");" & vbCrLf
		If Kitakuriyou > 0 And Gyosyu <> "K" Then
			HttpL2 = HttpL2 & "			MenuItem.push(""寄 託 契 約"", """ & HomeAliasSL & "user/bk/keiyakusyo/fk_kitakukeiyaku.asp"");" & vbCrLf
		End If
		HttpL2 = HttpL2 & "			MenuItem.push(""定   款"", """ & HomeAliasSL & "user/bk/teikan.asp?RouteType=syatyo"");" & vbCrLf
		HttpL2 = HttpL2 & "			MenuItem.push(""財 務 諸 表"", """ & HomeAliasSL & "user/bk/menu_s41.asp"");" & vbCrLf
		HttpL2 = HttpL2 & PopuoKaigyo
		HttpL2 = HttpL2 & "			MenuItem.push(""白 紙 帳 票"", """ & HomeAliasSL & "user/bk/menu_s42.asp"");" & vbCrLf
		HttpL2 = HttpL2 & "			MenuItem.push(""マスター照会"",   """ & HomeAliasSL & "user/bk/menu_s43.asp"");" & vbCrLf
		HttpL2 = HttpL2 & "			MenuItem.push(""記帳チェック"",   """ & HomeAliasSL & "user/bk/kityocheck/fm_kityo_check.asp"");" & vbCrLf
		HttpL2 = HttpL2 & "			MenuItem.push(""受 発 信 文 書"", """ & HomeAliasSL & "user/bk/jyuhasshinbunsyo/"");" & vbCrLf
		HttpL2 = HttpL2 & PopuoKaigyo
		HttpL2 = HttpL2 & "			MenuItem.push(""銀行暗証番号"",   """ & HomeAliasSL & "user/bk/ginkomadoguchi/fb_ansyobangosansyo.asp"");" & vbCrLf
		HttpL2 = HttpL2 & "			MenuItem.push(""摘 要 管 理"", """ & HomeAliasSL & "user/bk/master/fm_tekiyo_ichiran.asp"");" & vbCrLf
If GB_IEmode = "1" Then
		HttpL2 = HttpL2 & "			MenuItem.push(""画 像 加 工"", """ & HomeAliasSL & "user/bk/kikakushitsu/gazokako.asp?RouteType=1"");" & vbCrLf
End If
		HttpL2 = HttpL2 & "			break;" & vbCrLf
		'社長室・総務部 → 財務諸表
		HttpL2 = HttpL2 & "		case 's41':" & vbCrLf
		HttpL2 = HttpL2 & "			MenuItem.push(""財務諸表"", """ & HomeAliasSL & "user/bk/menu_s41.asp"");" & vbCrLf
		HttpL2 = HttpL2 & "			MenuItem.push(""仕  訳  帳"",   """ & HomeAliasSL & "user/bk/jidotyobo/rm_shiwaketyo.asp"");" & vbCrLf
		HttpL2 = HttpL2 & "			MenuItem.push(""仕 訳 集 計 表"", """ & HomeAliasSL & "user/bk/jidotyobo/rm_shiwakesyukeihyo.asp"");" & vbCrLf
		HttpL2 = HttpL2 & "			MenuItem.push(""合計残高試算表"", """ & HomeAliasSL & "user/bk/jidotyobo/rm_gokeizandakeshisanhyo.asp"");" & vbCrLf
		HttpL2 = HttpL2 & "			MenuItem.push(""総 勘 定 元 帳"", """ & HomeAliasSL & "user/bk/jidotyobo/rm_sokanjyomototyo.asp"");" & vbCrLf
		HttpL2 = HttpL2 & "			MenuItem.push(""8 桁 精 算 表"",  """ & HomeAliasSL & "user/bk/jidotyobo/rm_hachiketaseisanhyo.asp"");" & vbCrLf
		HttpL2 = HttpL2 & PopuoKaigyo
		HttpL2 = HttpL2 & "			MenuItem.push(""貸 借 対 照 表"", """ & HomeAliasSL & "user/bk/jidotyobo/rm_taisyakutaisyouhyo.asp"");" & vbCrLf
		HttpL2 = HttpL2 & "			MenuItem.push(""損 益 計 算 書"", """ & HomeAliasSL & "user/bk/jidotyobo/rm_sonekikeisansyo.asp"");" & vbCrLf
		HttpL2 = HttpL2 & "			MenuItem.push(""貸借対照表報告"", """ & HomeAliasSL & "user/bk/jidotyobo/rm_taisyakutaisyouhyohoukoku.asp"");" & vbCrLf
		HttpL2 = HttpL2 & "			MenuItem.push(""損益計算書報告"", """ & HomeAliasSL & "user/bk/jidotyobo/rm_sonekikeisansyohoukoku.asp"");" & vbCrLf
		HttpL2 = HttpL2 & "			MenuItem.push(""キャッシュフロー"", """ & HomeAliasSL & "user/bk/jidotyobo/rm_cashflow.asp"");" & vbCrLf
		HttpL2 = HttpL2 & PopuoKaigyo
		HttpL2 = HttpL2 & "			MenuItem.push(""損 益 計 画"", """ & HomeAliasSL & "user/bk/bunseki/fk_sonekikeikaku.asp"");" & vbCrLf
		HttpL2 = HttpL2 & "			MenuItem.push(""損 益 実 績"", """ & HomeAliasSL & "user/bk/bunseki/fk_sonekijisseki_view.asp"");" & vbCrLf
		HttpL2 = HttpL2 & "			MenuItem.push(""収益性の分析"",   """ & HomeAliasSL & "user/bk/bunseki/fk_syuekisei_view.asp"");" & vbCrLf
		HttpL2 = HttpL2 & "			MenuItem.push(""安全性の分析"",   """ & HomeAliasSL & "user/bk/bunseki/fk_anzensei_view.asp"");" & vbCrLf
		HttpL2 = HttpL2 & "			MenuItem.push(""損益分岐点分析"", """ & HomeAliasSL & "user/bk/bunseki/fk_sonekibunkiten_view.asp"");" & vbCrLf
		HttpL2 = HttpL2 & "			break;" & vbCrLf
		'社長室・総務部 → 白紙帳票
		HttpL2 = HttpL2 & "		case 's42':" & vbCrLf
		HttpL2 = HttpL2 & "			MenuItem.push(""白紙帳票"", """ & HomeAliasSL & "user/bk/menu_s42.asp"");" & vbCrLf
		HttpL2 = HttpL2 & "			MenuItem.push(""入 金 伝 票"", """ & HomeAliasSL & "user/bk/hakushityohyo/rn_denpyo.asp?RouteType=Hakushi&PageType=Nyukin"");" & vbCrLf
		HttpL2 = HttpL2 & "			MenuItem.push(""出 金 伝 票"", """ & HomeAliasSL & "user/bk/hakushityohyo/rn_denpyo.asp?RouteType=Hakushi&PageType=Shukkin"");" & vbCrLf
		HttpL2 = HttpL2 & "			MenuItem.push(""振 替 伝 票"", """ & HomeAliasSL & "user/bk/hakushityohyo/rn_denpyo.asp?RouteType=Hakushi&PageType="");" & vbCrLf
		HttpL2 = HttpL2 & "			MenuItem.push(""仕 入 伝 票"", """ & HomeAliasSL & "user/bk/hakushityohyo/rn_denpyo.asp?RouteType=Hakushi&PageType=Shiire"");" & vbCrLf
		HttpL2 = HttpL2 & "			MenuItem.push(""売 上 伝 票"", """ & HomeAliasSL & "user/bk/hakushityohyo/rn_denpyo.asp?RouteType=Hakushi&PageType=Uriage"");" & vbCrLf
		HttpL2 = HttpL2 & "			MenuItem.push(""領  収  書"",   """ & HomeAliasSL & "user/bk/ryosyusyo/fk_ryosyusyo_view.asp?RouteType=Hakushi"");" & vbCrLf
		HttpL2 = HttpL2 & PopuoKaigyo
		HttpL2 = HttpL2 & "			MenuItem.push(""仕  訳  帳"",   """ & HomeAliasSL & "user/bk/tyobo/fk_shiwakenikkityo_view.asp?RouteType=Hakushi"");" & vbCrLf
		HttpL2 = HttpL2 & "			MenuItem.push(""仕 訳 集 計 表"", """ & HomeAliasSL & "user/bk/tyobo/fk_shiwakesyukeihyo_view.asp?RouteType=Hakushi"");" & vbCrLf
		HttpL2 = HttpL2 & "			MenuItem.push(""8 桁 精 算 表"",  """ & HomeAliasSL & "user/bk/tyobo/fk_hachiketaseisanhyo_view.asp?RouteType=Hakushi"");" & vbCrLf
		HttpL2 = HttpL2 & "			MenuItem.push(""合計残高試算表"", """ & HomeAliasSL & "user/bk/tyobo/fk_gokeizandakashisanhyo_view.asp?RouteType=Hakushi"");" & vbCrLf
		HttpL2 = HttpL2 & "			MenuItem.push(""総 勘 定 元 帳"", """ & HomeAliasSL & "user/bk/tyobo/fk_sokanjyomototyo_view.asp?RouteType=Hakushi"");" & vbCrLf
		HttpL2 = HttpL2 & "			MenuItem.push(""貸 借 対 照 表"", """ & HomeAliasSL & "user/bk/tyobo/fk_taisyakutaisyohyo_view.asp?RouteType=Hakushi"");" & vbCrLf
		HttpL2 = HttpL2 & "			MenuItem.push(""損 益 計 算 書"", """ & HomeAliasSL & "user/bk/tyobo/fk_sonekikeisansyo_view.asp?RouteType=Hakushi"");" & vbCrLf
		HttpL2 = HttpL2 & PopuoKaigyo
		HttpL2 = HttpL2 & "			MenuItem.push(""見  積  書"",   """ & HomeAliasSL & "user/bk/hakushityohyo/rn_shiireuriagesyorui.asp?RouteType=Hakushi&BunsyoSyuruiCD=KM"");" & vbCrLf
		HttpL2 = HttpL2 & "			MenuItem.push(""注 文 請 書"", """ & HomeAliasSL & "user/bk/hakushityohyo/rn_shiireuriagesyorui.asp?RouteType=Hakushi&BunsyoSyuruiCD=KU"");" & vbCrLf
		HttpL2 = HttpL2 & "			MenuItem.push(""納 品 請 求 書"", """ & HomeAliasSL & "user/bk/hakushityohyo/rn_shiireuriagesyorui.asp?RouteType=Hakushi&BunsyoSyuruiCD=KN"");" & vbCrLf
		HttpL2 = HttpL2 & "			MenuItem.push(""見 積 依 頼 書"", """ & HomeAliasSL & "user/bk/hakushityohyo/rn_shiireuriagesyorui.asp?RouteType=Hakushi&BunsyoSyuruiCD=KI"");" & vbCrLf
		HttpL2 = HttpL2 & "			MenuItem.push(""注  文  書"",   """ & HomeAliasSL & "user/bk/hakushityohyo/rn_shiireuriagesyorui.asp?RouteType=Hakushi&BunsyoSyuruiCD=KC"");" & vbCrLf
		HttpL2 = HttpL2 & "			MenuItem.push(""物 品 受 領 書"", """ & HomeAliasSL & "user/bk/hakushityohyo/rn_shiireuriagesyorui.asp?RouteType=Hakushi&BunsyoSyuruiCD=KB"");" & vbCrLf
		HttpL2 = HttpL2 & "			break;" & vbCrLf
		'社長室・総務部 → マスター照会
		HttpL2 = HttpL2 & "		case 's43':" & vbCrLf
		HttpL2 = HttpL2 & "			MenuItem.push(""マスター照会"", """ & HomeAliasSL & "user/bk/menu_s43.asp"");" & vbCrLf
		HttpL2 = HttpL2 & "			MenuItem.push(""勘定科目マスタ"", """ & HomeAliasSL & "admin/master/kamoku/fm_kamoku_ichiran.asp?KanriKubun=view&EnshuCD=" & GB_EnshuCD & "&GyoshuKubun=" & GyosyuKubun & """);" & vbCrLf
		HttpL2 = HttpL2 & "			MenuItem.push(""会社マスター"",   """ & HomeAliasSL & "admin/master/kaisya/fm_kaisya_ichiran.asp?KanriKubun=view&EnshuCD=" & GB_EnshuCD & """);" & vbCrLf
		HttpL2 = HttpL2 & "			MenuItem.push(""商品マスター"",   """ & HomeAliasSL & "admin/master/shohin/fm_shohin_ichiran.asp?KanriKubun=view&EnshuCD=" & GB_EnshuCD & """);" & vbCrLf
		If Genkavariable > 0 And GenkaKaikeiRiyo = "1" Then
		End If
		HttpL2 = HttpL2 & PopuoKaigyo
		HttpL2 = HttpL2 & "			MenuItem.push(""損益計算書集計"", """ & HomeAliasSL & "admin/master/syukei/fm_syukei_view.asp?KanriKubun=view&EnshuCD=" & GB_EnshuCD & "&TyohyoKubun=P"");" & vbCrLf
		HttpL2 = HttpL2 & "			MenuItem.push(""貸借対照表集計"", """ & HomeAliasSL & "admin/master/syukei/fm_syukei_view.asp?KanriKubun=view&EnshuCD=" & GB_EnshuCD & "&TyohyoKubun=B"");" & vbCrLf
		HttpL2 = HttpL2 & "			MenuItem.push(""株 主 資 本 等<BR>変動計算書集計"", """ & HomeAliasSL & "admin/master/syukei/fm_stockholder_equity_view.asp?KanriKubun=view&EnshuCD=" & GB_EnshuCD & "&TyohyoKubun=B"");" & vbCrLf
		If Genkavariable > 0 And GenkaKaikeiRiyo = "1" Then
		End If
		HttpL2 = HttpL2 & "			break;" & vbCrLf
		'社長室・総務部 → 受発信文書
		HttpL2 = HttpL2 & "		case 'jyuhasshinbunsyo':" & vbCrLf
		HttpL2 = HttpL2 & "			MenuItem.push(""受発信文書"", """ & HomeAliasSL & "user/bk/jyuhasshinbunsyo/"");" & vbCrLf
		HttpL2 = HttpL2 & "			MenuItem.push(""メ  ー  ル"",   """ & HomeAliasSL & "user/bk/jyuhasshinbunsyo/fn_mailsakusei.asp"");" & vbCrLf
		HttpL2 = HttpL2 & "			MenuItem.push(""受 信 文 書"", """ & HomeAliasSL & "user/bk/jyuhasshinbunsyo/fn_jyuhasshinbunsyo.asp?PageType=Recv&RouteType=syatyo"");" & vbCrLf
		HttpL2 = HttpL2 & "			MenuItem.push(""発 信 文 書"", """ & HomeAliasSL & "user/bk/jyuhasshinbunsyo/fn_jyuhasshinbunsyo.asp?PageType=Send&RouteType=syatyo"");" & vbCrLf
		HttpL2 = HttpL2 & "			break;" & vbCrLf
End If
		'管理部
		HttpL2 = HttpL2 & "		case 'k':" & vbCrLf
		HttpL2 = HttpL2 & "			MenuItem.push(""管理部"", """ & HomeAliasSL & "user/bk/menu_k.asp"");" & vbCrLf
		HttpL2 = HttpL2 & "			MenuItem.push(""受 付 業 務"", """ & HomeAliasSL & "user/bk/menu_k2.asp"");" & vbCrLf
		If Kitakuriyou > 0 Then
			HttpL2 = HttpL2 & "			MenuItem.push(""経 理 業 務"", """ & HomeAliasSL & "user/bk/menu_s1.asp"");" & vbCrLf
		Else
			HttpL2 = HttpL2 & "			MenuItem.push(""経  理  部"", """ & HomeAliasSL & "user/bk/menu_s1.asp"");" & vbCrLf
			HttpL2 = HttpL2 & "			MenuItem.push(""仕  入  部"", """ & HomeAliasSL & "user/bk/menu_s3.asp"");" & vbCrLf
			HttpL2 = HttpL2 & "			MenuItem.push(""販  売  部"", """ & HomeAliasSL & "user/bk/menu_s2.asp"");" & vbCrLf
		End If
		HttpL2 = HttpL2 & "			MenuItem.push(""社長室・総務部"", """ & HomeAliasSL & "user/bk/menu_s4.asp"");" & vbCrLf
		HttpL2 = HttpL2 & "			break;" & vbCrLf
If 0 = 1 Then '部署内ポップアップは廃止
		'受付業務
		HttpL2 = HttpL2 & "		case 'k2':" & vbCrLf
		HttpL2 = HttpL2 & "			MenuItem.push(""受付業務"", """ & HomeAliasSL & "user/bk/menu_k2.asp"");" & vbCrLf
		If Kitakuriyou > 0 And Gyosyu <> "K" Then
			HttpL2 = HttpL2 & "			MenuItem.push(""買 入 受 付"", """ & HomeAliasSL & "user/bk/shiireuriage/fd_kitaku_syorui.asp?BunsyoSyuruiCD=KV"");" & vbCrLf
		Else
			HttpL2 = HttpL2 & "			MenuItem.push(""買 入 受 付"", """ & HomeAliasSL & "user/bk/shiireuriage/fd_syorui.asp?BunsyoSyuruiCD=KV"");" & vbCrLf
		End If
		HttpL2 = HttpL2 & "			MenuItem.push(""売 渡 受 付"", """ & HomeAliasSL & "user/bk/shiireuriage/fd_syorui.asp?BunsyoSyuruiCD=KW"");" & vbCrLf
		HttpL2 = HttpL2 & "			MenuItem.push(""買入一括受付"",   """ & HomeAliasSL & "user/bk/shiireuriage/fd_syorui_ikkatsu.asp?BunsyoSyuruiCD=KV&SenpoBunsyoSyuruiCD=KX"");" & vbCrLf
		HttpL2 = HttpL2 & "			MenuItem.push(""売渡一括受付"",   """ & HomeAliasSL & "user/bk/shiireuriage/fd_syorui_ikkatsu.asp?BunsyoSyuruiCD=KW&SenpoBunsyoSyuruiCD=KY"");" & vbCrLf
		HttpL2 = HttpL2 & "			break;" & vbCrLf
End If
		'銀行
		HttpL2 = HttpL2 & "		case 'b':" & vbCrLf
		HttpL2 = HttpL2 & "			MenuItem.push(""銀行"", """ & HomeAliasSL & "user/bk/menu_b.asp"");" & vbCrLf
		HttpL2 = HttpL2 & "			MenuItem.push(""窓 口 業 務"", """ & HomeAliasSL & "user/bk/menu_b2.asp"");" & vbCrLf
		HttpL2 = HttpL2 & "			MenuItem.push(""経 理 業 務"", """ & HomeAliasSL & "user/bk/menu_b1.asp"");" & vbCrLf
'		HttpL2 = HttpL2 & "			MenuItem.push(""受 発 信 文 書"", """ & HomeAliasSL & "user/bk/jyuhasshinbunsyo/"");" & vbCrLf
		HttpL2 = HttpL2 & "			MenuItem.push(""社長室・総務部"", """ & HomeAliasSL & "user/bk/menu_s4.asp"");" & vbCrLf
		HttpL2 = HttpL2 & "			break;" & vbCrLf
If 0 = 1 Then '部署内ポップアップは廃止
		'窓口業務
		HttpL2 = HttpL2 & "		case 'b2':" & vbCrLf
		HttpL2 = HttpL2 & "			MenuItem.push(""窓口業務"", """ & HomeAliasSL & "user/bk/menu_b2.asp"");" & vbCrLf
		HttpL2 = HttpL2 & "			MenuItem.push(""口 座 開 設"", """ & HomeAliasSL & "user/bk/ginko/fb_uketsukesyori.asp?BunsyoSyuruiCD=BN"");" & vbCrLf
		HttpL2 = HttpL2 & "			MenuItem.push(""預    入"",   """ & HomeAliasSL & "user/bk/ginko/fb_uketsukesyori.asp?BunsyoSyuruiCD=BO"");" & vbCrLf
		HttpL2 = HttpL2 & "			MenuItem.push(""引    出"",   """ & HomeAliasSL & "user/bk/ginko/fb_uketsukesyori.asp?BunsyoSyuruiCD=BP"");" & vbCrLf
		HttpL2 = HttpL2 & "			MenuItem.push(""振    込"",   """ & HomeAliasSL & "user/bk/ginko/fb_uketsukesyori.asp?BunsyoSyuruiCD=BQ"");" & vbCrLf
		HttpL2 = HttpL2 & "			MenuItem.push(""一括口座開設"",   """ & HomeAliasSL & "user/bk/ginko/fb_uketsukesyori_ikkatsu.asp?BunsyoSyuruiCD=BN&SenpoBunsyoSyuruiCD=BA"");" & vbCrLf
		HttpL2 = HttpL2 & PopuoKaigyo
		HttpL2 = HttpL2 & "			MenuItem.push(""小 切 手 入 金"", """ & HomeAliasSL & "user/bk/ginko/fb_uketsukesyori.asp?BunsyoSyuruiCD=BR"");" & vbCrLf
		HttpL2 = HttpL2 & "			MenuItem.push(""手 形 取 立"", """ & HomeAliasSL & "user/bk/ginko/fb_uketsukesyori.asp?BunsyoSyuruiCD=BS"");" & vbCrLf
		HttpL2 = HttpL2 & "			MenuItem.push(""手 形 割 引"", """ & HomeAliasSL & "user/bk/ginko/fb_uketsukesyori.asp?BunsyoSyuruiCD=BT"");" & vbCrLf
		HttpL2 = HttpL2 & "			MenuItem.push(""口 座 一 覧"", """ & HomeAliasSL & "user/bk/ginko/fb_koza.asp"");" & vbCrLf
		HttpL2 = HttpL2 & "			break;" & vbCrLf
		'経理業務
		HttpL2 = HttpL2 & "		case 'b1':" & vbCrLf
		HttpL2 = HttpL2 & "			MenuItem.push(""経理業務"",   """ & HomeAliasSL & "user/bk/menu_b1.asp"");" & vbCrLf
		HttpL2 = HttpL2 & "			MenuItem.push(""入 金 伝 票"", """ & HomeAliasSL & "user/bk/denpyo/fk_nyukinsyukin.asp?Pagetype=Nyukin"");" & vbCrLf
		HttpL2 = HttpL2 & "			MenuItem.push(""出 金 伝 票"", """ & HomeAliasSL & "user/bk/denpyo/fk_nyukinsyukin.asp?Pagetype=Shukkin"");" & vbCrLf
		HttpL2 = HttpL2 & "			MenuItem.push(""振 替 伝 票"", """ & HomeAliasSL & "user/bk/denpyo/fk_furikae.asp"");" & vbCrLf
		HttpL2 = HttpL2 & "			MenuItem.push(""勘定残高設定"",   """ & HomeAliasSL & "user/bk/kisyusettei/fk_kanjyozandaka.asp"");" & vbCrLf
		HttpL2 = HttpL2 & "			MenuItem.push(""入    金"",   """ & HomeAliasSL & "user/bk/kinko/fk_nyukin.asp?Nyukin"");" & vbCrLf
		HttpL2 = HttpL2 & "			MenuItem.push(""出    金"",   """ & HomeAliasSL & "user/bk/kinko/fk_nyukin.asp?PageType=Shukkin"");" & vbCrLf
		HttpL2 = HttpL2 & PopuoKaigyo
		HttpL2 = HttpL2 & "			MenuItem.push(""仕  訳  帳"",   """ & HomeAliasSL & "user/bk/jidotyobo/rm_shiwaketyo.asp"");" & vbCrLf
		HttpL2 = HttpL2 & "			MenuItem.push(""合計残高試算表"", """ & HomeAliasSL & "user/bk/jidotyobo/rm_gokeizandakeshisanhyo.asp"");" & vbCrLf
		HttpL2 = HttpL2 & "			MenuItem.push(""総 勘 定 元 帳"", """ & HomeAliasSL & "user/bk/jidotyobo/rm_sokanjyomototyo.asp"");" & vbCrLf
		HttpL2 = HttpL2 & "			MenuItem.push(""8 桁 精 算 表"",  """ & HomeAliasSL & "user/bk/jidotyobo/rm_hachiketaseisanhyo.asp"");" & vbCrLf
		HttpL2 = HttpL2 & "			MenuItem.push(""貸 借 対 照 表"", """ & HomeAliasSL & "user/bk/jidotyobo/rm_taisyakutaisyouhyo.asp"");" & vbCrLf
		HttpL2 = HttpL2 & "			MenuItem.push(""損 益 計 算 書"", """ & HomeAliasSL & "user/bk/jidotyobo/rm_sonekikeisansyo.asp"");" & vbCrLf
		HttpL2 = HttpL2 & "			break;" & vbCrLf
End If
		'運輸・倉庫・保険
		HttpL2 = HttpL2 & "		case 'u':" & vbCrLf
		HttpL2 = HttpL2 & "			MenuItem.push(""運輸・倉庫・保険"", """ & HomeAliasSL & "user/bk/menu_u.asp"");" & vbCrLf
		HttpL2 = HttpL2 & "			MenuItem.push(""運輸倉庫保険業務"", """ & HomeAliasSL & "user/bk/menu_u2.asp"");" & vbCrLf
		If Kitakuriyou > 0 Then
			HttpL2 = HttpL2 & "			MenuItem.push(""経 理 業 務"", """ & HomeAliasSL & "user/bk/menu_s1.asp"");" & vbCrLf
		Else
			HttpL2 = HttpL2 & "			MenuItem.push(""経  理  部"", """ & HomeAliasSL & "user/bk/menu_s1.asp"");" & vbCrLf
			HttpL2 = HttpL2 & "			MenuItem.push(""仕  入  部"", """ & HomeAliasSL & "user/bk/menu_s3.asp"");" & vbCrLf
			HttpL2 = HttpL2 & "			MenuItem.push(""販  売  部"", """ & HomeAliasSL & "user/bk/menu_s2.asp"");" & vbCrLf
		End If
		HttpL2 = HttpL2 & "			MenuItem.push(""社長室・総務部"", """ & HomeAliasSL & "user/bk/menu_s4.asp"");" & vbCrLf
		HttpL2 = HttpL2 & "			break;" & vbCrLf
If 0 = 1 Then '部署内ポップアップは廃止
		'運輸倉庫保険業務
		HttpL2 = HttpL2 & "		case 'u2':" & vbCrLf
		HttpL2 = HttpL2 & "			MenuItem.push(""運輸倉庫保険業務"", """ & HomeAliasSL & "user/bk/menu_u2.asp"");" & vbCrLf
		HttpL2 = HttpL2 & "			MenuItem.push(""運 送 契 約"", """ & HomeAliasSL & "user/bk/unso/keiyaku/fu_keiyaku.asp?Action=1"");" & vbCrLf
		HttpL2 = HttpL2 & "			MenuItem.push(""運送費見積書"",   """ & HomeAliasSL & "user/bk/unso/mitsumori/fu_syorui.asp?BunsyoSyuruiCD=CC"");" & vbCrLf
		HttpL2 = HttpL2 & "			MenuItem.push(""運送費請求書"",   """ & HomeAliasSL & "user/bk/unso/seikyu/fu_seikyusyudo.asp"");" & vbCrLf
		If Kitakuriyou > 0 Then
			HttpL2 = HttpL2 & "			MenuItem.push(""寄 託 受 付"", """ & HomeAliasSL & "user/bk/unso/kitaku/fu_kitaku_ichiran.asp?Action=1"");" & vbCrLf
			HttpL2 = HttpL2 & "			MenuItem.push(""入    庫"",   """ & HomeAliasSL & "user/bk/unso/nyuko/fu_kitaku_nyuko_ichiran.asp"");" & vbCrLf
			HttpL2 = HttpL2 & "			MenuItem.push(""出    庫"",   """ & HomeAliasSL & "user/bk/unso/syuko/fu_kitaku_syukko_ichiran.asp"");" & vbCrLf
		Else
			HttpL2 = HttpL2 & "			MenuItem.push(""寄 託 受 付"", """ & HomeAliasSL & "user/bk/unso/souko/fu_kitaku.asp?Action=1"");" & vbCrLf
			HttpL2 = HttpL2 & "			MenuItem.push(""出    庫"",   """ & HomeAliasSL & "user/bk/unso/souko/fu_syuko.asp?Action=1"");" & vbCrLf
		End If
		HttpL2 = HttpL2 & PopuoKaigyo
		HttpL2 = HttpL2 & "			MenuItem.push(""保 険 料 計 算"", """ & HomeAliasSL & "user/bk/unso/hoken/fu_hoken.asp?Action=1"");" & vbCrLf
		HttpL2 = HttpL2 & "			MenuItem.push(""運送保険料請求"", """ & HomeAliasSL & "user/bk/hakushityohyo/rn_unsohoken.asp?BunsyoSyuruiCD=UA"");" & vbCrLf
		HttpL2 = HttpL2 & "			MenuItem.push(""倉荷証券手数料"", """ & HomeAliasSL & "user/bk/hakushityohyo/rn_unsohoken.asp?BunsyoSyuruiCD=UC"");" & vbCrLf
		HttpL2 = HttpL2 & "			MenuItem.push(""倉庫料請求書"",   """ & HomeAliasSL & "user/bk/hakushityohyo/rn_unsohoken.asp?BunsyoSyuruiCD=UB"");" & vbCrLf
		HttpL2 = HttpL2 & "			break;" & vbCrLf
End If
		'運用管理
		If GB_Admin > 0 Then
			HttpL2 = HttpL2 & "		case 'admenu':" & vbCrLf
			If GB_Admin = 1 Then
'				If Request("RouteType") = "Kantan" Then
				If Session(HomeAlias & "Kantan") = "1" Then
					HttpL2 = HttpL2 & "			MenuItem.push(""運 用 管 理"", """ & HomeAliasSL & "admin/admenu1.asp"");" & vbCrLf
				Else
					HttpL2 = HttpL2 & "			MenuItem.push(""運 用 管 理"", """ & HomeAliasSL & "admin/admenu.asp"");" & vbCrLf
				End If
			Else
				HttpL2 = HttpL2 & "			MenuItem.push(""運 用 管 理"", """ & HomeAliasSL & "admin/admenu_enshu.asp"");" & vbCrLf
			End If
'			HttpL2 = HttpL2 & "			MenuItem.push(""演 習 参 加<br>グループ管理"", """ & HomeAliasSL & "admin/master/group/fm_groupsanka.asp"");" & vbCrLf
			HttpL2 = HttpL2 & "			MenuItem.push(""グループ管理"",   """ & HomeAliasSL & "admin/group/fm_group_ichiran.asp"");" & vbCrLf
			If GB_Admin = 1 Then
				HttpL2 = HttpL2 & "			MenuItem.push(""演 習 管 理"", """ & HomeAliasSL & "admin/enshu/fm_enshu_ichiran.asp"");" & vbCrLf
			Else
				HttpL2 = HttpL2 & "			MenuItem.push(""演 習 管 理"", """ & HomeAliasSL & "admin/enshu/fm_enshu1_view.asp?EnshuCD=" & EnshuCD & """);" & vbCrLf
			End If
'			If GB_Admin = 1 Then
			HttpL2 = HttpL2 & "			MenuItem.push(""演習参加者管理"", """ & HomeAliasSL & "admin/master/sanka/fm_enshusanka.asp"");" & vbCrLf
'			End If
			HttpL2 = HttpL2 & "			MenuItem.push(""ユーザー管理"",   """ & HomeAliasSL & "admin/user/fm_user_ichiran.asp"");" & vbCrLf
			HttpL2 = HttpL2 & "			MenuItem.push(""マスター管理"",   """ & HomeAliasSL & "admin/master/fm_master_select.asp"");" & vbCrLf
			HttpL2 = HttpL2 & PopuoKaigyo
			If GB_Admin = 1 Then
				HttpL2 = HttpL2 & "			MenuItem.push(""システム情報"",   """ & HomeAliasSL & "admin/kihon/fm_kihon_view.asp"");" & vbCrLf
			End If
			HttpL2 = HttpL2 & "			MenuItem.push(""演習状況一覧"",   """ & HomeAliasSL & "admin/syokai/fm_jyokyo_ichiran.asp"");" & vbCrLf
			HttpL2 = HttpL2 & "			MenuItem.push(""演習状況チェック"", """ & HomeAliasSL & "admin/syokai/fm_kityochk_ichiran.asp"");" & vbCrLf
			HttpL2 = HttpL2 & "			MenuItem.push(""書 類 一 覧"", """ & HomeAliasSL & "admin/syokai/fm_tyohyo.asp"");" & vbCrLf
			HttpL2 = HttpL2 & PopuoKaigyo
			HttpL2 = HttpL2 & "			MenuItem.push(""データバックアップ"", """ & HomeAliasSL & "admin/datakanri/fm_enshu_save.asp"");" & vbCrLf
			HttpL2 = HttpL2 & "			MenuItem.push(""デ ー タ 復 元"", """ & HomeAliasSL & "admin/datakanri/fm_enshu_load.asp"");" & vbCrLf
			HttpL2 = HttpL2 & "			MenuItem.push(""デ ー タ ク リ ア"",   """ & HomeAliasSL & "admin/datakanri/fm_enshu_clear.asp"");" & vbCrLf
			HttpL2 = HttpL2 & "			break;" & vbCrLf
		'マスター管理
			HttpL2 = HttpL2 & "		case 'fm_master_select':" & vbCrLf
			HttpL2 = HttpL2 & "			MenuItem.push(""マスター管理"",   """ & HomeAliasSL & "admin/master/fm_master_select.asp"");" & vbCrLf
			HttpL2 = HttpL2 & "			MenuItem.push(""会    社"", """ & HomeAliasSL & "admin/master/fm_master_select_bin.asp?url=" & HomeAliasSL & "admin/master/kaisya/fm_kaisya_ichiran.asp&EnshuCD=" & EnshuCD & """);" & vbCrLf
			HttpL2 = HttpL2 & "			MenuItem.push(""商    品"", """ & HomeAliasSL & "admin/master/fm_master_select_bin.asp?url=" & HomeAliasSL & "admin/master/shohin/fm_shohin_ichiran.asp&EnshuCD=" & EnshuCD & """);" & vbCrLf
			If PackageMode <> 1 Then
				HttpL2 = HttpL2 & "			MenuItem.push(""市    場"", """ & HomeAliasSL & "admin/master/fm_master_select_bin.asp?url=" & HomeAliasSL & "admin/master/shijyo/fm_shijyo_ichiran.asp&EnshuCD=" & EnshuCD & """);" & vbCrLf
			End If
			If 0=1 And Genkavariable > 0 And GenkaKaikeiRiyo = "1" Then
				HttpL2 = HttpL2 & "			MenuItem.push(""材    料"", """ & HomeAliasSL & "admin/master/fm_master_select_bin.asp?url=" & HomeAliasSL & "admin/master/shohin/fm_shohin_ichiran.asp&EnshuCD=" & EnshuCD & "&Mode=Zairyo"");" & vbCrLf
				HttpL2 = HttpL2 & "			MenuItem.push(""原価報告書集計"", """ & HomeAliasSL & "admin/master/fm_master_select_bin.asp?url=" & HomeAliasSL & "admin/master/syukei/fm_syukei_view.asp&EnshuCD=" & EnshuCD & "&TyohyoKubun=G"");" & vbCrLf
			End If
			HttpL2 = HttpL2 & "			MenuItem.push(""表 記 名 称"", """ & HomeAliasSL & "admin/master/fm_master_select_bin.asp?url=" & HomeAliasSL & "admin/master/hyoki/fm_hyoki.asp&EnshuCD=" & EnshuCD & """);" & vbCrLf
			If PackageMode <> 1 Then
				HttpL2 = HttpL2 & PopuoKaigyo
			End If
			HttpL2 = HttpL2 & "			MenuItem.push(""勘 定 科 目"", """ & HomeAliasSL & "admin/master/fm_master_select_bin.asp?url=" & HomeAliasSL & "admin/master/kamoku/fm_kamoku_ichiran.asp&EnshuCD=" & EnshuCD & "&GyoshuKubun=S"");" & vbCrLf
			If 0=1 And Genkavariable > 0 And GenkaKaikeiRiyo = "1" Then
				HttpL2 = HttpL2 & "			MenuItem.push(""原価勘定科目"", """ & HomeAliasSL & "admin/master/fm_master_select_bin.asp?url=" & HomeAliasSL & "admin/master/kamoku/fm_kamoku_ichiran.asp&EnshuCD=" & EnshuCD & "&GyoshuKubun=G"");" & vbCrLf
			End If
			If PackageMode <> 1 Then
				HttpL2 = HttpL2 & "			MenuItem.push(""銀行勘定科目"", """ & HomeAliasSL & "admin/master/fm_master_select_bin.asp?url=" & HomeAliasSL & "admin/master/kamoku/fm_kamoku_ichiran.asp&EnshuCD=" & EnshuCD & "&GyoshuKubun=B"");" & vbCrLf
			End If
			HttpL2 = HttpL2 & "			MenuItem.push(""消 費 税 率"", """ & HomeAliasSL & "admin/master/fm_master_select_bin.asp?url=" & HomeAliasSL & "admin/master/taxrate/fm_taxrate.asp&EnshuCD=" & EnshuCD & """);" & vbCrLf
			HttpL2 = HttpL2 & "			MenuItem.push(""為 替 レ ー ト"", """ & HomeAliasSL & "admin/master/fm_master_select_bin.asp?url=" & HomeAliasSL & "admin/master/exchangerate/fm_exchangerate.asp&EnshuCD=" & EnshuCD & """);" & vbCrLf
			HttpL2 = HttpL2 & PopuoKaigyo
			HttpL2 = HttpL2 & "			MenuItem.push(""損益計算書集計"", """ & HomeAliasSL & "admin/master/fm_master_select_bin.asp?url=" & HomeAliasSL & "admin/master/syukei/fm_syukei_view.asp&EnshuCD=" & EnshuCD & "&TyohyoKubun=P"");" & vbCrLf
			HttpL2 = HttpL2 & "			MenuItem.push(""貸借対照表集計"", """ & HomeAliasSL & "admin/master/fm_master_select_bin.asp?url=" & HomeAliasSL & "admin/master/syukei/fm_syukei_view.asp&EnshuCD=" & EnshuCD & "&TyohyoKubun=B"");" & vbCrLf
			HttpL2 = HttpL2 & "			MenuItem.push(""キャッシュフロー<BR>計 算 書 集 計"", """ & HomeAliasSL & "admin/master/fm_master_select_bin.asp?url=" & HomeAliasSL & "admin/master/syukei/fm_syukei_view.asp&EnshuCD=" & EnshuCD & "&TyohyoKubun=C"");" & vbCrLf
			HttpL2 = HttpL2 & "			MenuItem.push(""株主資本等変動<BR>計 算 書 集 計"", """ & HomeAliasSL & "admin/master/fm_master_select_bin.asp?url=" & HomeAliasSL & "admin/master/syukei/fm_stockholder_equity_view.asp&EnshuCD=" & EnshuCD & """);" & vbCrLf
			HttpL2 = HttpL2 & "			break;" & vbCrLf
		End If
		HttpL2 = HttpL2 & "	}" & vbCrLf
		'メニュー作成部
		HttpL2 = HttpL2 & "	var MenuItemLayer;" & vbCrLf
		HttpL2 = HttpL2 & "	var roop;" & vbCrLf
		HttpL2 = HttpL2 & "	var url;" & vbCrLf
		HttpL2 = HttpL2 & "	var subject;" & vbCrLf
		HttpL2 = HttpL2 & "	var cnt;" & vbCrLf
		HttpL2 = HttpL2 & "	var roopcnt;" & vbCrLf
		HttpL2 = HttpL2 & "	var kaigyocnt;" & vbCrLf
		HttpL2 = HttpL2 & "	var kaigyoflg;" & vbCrLf
		HttpL2 = HttpL2 & "	MenuItemLayer = """";" & vbCrLf
		HttpL2 = HttpL2 & "	roop = MenuItem.length / 2;" & vbCrLf
		HttpL2 = HttpL2 & "	cnt = 0;" & vbCrLf
		HttpL2 = HttpL2 & "	kaigyocnt = 0;" & vbCrLf
		HttpL2 = HttpL2 & "	kaigyoflg = 0;" & vbCrLf
		HttpL2 = HttpL2 & "	for (roopcnt=0; roopcnt<roop; roopcnt++) {" & vbCrLf
		Dim KaigyoShift
		KaigyoShift = 129 'メニュー改行時に右にずらす幅
		If GB_IEmode <> "1" Then
			KaigyoShift = KaigyoShift + 3
		End If
		HttpL2 = HttpL2 & "		MenuItemLayer += ""<div id='sjpopupmain'"" + kaigyocnt + "" style='position:absolute;top:"" + eval(posy+'+'+(18*kaigyoflg)) + "";left:"" + eval(posx+'+'+(" & KaigyoShift & "*kaigyocnt)) + "";z-index:9999999;'>\n"";" & vbCrLf
'		HttpL2 = HttpL2 & "		MenuItemLayer += ""<div id='sjpopupmain'"" + kaigyocnt + "" style='position:absolute;top:"" + posy + "";left:"" + eval(posx+'+'+(98 * kaigyocnt)) + "";'>\n"";" & vbCrLf
		HttpL2 = HttpL2 & "		while (roopcnt < roop && MenuItem[cnt] != 'kaigyo') {" & vbCrLf
		HttpL2 = HttpL2 & "			url = roopcnt * 2 + 1;" & vbCrLf
		HttpL2 = HttpL2 & "			subject = roopcnt * 2;" & vbCrLf
'		HttpL2 = HttpL2 & "			MenuItemLayer += ""	<div id='sjpopupmenu"" + roopcnt + ""' class='sjpopupmenu01'"";" & vbCrLf
									'初期表示時は第1項目を大きく表示する(sjpopupmenu02クラス)
		HttpL2 = HttpL2 & "			MenuItemLayer += ""	<div id='sjpopupmenu"" + roopcnt + ""' class='sjpopupmenu"";" & vbCrLf
		HttpL2 = HttpL2 & "			if (cnt == 0) {" & vbCrLf
		HttpL2 = HttpL2 & "				MenuItemLayer += ""02'"";" & vbCrLf
		HttpL2 = HttpL2 & "			} else {" & vbCrLf
		HttpL2 = HttpL2 & "				MenuItemLayer += ""01'"";" & vbCrLf
		HttpL2 = HttpL2 & "			}" & vbCrLf
		HttpL2 = HttpL2 & "			MenuItemLayer += ""	  onclick=tblbtn('"" + MenuItem[url] + ""')"";" & vbCrLf
		If btn2 = "自社設定" Or GB_Admin > 0 Then
			HttpL2 = HttpL2 & "			MenuItemLayer += ""	  onmouseover=rollOver(this,'sjpopupmenu02');popupDisplay('block');"";" & vbCrLf
		Else
			HttpL2 = HttpL2 & "			MenuItemLayer += ""	  onmouseover=rollOver(this,'sjpopupmenu_" & Gyosyu & "');popupDisplay('block');"";" & vbCrLf
		End If
		HttpL2 = HttpL2 & "			MenuItemLayer += ""	  onmouseout=rollOver(this,'sjpopupmenu01');popupDisplay('none');>"" + MenuItem[subject] + ""</div>\n"";" & vbCrLf
		HttpL2 = HttpL2 & "			cnt = cnt + 2;" & vbCrLf
		HttpL2 = HttpL2 & "			roopcnt = roopcnt + 1;" & vbCrLf
		HttpL2 = HttpL2 & "		}" & vbCrLf
		HttpL2 = HttpL2 & "		MenuItemLayer += ""</div>\n"";" & vbCrLf
		HttpL2 = HttpL2 & "		cnt = cnt + 2;" & vbCrLf
		HttpL2 = HttpL2 & "//		roopcnt = roopcnt + 1;" & vbCrLf
		HttpL2 = HttpL2 & "		kaigyocnt = kaigyocnt + 1;" & vbCrLf
		HttpL2 = HttpL2 & "		kaigyoflg = 1;" & vbCrLf
		HttpL2 = HttpL2 & "	}" & vbCrLf
		'ポップアップ表示部
		HttpL2 = HttpL2 & "	sjpopupmenuel.style.display = 'block';" & vbCrLf
		HttpL2 = HttpL2 & "	sjpopupmenuel.innerHTML = MenuItemLayer;" & vbCrLf
		HttpL2 = HttpL2 & "}" & vbCrLf
		'ロールオーバー切替関数
		HttpL2 = HttpL2 & "function rollOver(obj,val) {" & vbCrLf
		HttpL2 = HttpL2 & "	obj.className = val;" & vbCrLf
		HttpL2 = HttpL2 & "}" & vbCrLf
		'表示モード切替関数
		HttpL2 = HttpL2 & "function popupDisplay(mode) {" & vbCrLf
		HttpL2 = HttpL2 & "	document.getElementById('sjpopupmenu').style.display = mode;" & vbCrLf
		HttpL2 = HttpL2 & "}" & vbCrLf
		HttpL2 = HttpL2 & "-->" & vbCrLf
		HttpL2 = HttpL2 & "</SCRIPT>" & vbCrLf
	'※ ※ ※ ※ ※ ポップアップメニュー関数 ※ ※ ※ ※ ※(070218小野)

		If InStr(btn1, "受発信文書ウィンドウ") > 0 Then
			If btn1c <> "" Then
				HttpL2 = HttpL2 & "<div id=""L2"" style=""position:absolute; visibility: hidden; left: 0px; top: 0px;"">"
				HttpL2 = HttpL2 & "	<table width=""80"" height=""25"" border=""0"" cellpadding=""0"" cellspacing=""0"">" & vbCrLf
				HttpL2 = HttpL2 & "		<tr>" & vbCrLf
				HttpL2 = HttpL2 & "			<td width=""80"" height=""25"" align=""center"" valign=""middle"" background=""" & HomeAliasSL & "images/mlbtn_back.gif?" & GB_STU & """ class=""tbtn3"" onClick=""" & btn1c & """>一覧へ戻る</td>" & vbCrLf
				HttpL2 = HttpL2 & "		</tr>" & vbCrLf
				HttpL2 = HttpL2 & "	</table>" & vbCrLf
				HttpL2 = HttpL2 & "</div>" & vbCrLf
			End If
		ElseIf InStr(btn1, "チェック") > 0 Then
			HttpL2 = HttpL2 & "<div id=""L2"" style=""position:absolute; visibility: hidden; left: 0px; top: 30px;"">" & vbCrLf
			If btn2 <> "" Then

				HttpL2 = HttpL2 & "						<table border=""0"" width=""330"" height=""35"" cellpadding=""0"" cellspacing=""0"">" & vbCrLf
				HttpL2 = HttpL2 & "							<tr> " & vbCrLf
				HttpL2 = HttpL2 & "								<td width=""210"" height=""35""> " & vbCrLf
				HttpL2 = HttpL2 & "									<table width=""100"" height=""25"" border=""0"" cellpadding=""0"" cellspacing=""0"">" & vbCrLf
				HttpL2 = HttpL2 & "										<tr> " & vbCrLf
				HttpL2 = HttpL2 & "											<td width=""100"" height=""26"" align=""center"" valign=""middle"" background=""" & HomeAliasSL & "images/ssbtn_back.gif?" & GB_STU & """ class=""tbtn3"" onClick=""tblbtn( '" & Replace(Request.ServerVariables("PATH_INFO"), "_main", "") & "?" & Request.ServerVariables("QUERY_STRING") & "')"">再表示</td>" & vbCrLf
				HttpL2 = HttpL2 & "										</tr>" & vbCrLf
				HttpL2 = HttpL2 & "									</table>" & vbCrLf
				HttpL2 = HttpL2 & "								</td>" & vbCrLf
				HttpL2 = HttpL2 & "								<td><img src=""" & HomeAliasSL & "images/spacer.gif?" & GB_STU & """ width=""1"" height=""1""></td>" & vbCrLf
				HttpL2 = HttpL2 & "								<td align=""center"" valign=""bottom""> " & vbCrLf
				HttpL2 = HttpL2 & "									<table height=""25"" border=""0"" cellpadding=""0"" cellspacing=""0"" bgcolor=""#BAFFE8"">" & vbCrLf
				HttpL2 = HttpL2 & "										<tr> " & vbCrLf
				HttpL2 = HttpL2 & "											<td width=""10"" height=""25""><img src=""" & HomeAliasSL & "images/sswtab_l.gif?" & GB_STU & """ width=""10"" height=""25""></td>" & vbCrLf
				HttpL2 = HttpL2 & "											<td width=""180"" height=""25"" align=""center"" valign=""middle"" background=""" & HomeAliasSL & "images/sswtab_c.gif?" & GB_STU & """ class=""tx1618"">" & vbCrLf
				HttpL2 = HttpL2 & "											" & btn3 & vbCrLf
				HttpL2 = HttpL2 & "											</td>" & vbCrLf
				HttpL2 = HttpL2 & "											<td width=""10"" height=""25""><img src=""" & HomeAliasSL & "images/sswtab_r.gif?" & GB_STU & """ width=""10"" height=""25""></td>" & vbCrLf
				HttpL2 = HttpL2 & "										</tr>" & vbCrLf
				HttpL2 = HttpL2 & "									</table>" & vbCrLf
				HttpL2 = HttpL2 & "								</td>" & vbCrLf
				HttpL2 = HttpL2 & "							</tr>" & vbCrLf
				HttpL2 = HttpL2 & "						</table>" & vbCrLf
			End If
			HttpL2 = HttpL2 & "</div>" & vbCrLf


		ElseIf InStr(btn1, "ウィンドウ") > 0 Then
			HttpL2 = HttpL2 & "<div id=""L2"" style=""position:absolute; visibility: hidden; left: 0px; top: 30px;"">" & vbCrLf
			If btn2 <> "" Then

				HttpL2 = HttpL2 & "						<table border=""0"" width=""330"" height=""35"" cellpadding=""0"" cellspacing=""0"">" & vbCrLf
				HttpL2 = HttpL2 & "							<tr> " & vbCrLf
				HttpL2 = HttpL2 & "								<td width=""210"" height=""35""> " & vbCrLf
				If btn1c <> "" Then
					HttpL2 = HttpL2 & "									<table width=""200"" height=""25"" border=""0"" cellpadding=""0"" cellspacing=""0"">" & vbCrLf
					HttpL2 = HttpL2 & "										<tr> " & vbCrLf
					HttpL2 = HttpL2 & "											<td width=""100"" height=""26"" align=""center"" valign=""middle"" background=""" & HomeAliasSL & "images/ssbtn_back.gif?" & GB_STU & """ class=""tbtn3"" onClick=""tblbtn( '" & HomeAliasSL & "user/bk/menu_s_viewonly.asp')"">一覧へ戻る</td>" & vbCrLf
					HttpL2 = HttpL2 & "											<td width=""100"" height=""26"" align=""center"" valign=""middle"" background=""" & HomeAliasSL & "images/ssbtn_back.gif?" & GB_STU & """ class=""tbtn3"" onClick=""tblbtn( '" & Replace(Request.ServerVariables("PATH_INFO"), "_main", "") & "?" & Request.ServerVariables("QUERY_STRING") & "')"">再表示</td>" & vbCrLf
					HttpL2 = HttpL2 & "										</tr>" & vbCrLf
					HttpL2 = HttpL2 & "									</table>" & vbCrLf
				End If
				HttpL2 = HttpL2 & "								</td>" & vbCrLf
				HttpL2 = HttpL2 & "								<td><img src=""" & HomeAliasSL & "images/spacer.gif?" & GB_STU & """ width=""1"" height=""1""></td>" & vbCrLf
				HttpL2 = HttpL2 & "								<td align=""center"" valign=""bottom""> " & vbCrLf
				HttpL2 = HttpL2 & "									<table height=""25"" border=""0"" cellpadding=""0"" cellspacing=""0"" bgcolor=""#BAFFE8"">" & vbCrLf
				HttpL2 = HttpL2 & "										<tr> " & vbCrLf
				HttpL2 = HttpL2 & "											<td width=""10"" height=""25""><img src=""" & HomeAliasSL & "images/sswtab_l.gif?" & GB_STU & """ width=""10"" height=""25""></td>" & vbCrLf
				HttpL2 = HttpL2 & "											<td width=""180"" height=""25"" align=""center"" valign=""middle"" background=""" & HomeAliasSL & "images/sswtab_c.gif?" & GB_STU & """ class=""tx1618"">" & vbCrLf
				HttpL2 = HttpL2 & "											" & btn3 & vbCrLf
'				HttpL2 = HttpL2 & "											" & btn2 & vbCrLf
'				If btn3 <> "" Then
'					HttpL2 = HttpL2 & ":" & btn3 & vbCrLf
'				End If
				HttpL2 = HttpL2 & "											</td>" & vbCrLf
				HttpL2 = HttpL2 & "											<td width=""10"" height=""25""><img src=""" & HomeAliasSL & "images/sswtab_r.gif?" & GB_STU & """ width=""10"" height=""25""></td>" & vbCrLf
				HttpL2 = HttpL2 & "										</tr>" & vbCrLf
				HttpL2 = HttpL2 & "									</table>" & vbCrLf
				HttpL2 = HttpL2 & "								</td>" & vbCrLf
				HttpL2 = HttpL2 & "							</tr>" & vbCrLf
				HttpL2 = HttpL2 & "						</table>" & vbCrLf
			End If
			HttpL2 = HttpL2 & "</div>" & vbCrLf


		ElseIf InStr(btn1, "ポータルサイト") > 0 Then
			HttpL2 = HttpL2 & "<div id=""L2"" style=""position:absolute; visibility: hidden; left: 0px; top: 30px;"">" & vbCrLf
			If btn2 <> "" Then

				HttpL2 = HttpL2 & "						<table border=""0"" width=""330"" height=""35"" cellpadding=""0"" cellspacing=""0"">" & vbCrLf
				HttpL2 = HttpL2 & "							<tr> " & vbCrLf
				HttpL2 = HttpL2 & "								<td width=""210"" height=""35""> " & vbCrLf
				If btn1c <> "" Then
					HttpL2 = HttpL2 & "									<table width=""200"" height=""25"" border=""0"" cellpadding=""0"" cellspacing=""0"">" & vbCrLf
					HttpL2 = HttpL2 & "										<tr> " & vbCrLf
					HttpL2 = HttpL2 & "											<td width=""100"" height=""26"" align=""center"" valign=""middle"" background=""" & HomeAliasSL & "images/ssbtn_back.gif?" & GB_STU & """ class=""tbtn3"" onClick=""tblbtn( '" & HomeAliasSL & "user/bk/menu_s_viewonly.asp')"">一覧へ戻る</td>" & vbCrLf
					HttpL2 = HttpL2 & "											<td width=""100"" height=""26"" align=""center"" valign=""middle"" background=""" & HomeAliasSL & "images/ssbtn_back.gif?" & GB_STU & """ class=""tbtn3"" onClick=""tblbtn( '" & Replace(Request.ServerVariables("PATH_INFO"), "_main", "") & "?" & Request.ServerVariables("QUERY_STRING") & "')"">再表示</td>" & vbCrLf
					HttpL2 = HttpL2 & "										</tr>" & vbCrLf
					HttpL2 = HttpL2 & "									</table>" & vbCrLf
				End If
				HttpL2 = HttpL2 & "								</td>" & vbCrLf
				HttpL2 = HttpL2 & "								<td><img src=""" & HomeAliasSL & "images/spacer.gif?" & GB_STU & """ width=""1"" height=""1""></td>" & vbCrLf
				HttpL2 = HttpL2 & "								<td align=""center"" valign=""bottom""> " & vbCrLf
				HttpL2 = HttpL2 & "									<table height=""25"" border=""0"" cellpadding=""0"" cellspacing=""0"" bgcolor=""#BAFFE8"">" & vbCrLf
				HttpL2 = HttpL2 & "										<tr> " & vbCrLf
				HttpL2 = HttpL2 & "											<td width=""10"" height=""25""><img src=""" & HomeAliasSL & "images/sswtab_l.gif?" & GB_STU & """ width=""10"" height=""25""></td>" & vbCrLf
				HttpL2 = HttpL2 & "											<td width=""180"" height=""25"" align=""center"" valign=""middle"" background=""" & HomeAliasSL & "images/sswtab_c.gif?" & GB_STU & """ class=""tx1618"">" & vbCrLf
				HttpL2 = HttpL2 & "											" & btn3 & vbCrLf
'				HttpL2 = HttpL2 & "											" & btn2 & vbCrLf
'				If btn3 <> "" Then
'					HttpL2 = HttpL2 & ":" & btn3 & vbCrLf
'				End If
				HttpL2 = HttpL2 & "											</td>" & vbCrLf
				HttpL2 = HttpL2 & "											<td width=""10"" height=""25""><img src=""" & HomeAliasSL & "images/sswtab_r.gif?" & GB_STU & """ width=""10"" height=""25""></td>" & vbCrLf
				HttpL2 = HttpL2 & "										</tr>" & vbCrLf
				HttpL2 = HttpL2 & "									</table>" & vbCrLf
				HttpL2 = HttpL2 & "								</td>" & vbCrLf
				HttpL2 = HttpL2 & "							</tr>" & vbCrLf
				HttpL2 = HttpL2 & "						</table>" & vbCrLf
			End If
			HttpL2 = HttpL2 & "</div>" & vbCrLf
		Else




			HttpL2 = HttpL2 & "<div id=""L2"" style=""position:absolute; visibility: hidden; left: 0px; top: 30px;"">" & vbCrLf



			Dim valign
			If Session(HomeAlias & "GyosyuColorObj") = "w" Then
				valign = "middle"
			Else
				valign = "bottom"
			End If
			HttpL2 = HttpL2 & "			<table border=""0"" cellspacing=""0"" cellpadding=""0"">" & vbCrLf
			HttpL2 = HttpL2 & "				<tr valign=""middle""> " & vbCrLf
			HttpL2 = HttpL2 & "					<td width=""25"" height=""30"" background=""" & HomeAliasSL & "images/nvbar_ttlbkl.gif?" & GB_STU & """>&nbsp;</td>" & vbCrLf
			If GB_Admin > 0 Then
				HttpL2 = HttpL2 & "					<td align=""center"" width=""250"" height=""30"" background=""" & HomeAliasSL & "images/nvbar_ttlbkr.gif?" & GB_STU & """ class=""tx1416"" style=""color:#FFFFFF""><div style=""height:16px;width:250px;overflow:hidden;"">" & HardWrap(EnshuMeisyo) & "</div></td>" & vbCrLf
			Else
				'デバッグ用追加(演習名称をクリックすると演習選択画面に戻ります)070122小野
				If DebugFlg > 0 Then
					HttpL2 = HttpL2 & "					<td align=""center"" width=""250"" height=""30"" background=""" & HomeAliasSL & "images/nvbar_ttlbkr.gif?" & GB_STU & """ class=""tbtn3w"" onClick=""tblbtn( '" & HomeAliasSL & "user/')"" style=""color:#FFFFFF""><div style=""height:16px;width:250px;overflow:hidden;"">" & HardWrap(EnshuMeisyo) & "</div></td>" & vbCrLf
				Else
					HttpL2 = HttpL2 & "					<td align=""center"" width=""250"" height=""30"" background=""" & HomeAliasSL & "images/nvbar_ttlbkr.gif?" & GB_STU & """ class=""tx1416"" style=""color:#FFFFFF""><div style=""height:16px;width:250px;overflow:hidden;"">" & HardWrap(EnshuMeisyo) & "</div></td>" & vbCrLf
				End If
			End If
			HttpL2 = HttpL2 & "					<td width=""15"" height=""30"" background=""" & HomeAliasSL & "images/nvbar_ar.gif?" & GB_STU & """ onClick=""DebugMode=1;"">&nbsp;</td>" & vbCrLf	'演習名称の右の矢印をクリックするとデバッグモードになる
			If btn1 <> "" And (btn2 <> "" Or btn3 <> "" Or btn4 <> "" Or btn5 <> "") Then
				If GB_Admin > 0 Then	'運用管理メニューポップアップ(070227小野)
					HttpL2 = HttpL2 & "					<td width=""130"" height=""30"" align=""center"" background=""" & HomeAliasSL & "images/nvbtn_go.gif?" & GB_STU & """ class=""tbtn3w"" onMouseOver=""if(SubmitFlg!=0){this.focus()};nvbov(this);PopupMenu(this,'admenu',291,32);"" onMouseOut=""nvbot(this);popupDisplay('none');"">" & btn1 & "</td>" & vbCrLf
				ElseIf GB_EnshuKubun = "P" And PackageMode <> 1 Then	'同時同業会社選択メニューポップアップ(070217小野)※サイバー会計モードでは表示しない(091001小野)
					HttpL2 = HttpL2 & "					<td width=""130"" height=""30"" align=""center"" background=""" & HomeAliasSL & "images/nvbtn_go.gif?" & GB_STU & """ class=""tbtn3w"" onMouseOver=""if(SubmitFlg!=0){this.focus()};nvbov(this);PopupMenu(this,'default',291,32);"" onMouseOut=""nvbot(this);popupDisplay('none');"">" & btn1 & "</td>" & vbCrLf
				Else
					HttpL2 = HttpL2 & "					<td width=""130"" height=""30"" align=""center"" background=""" & HomeAliasSL & "images/nvbtn_go.gif?" & GB_STU & """ class=""tbtn3w"" onClick=""" & btn1c & """ onMouseOver=""if(SubmitFlg!=0){this.focus()};nvbov(this)"" onMouseOut=""nvbot(this)"">" & btn1 & "</td>" & vbCrLf
				End If
			ElseIf btn1 <> "" Then
				HttpL2 = HttpL2 & "					<td width=""130"" height=""25"" align=""center"" background=""" & HomeAliasSL & "images/nvbtn_in_" & Session(HomeAlias & "GyosyuColorObj") & ".gif?" & GB_STU & """ valign=""" & valign & """ background=""" & HomeAliasSL & "images/nvbtn_in_" & Session(HomeAlias & "GyosyuColorObj") & ".gif?" & GB_STU & """ class=""tx1416"" onClick=""" & btn1c & """ onMouseOver=""if(SubmitFlg!=0){this.focus()};nvbov(this)"" onMouseOut=""nvbot(this)"">" & btn1 & "</td>" & vbCrLf
			End If

			If btn2 <> "" And (btn3 <> "" Or btn4 <> "" Or btn5 <> "") Then
				HttpL2 = HttpL2 & "					<td width=""6"" height=""30"" background=""" & HomeAliasSL & "images/nvbar_ar_go.gif?" & GB_STU & """ class=""tx1214"">&nbsp;</td>" & vbCrLf
				If btn2 = "マスター管理" And  GB_Admin > 0 Then	'運用管理→マスター管理メニューポップアップ(070228小野)
					HttpL2 = HttpL2 & "					<td width=""130"" height=""30"" align=""center"" background=""" & HomeAliasSL & "images/nvbtn_go.gif?" & GB_STU & """ class=""tbtn3w"" onMouseOver=""if(SubmitFlg!=0){this.focus()};nvbov(this);PopupMenu(this,'fm_master_select',426,32);"" onMouseOut=""nvbot(this);popupDisplay('none');"">" & btn2 & "</td>" & vbCrLf
				ElseIf btn2 = "商社" Then	'商社メニューポップアップ(070217小野)
					HttpL2 = HttpL2 & "					<td width=""130"" height=""30"" align=""center"" background=""" & HomeAliasSL & "images/nvbtn_go.gif?" & GB_STU & """ class=""tbtn3w"" onMouseOver=""if(SubmitFlg!=0){this.focus()};nvbov(this);PopupMenu(this,'s',426,32);"" onMouseOut=""nvbot(this);popupDisplay('none');"">" & btn2 & "</td>" & vbCrLf
				ElseIf btn2 = "管理部" Then	'管理部メニューポップアップ(070217小野)
					HttpL2 = HttpL2 & "					<td width=""130"" height=""30"" align=""center"" background=""" & HomeAliasSL & "images/nvbtn_go.gif?" & GB_STU & """ class=""tbtn3w"" onMouseOver=""if(SubmitFlg!=0){this.focus()};nvbov(this);PopupMenu(this,'k',426,32);"" onMouseOut=""nvbot(this);popupDisplay('none');"">" & btn2 & "</td>" & vbCrLf
				ElseIf btn2 = "銀行" Then	'銀行メニューポップアップ(070217小野)
					HttpL2 = HttpL2 & "					<td width=""130"" height=""30"" align=""center"" background=""" & HomeAliasSL & "images/nvbtn_go.gif?" & GB_STU & """ class=""tbtn3w"" onMouseOver=""if(SubmitFlg!=0){this.focus()};nvbov(this);PopupMenu(this,'b',426,32);"" onMouseOut=""nvbot(this);popupDisplay('none');"">" & btn2 & "</td>" & vbCrLf
				ElseIf btn2 = "運輸・倉庫・保険" Then	'運輸・倉庫・保険メニューポップアップ(070217小野)
					HttpL2 = HttpL2 & "					<td width=""130"" height=""30"" align=""center"" background=""" & HomeAliasSL & "images/nvbtn_go.gif?" & GB_STU & """ class=""tbtn3w"" onMouseOver=""if(SubmitFlg!=0){this.focus()};nvbov(this);PopupMenu(this,'u',426,32);"" onMouseOut=""nvbot(this);popupDisplay('none');"">" & btn2 & "</td>" & vbCrLf
				Else
					HttpL2 = HttpL2 & "					<td width=""130"" height=""30"" align=""center"" background=""" & HomeAliasSL & "images/nvbtn_go.gif?" & GB_STU & """ class=""tbtn3w"" onClick=""" & btn2c & """ onMouseOver=""if(SubmitFlg!=0){this.focus()};nvbov(this);"" onMouseOut=""nvbot(this);"">" & btn2 & "</td>" & vbCrLf
				End If
			ElseIf btn2 <> "" Then
				HttpL2 = HttpL2 & "					<td width=""6"" height=""30"" background=""" & HomeAliasSL & "images/nvbar_ar_go.gif?" & GB_STU & """ class=""tx1214"">&nbsp;</td>" & vbCrLf
				HttpL2 = HttpL2 & "					<td width=""130"" height=""25"" align=""center"" background=""" & HomeAliasSL & "images/nvbtn_in_" & Session(HomeAlias & "GyosyuColorObj") & ".gif?" & GB_STU & """ valign=""" & valign & """ background=""" & HomeAliasSL & "images/nvbtn_in_" & Session(HomeAlias & "GyosyuColorObj") & ".gif?" & GB_STU & """ class=""tx1416"" onClick=""" & btn2c & """ onMouseOver=""if(SubmitFlg!=0){this.focus()};nvbov(this)"" onMouseOut=""nvbot(this)"">" & btn2 & "</td>" & vbCrLf
			End If

			If btn3 <> "" And (btn4 <> "" Or btn5 <> "") Then
				HttpL2 = HttpL2 & "					<td width=""6"" height=""30"" background=""" & HomeAliasSL & "images/nvbar_ar_go.gif?" & GB_STU & """ class=""tx1214"">&nbsp;</td>" & vbCrLf
'				If btn3 = "経理部" Then	'経理部メニューポップアップ(070218小野)
'					HttpL2 = HttpL2 & "					<td width=""130"" height=""30"" align=""center"" background=""" & HomeAliasSL & "images/nvbtn_go.gif?" & GB_STU & """ class=""tbtn3w"" onMouseOver=""nvbov(this);PopupMenu(this,'s1',451,32);"" onMouseOut=""nvbot(this);popupDisplay('none');"">" & btn3 & "</td>" & vbCrLf
'				ElseIf btn3 = "仕入部" Then	'仕入部メニューポップアップ(070218小野)
'					HttpL2 = HttpL2 & "					<td width=""130"" height=""30"" align=""center"" background=""" & HomeAliasSL & "images/nvbtn_go.gif?" & GB_STU & """ class=""tbtn3w"" onMouseOver=""nvbov(this);PopupMenu(this,'s3',451,32);"" onMouseOut=""nvbot(this);popupDisplay('none');"">" & btn3 & "</td>" & vbCrLf
'				ElseIf btn3 = "販売部" Then	'販売部メニューポップアップ(070218小野)
'					HttpL2 = HttpL2 & "					<td width=""130"" height=""30"" align=""center"" background=""" & HomeAliasSL & "images/nvbtn_go.gif?" & GB_STU & """ class=""tbtn3w"" onMouseOver=""nvbov(this);PopupMenu(this,'s2',451,32);"" onMouseOut=""nvbot(this);popupDisplay('none');"">" & btn3 & "</td>" & vbCrLf
'				ElseIf btn3 = "商品企画室" Then	'販売部メニューポップアップ(070218小野)
'					HttpL2 = HttpL2 & "					<td width=""130"" height=""30"" align=""center"" background=""" & HomeAliasSL & "images/nvbtn_go.gif?" & GB_STU & """ class=""tbtn3w"" onMouseOver=""nvbov(this);PopupMenu(this,'s5',451,32);"" onMouseOut=""nvbot(this);popupDisplay('none');"">" & btn3 & "</td>" & vbCrLf
'				ElseIf btn3 = "社長室・総務部" Then	'社長室・総務部メニューポップアップ(070218小野)
'					HttpL2 = HttpL2 & "					<td width=""130"" height=""30"" align=""center"" background=""" & HomeAliasSL & "images/nvbtn_go.gif?" & GB_STU & """ class=""tbtn3w"" onMouseOver=""nvbov(this);PopupMenu(this,'s4',451,32);"" onMouseOut=""nvbot(this);popupDisplay('none');"">" & btn3 & "</td>" & vbCrLf
'				ElseIf btn3 = "受付業務" Then	'管理部 → 受付業務メニューポップアップ(070227小野)
'					HttpL2 = HttpL2 & "					<td width=""130"" height=""30"" align=""center"" background=""" & HomeAliasSL & "images/nvbtn_go.gif?" & GB_STU & """ class=""tbtn3w"" onMouseOver=""nvbov(this);PopupMenu(this,'k2',451,32);"" onMouseOut=""nvbot(this);popupDisplay('none');"">" & btn3 & "</td>" & vbCrLf
'				ElseIf btn3 = "窓口業務" Then	'銀行 → 窓口業務メニューポップアップ(070218小野)
'					HttpL2 = HttpL2 & "					<td width=""130"" height=""30"" align=""center"" background=""" & HomeAliasSL & "images/nvbtn_go.gif?" & GB_STU & """ class=""tbtn3w"" onMouseOver=""nvbov(this);PopupMenu(this,'b2',451,32);"" onMouseOut=""nvbot(this);popupDisplay('none');"">" & btn3 & "</td>" & vbCrLf
'				ElseIf btn3 = "経理業務" Then	'銀行 → 経理業務メニューポップアップ(070218小野)
'					HttpL2 = HttpL2 & "					<td width=""130"" height=""30"" align=""center"" background=""" & HomeAliasSL & "images/nvbtn_go.gif?" & GB_STU & """ class=""tbtn3w"" onMouseOver=""nvbov(this);PopupMenu(this,'b1',451,32);"" onMouseOut=""nvbot(this);popupDisplay('none');"">" & btn3 & "</td>" & vbCrLf
'				ElseIf btn3 = "受発信文書" Then	'銀行 → 受発信文書メニューポップアップ(070218小野)
'					HttpL2 = HttpL2 & "					<td width=""130"" height=""30"" align=""center"" background=""" & HomeAliasSL & "images/nvbtn_go.gif?" & GB_STU & """ class=""tbtn3w"" onMouseOver=""nvbov(this);PopupMenu(this,'jyuhasshinbunsyo',451,32);"" onMouseOut=""nvbot(this);popupDisplay('none');"">" & btn3 & "</td>" & vbCrLf
'				ElseIf btn3 = "運輸倉庫保険業務" Then	'運輸倉庫保険業務メニューポップアップ(070218小野)
'					HttpL2 = HttpL2 & "					<td width=""130"" height=""30"" align=""center"" background=""" & HomeAliasSL & "images/nvbtn_go.gif?" & GB_STU & """ class=""tbtn3w"" onMouseOver=""nvbov(this);PopupMenu(this,'u2',451,32);"" onMouseOut=""nvbot(this);popupDisplay('none');"">" & btn3 & "</td>" & vbCrLf
'				Else
					HttpL2 = HttpL2 & "					<td width=""130"" height=""30"" align=""center"" background=""" & HomeAliasSL & "images/nvbtn_go.gif?" & GB_STU & """ class=""tbtn3w"" onClick=""" & btn3c & """ onMouseOver=""if(SubmitFlg!=0){this.focus()};nvbov(this)"" onMouseOut=""nvbot(this)"">" & btn3 & "</td>" & vbCrLf
'				End If
			ElseIf btn3 <> "" Then
				HttpL2 = HttpL2 & "					<td width=""6"" height=""30"" background=""" & HomeAliasSL & "images/nvbar_ar_go.gif?" & GB_STU & """ class=""tx1214"">&nbsp;</td>" & vbCrLf
				HttpL2 = HttpL2 & "					<td width=""130"" height=""25"" align=""center"" background=""" & HomeAliasSL & "images/nvbtn_in_" & Session(HomeAlias & "GyosyuColorObj") & ".gif?" & GB_STU & """ valign=""" & valign & """ background=""" & HomeAliasSL & "images/nvbtn_in_" & Session(HomeAlias & "GyosyuColorObj") & ".gif?" & GB_STU & """ class=""tx1416"" onClick=""" & btn3c & """ onMouseOver=""if(SubmitFlg!=0){this.focus()};nvbov(this)"" onMouseOut=""nvbot(this)"">" & btn3 & "</td>" & vbCrLf
			End If

			If btn4 <> "" And (btn5 <> "") Then
				HttpL2 = HttpL2 & "					<td width=""6"" height=""30"" background=""" & HomeAliasSL & "images/nvbar_ar_go.gif?" & GB_STU & """ class=""tx1214"">&nbsp;</td>" & vbCrLf
'				If btn4 = "伝票" Then	'伝票メニューポップアップ(070218小野)
'					HttpL2 = HttpL2 & "					<td width=""130"" height=""30"" align=""center"" background=""" & HomeAliasSL & "images/nvbtn_go.gif?" & GB_STU & """ class=""tbtn3w"" onMouseOver=""nvbov(this);PopupMenu(this,'s11',556,32);"" onMouseOut=""nvbot(this);popupDisplay('none');"">" & btn4 & "</td>" & vbCrLf
'				ElseIf btn4 = "帳簿" Then	'帳簿メニューポップアップ(070218小野)
'					HttpL2 = HttpL2 & "					<td width=""130"" height=""30"" align=""center"" background=""" & HomeAliasSL & "images/nvbtn_go.gif?" & GB_STU & """ class=""tbtn3w"" onMouseOver=""nvbov(this);PopupMenu(this,'s12',556,32);"" onMouseOut=""nvbot(this);popupDisplay('none');"">" & btn4 & "</td>" & vbCrLf
'				ElseIf btn4 = "財務諸表" Then	'社長室・総務部 → 財務諸表メニューポップアップ(070218小野)
'					HttpL2 = HttpL2 & "					<td width=""130"" height=""30"" align=""center"" background=""" & HomeAliasSL & "images/nvbtn_go.gif?" & GB_STU & """ class=""tbtn3w"" onMouseOver=""nvbov(this);PopupMenu(this,'s41',556,32);"" onMouseOut=""nvbot(this);popupDisplay('none');"">" & btn4 & "</td>" & vbCrLf
'				ElseIf btn4 = "白紙帳票" Then	'社長室・総務部 → 白紙帳票メニューポップアップ(070218小野)
'					HttpL2 = HttpL2 & "					<td width=""130"" height=""30"" align=""center"" background=""" & HomeAliasSL & "images/nvbtn_go.gif?" & GB_STU & """ class=""tbtn3w"" onMouseOver=""nvbov(this);PopupMenu(this,'s42',556,32);"" onMouseOut=""nvbot(this);popupDisplay('none');"">" & btn4 & "</td>" & vbCrLf
'				ElseIf btn4 = "マスター照会" Then	'社長室・総務部 → マスター照会メニューポップアップ(070218小野)
'					HttpL2 = HttpL2 & "					<td width=""130"" height=""30"" align=""center"" background=""" & HomeAliasSL & "images/nvbtn_go.gif?" & GB_STU & """ class=""tbtn3w"" onMouseOver=""nvbov(this);PopupMenu(this,'s43',556,32);"" onMouseOut=""nvbot(this);popupDisplay('none');"">" & btn4 & "</td>" & vbCrLf
'				ElseIf btn4 = "受発信文書" Then	'社長室・総務部 → 受発信文書メニューポップアップ(070218小野)
'					HttpL2 = HttpL2 & "					<td width=""130"" height=""30"" align=""center"" background=""" & HomeAliasSL & "images/nvbtn_go.gif?" & GB_STU & """ class=""tbtn3w"" onMouseOver=""nvbov(this);PopupMenu(this,'jyuhasshinbunsyo',556,32);"" onMouseOut=""nvbot(this);popupDisplay('none');"">" & btn4 & "</td>" & vbCrLf
'				Else
					HttpL2 = HttpL2 & "					<td width=""130"" height=""30"" align=""center"" background=""" & HomeAliasSL & "images/nvbtn_go.gif?" & GB_STU & """ class=""tbtn3w"" onClick=""" & btn4c & """ onMouseOver=""if(SubmitFlg!=0){this.focus()};nvbov(this)"" onMouseOut=""nvbot(this)"">" & btn4 & "</td>" & vbCrLf
'				End If
			ElseIf btn4 <> "" Then
				HttpL2 = HttpL2 & "					<td width=""6"" height=""30"" background=""" & HomeAliasSL & "images/nvbar_ar_go.gif?" & GB_STU & """ class=""tx1214"">&nbsp;</td>" & vbCrLf
				If Len(btn4) >= 9 Then
					HttpL2 = HttpL2 & "					<td width=""130"" height=""25"" align=""center"" background=""" & HomeAliasSL & "images/nvbtn_in_" & Session(HomeAlias & "GyosyuColorObj") & ".gif?" & GB_STU & """ valign=""" & valign & """ background=""" & HomeAliasSL & "images/nvbtn_in_" & Session(HomeAlias & "GyosyuColorObj") & ".gif?" & GB_STU & """ class=""tx1214"" onClick=""" & btn4c & """ onMouseOver=""if(SubmitFlg!=0){this.focus()};nvbov(this)"" onMouseOut=""nvbot(this)"">" & btn4 & "</td>" & vbCrLf
				Else
					HttpL2 = HttpL2 & "					<td width=""130"" height=""25"" align=""center"" background=""" & HomeAliasSL & "images/nvbtn_in_" & Session(HomeAlias & "GyosyuColorObj") & ".gif?" & GB_STU & """ valign=""" & valign & """ background=""" & HomeAliasSL & "images/nvbtn_in_" & Session(HomeAlias & "GyosyuColorObj") & ".gif?" & GB_STU & """ class=""tx1416"" onClick=""" & btn4c & """ onMouseOver=""if(SubmitFlg!=0){this.focus()};nvbov(this)"" onMouseOut=""nvbot(this)"">" & btn4 & "</td>" & vbCrLf
				End if
			End If

			If btn5 <> "" Then
				HttpL2 = HttpL2 & "					<td width=""6"" height=""30"" background=""" & HomeAliasSL & "images/nvbar_ar_go.gif?" & GB_STU & """ class=""tx1214"">&nbsp;</td>" & vbCrLf
				HttpL2 = HttpL2 & "					<td width=""160"" height=""25"" align=""center"" background=""" & HomeAliasSL & "images/nvbtn_in_" & Session(HomeAlias & "GyosyuColorObj") & "160.gif?" & GB_STU & """ valign=""" & valign & """ background=""" & HomeAliasSL & "images/nvbtn_in_" & Session(HomeAlias & "GyosyuColorObj") & ".gif?" & GB_STU & """ class=""tx1416"" onClick=""" & btn5c & """ onMouseOver=""if(SubmitFlg!=0){this.focus()};nvbov(this)"" onMouseOut=""nvbot(this)"">" & btn5 & "</td>" & vbCrLf
			End If

			HttpL2 = HttpL2 & "					<td height=""5""><img src=""" & HomeAliasSL & "images/spacer.gif?" & GB_STU & """ height=""5""></td>" & vbCrLf
			HttpL2 = HttpL2 & "				</tr>" & vbCrLf
			HttpL2 = HttpL2 & "				<tr> " & vbCrLf
			HttpL2 = HttpL2 & "					<td height=""5"" colspan=""3""><img src=""" & HomeAliasSL & "images/spacer.gif?" & GB_STU & """ height=""5""></td>" & vbCrLf

			If btn1 <> "" And (btn2 <> "" Or btn3 <> "" Or btn4 <> "" Or btn5 <> "") Then
				HttpL2 = HttpL2 & "					<td height=""5""><img src=""" & HomeAliasSL & "images/spacer.gif?" & GB_STU & """ height=""5""></td>" & vbCrLf
			ElseIf btn1 <> "" Then
				HttpL2 = HttpL2 & "					<td height=""5""><img src=""" & HomeAliasSL & "images/nvbtn_ind_" & Session(HomeAlias & "GyosyuColorObj") & ".gif?" & GB_STU & """ height=""5""></td>" & vbCrLf
			End If

			If btn2 <> "" And (btn3 <> "" Or btn4 <> "" Or btn5 <> "") Then
				HttpL2 = HttpL2 & "					<td height=""5""><img src=""" & HomeAliasSL & "images/spacer.gif?" & GB_STU & """ height=""5""></td>" & vbCrLf
				HttpL2 = HttpL2 & "					<td height=""5""><img src=""" & HomeAliasSL & "images/spacer.gif?" & GB_STU & """ height=""5""></td>" & vbCrLf
			ElseIf btn2 <> "" Then
				HttpL2 = HttpL2 & "					<td height=""5""><img src=""" & HomeAliasSL & "images/spacer.gif?" & GB_STU & """ height=""5""></td>" & vbCrLf
				HttpL2 = HttpL2 & "					<td height=""5""><img src=""" & HomeAliasSL & "images/nvbtn_ind_" & Session(HomeAlias & "GyosyuColorObj") & ".gif?" & GB_STU & """ height=""5""></td>" & vbCrLf
			End If

			If btn3 <> "" And (btn4 <> "" Or btn5 <> "") Then
				HttpL2 = HttpL2 & "					<td height=""5""><img src=""" & HomeAliasSL & "images/spacer.gif?" & GB_STU & """ height=""5""></td>" & vbCrLf
				HttpL2 = HttpL2 & "					<td height=""5""><img src=""" & HomeAliasSL & "images/spacer.gif?" & GB_STU & """ height=""5""></td>" & vbCrLf
			ElseIf btn3 <> "" Then
				HttpL2 = HttpL2 & "					<td height=""5""><img src=""" & HomeAliasSL & "images/spacer.gif?" & GB_STU & """ height=""5""></td>" & vbCrLf
				HttpL2 = HttpL2 & "					<td height=""5""><img src=""" & HomeAliasSL & "images/nvbtn_ind_" & Session(HomeAlias & "GyosyuColorObj") & ".gif?" & GB_STU & """ height=""5""></td>" & vbCrLf
			End If

			If btn4 <> "" And (btn5 <> "") Then
				HttpL2 = HttpL2 & "					<td height=""5""><img src=""" & HomeAliasSL & "images/spacer.gif?" & GB_STU & """ height=""5""></td>" & vbCrLf
				HttpL2 = HttpL2 & "					<td height=""5""><img src=""" & HomeAliasSL & "images/spacer.gif?" & GB_STU & """ height=""5""></td>" & vbCrLf
			ElseIf btn4 <> "" Then
				HttpL2 = HttpL2 & "					<td height=""5""><img src=""" & HomeAliasSL & "images/spacer.gif?" & GB_STU & """ height=""5""></td>" & vbCrLf
				HttpL2 = HttpL2 & "					<td height=""5""><img src=""" & HomeAliasSL & "images/nvbtn_ind_" & Session(HomeAlias & "GyosyuColorObj") & ".gif?" & GB_STU & """ height=""5""></td>" & vbCrLf
			End If

			If btn5 <> "" Then
				HttpL2 = HttpL2 & "					<td height=""5""><img src=""" & HomeAliasSL & "images/spacer.gif?" & GB_STU & """ height=""5""></td>" & vbCrLf
				HttpL2 = HttpL2 & "					<td height=""5""><img src=""" & HomeAliasSL & "images/nvbtn_ind_" & Session(HomeAlias & "GyosyuColorObj") & "160.gif?" & GB_STU & """ height=""5""></td>" & vbCrLf
			End If
			HttpL2 = HttpL2 & "					<td height=""5""><img src=""" & HomeAliasSL & "images/spacer.gif?" & GB_STU & """ height=""5""></td>" & vbCrLf
			HttpL2 = HttpL2 & "				</tr>" & vbCrLf
			HttpL2 = HttpL2 & "			</table>" & vbCrLf
			HttpL2 = HttpL2 & "	<span class=""tx1416"" id=""sjpopupmenu"" style=""display:block;""></span>" & vbCrLf	'ポップアップメニュー挿入(070218小野)
			HttpL2 = HttpL2 & "	</div>" & vbCrLf
		End If

	End Function


	'※HttpL3_1にボタンを追加するための変数(210107小野)
	Dim HttpL3_1_btn6
	Dim HttpL3_1_btn6c
	Dim HttpL3_1_btn7
	Dim HttpL3_1_btn7c
	Dim HttpL3_1_btn8
	Dim HttpL3_1_btn8c
	Dim HttpL3_1_btn9
	Dim HttpL3_1_btn9c
	Dim HttpL3_1_btn0
	Dim HttpL3_1_btn0c
	HttpL3_1_btn6 = ""
	HttpL3_1_btn6c = ""
	HttpL3_1_btn7 = ""
	HttpL3_1_btn7c = ""
	HttpL3_1_btn8 = ""
	HttpL3_1_btn8c = ""
	HttpL3_1_btn9 = ""
	HttpL3_1_btn9c = ""
	HttpL3_1_btn0 = ""
	HttpL3_1_btn0c = ""
	'※HttpL3_1にボタンを追加するための変数代入(210107小野)
	Sub HttpL3_1_AddBtn(btn6,btn6c, btn7, btn7c, btn8, btn8c, btn9, btn9c, btn0, btn0c)
		HttpL3_1_btn6 = btn6
		HttpL3_1_btn6c = btn6c
		HttpL3_1_btn7 = btn7
		HttpL3_1_btn7c = btn7c
		HttpL3_1_btn8 = btn8
		HttpL3_1_btn8c = btn8c
		HttpL3_1_btn9 = btn9
		HttpL3_1_btn9c = btn9c
		HttpL3_1_btn0 = btn0
		HttpL3_1_btn0c = btn0c
	End Sub


	Function HttpL3_1(btn1,btn1c, btn2, btn2c, btn3, btn3c, btn4, btn4c, btn5, btn5c)
		'使えないクエリ文字列を入れ替える(090420小野)
		btn1c = QueryStringIrekae(btn1c)
		btn2c = QueryStringIrekae(btn2c)
		btn3c = QueryStringIrekae(btn3c)
		btn4c = QueryStringIrekae(btn4c)
		btn5c = QueryStringIrekae(btn5c)

		HttpL3_1 = ""
		HttpL3_1 = HttpL3_1 & "<div id=""L3_1"" style=""position:absolute; visibility: hidden; left: 0px; top: 0px;"">" & vbCrLf
		HttpL3_1 = HttpL3_1 & "	<table height=""30"" border=""0"" cellpadding=""0"" cellspacing=""0"">" & vbCrLf
		HttpL3_1 = HttpL3_1 & "		<tr align=""center"" valign=""middle""> " & vbCrLf
		If btn1 <> "" Then
			HttpL3_1 = HttpL3_1 & mnbtn(btn1, btn1c)
'			HttpL3_1 = HttpL3_1 & "			<td width=""60"">" & vbCrLf
'			HttpL3_1 = HttpL3_1 & "				<table width=""60"" border=""0"" cellpadding=""0"" cellspacing=""0"">" & vbCrLf
'			HttpL3_1 = HttpL3_1 & "					<tr>" & vbCrLf
'			HttpL3_1 = HttpL3_1 & "						<td width=""5"" height=""31""><img src=""" & HomeAliasSL & "images/mwbtn_02_l.gif?" & GB_STU & """ width=""5"" height=""31""></td>" & vbCrLf
'			HttpL3_1 = HttpL3_1 & "						<td width=""3"" height=""31""><img src=""" & HomeAliasSL & "images/mwbtn_02_c.gif?" & GB_STU & """ width=""3"" height=""31""></td>" & vbCrLf
'			HttpL3_1 = HttpL3_1 & "						<td nowrap height=""31"" align=""center"" background=""" & HomeAliasSL & "images/mwbtn_02_c.gif?" & GB_STU & """ class=""tbtn3"" onClick=""SubmitFlg=0;" & btn1c & """ onMouseOver=""if(SubmitFlg!=0){this.focus();}"">" & btn1 & "</td>" & vbCrLf
'			HttpL3_1 = HttpL3_1 & "						<td width=""3"" height=""31""><img src=""" & HomeAliasSL & "images/mwbtn_02_c.gif?" & GB_STU & """ width=""3"" height=""31""></td>" & vbCrLf
'			HttpL3_1 = HttpL3_1 & "						<td width=""5"" height=""31""><img src=""" & HomeAliasSL & "images/mwbtn_02_r.gif?" & GB_STU & """ width=""5"" height=""31""></td>" & vbCrLf
'			HttpL3_1 = HttpL3_1 & "					</tr>" & vbCrLf
'			HttpL3_1 = HttpL3_1 & "				</table>" & vbCrLf
'			HttpL3_1 = HttpL3_1 & "			</td>" & vbCrLf
'			HttpL3_1 = HttpL3_1 & "			<td width=""5"" height=""30"">&nbsp;</td>" & vbCrLf
		End If
		If btn2 <> "" Then
			HttpL3_1 = HttpL3_1 & mnbtn(btn2, btn2c)
'			HttpL3_1 = HttpL3_1 & "			<td width=""60"">" & vbCrLf
'			HttpL3_1 = HttpL3_1 & "				<table width=""60"" border=""0"" cellpadding=""0"" cellspacing=""0"">" & vbCrLf
'			HttpL3_1 = HttpL3_1 & "					<tr>" & vbCrLf
'			HttpL3_1 = HttpL3_1 & "						<td width=""5"" height=""31""><img src=""" & HomeAliasSL & "images/mwbtn_02_l.gif?" & GB_STU & """ width=""5"" height=""31""></td>" & vbCrLf
'			HttpL3_1 = HttpL3_1 & "						<td width=""3"" height=""31""><img src=""" & HomeAliasSL & "images/mwbtn_02_c.gif?" & GB_STU & """ width=""3"" height=""31""></td>" & vbCrLf
'			HttpL3_1 = HttpL3_1 & "						<td nowrap height=""31"" align=""center"" background=""" & HomeAliasSL & "images/mwbtn_02_c.gif?" & GB_STU & """ class=""tbtn3"" onClick=""" & btn2c & """ onMouseOver=""this.focus();"">" & btn2 & "</td>" & vbCrLf
'			HttpL3_1 = HttpL3_1 & "						<td width=""3"" height=""31""><img src=""" & HomeAliasSL & "images/mwbtn_02_c.gif?" & GB_STU & """ width=""3"" height=""31""></td>" & vbCrLf
'			HttpL3_1 = HttpL3_1 & "						<td width=""5"" height=""31""><img src=""" & HomeAliasSL & "images/mwbtn_02_r.gif?" & GB_STU & """ width=""5"" height=""31""></td>" & vbCrLf
'			HttpL3_1 = HttpL3_1 & "					</tr>" & vbCrLf
'			HttpL3_1 = HttpL3_1 & "				</table>" & vbCrLf
'			HttpL3_1 = HttpL3_1 & "			</td>" & vbCrLf
'			HttpL3_1 = HttpL3_1 & "			<td width=""5"" height=""30"">&nbsp;</td>" & vbCrLf
		End If
		If btn3 <> "" Then
			HttpL3_1 = HttpL3_1 & mnbtn(btn3, btn3c)
'			HttpL3_1 = HttpL3_1 & "			<td width=""60"">" & vbCrLf
'			HttpL3_1 = HttpL3_1 & "				<table width=""60"" border=""0"" cellpadding=""0"" cellspacing=""0"">" & vbCrLf
'			HttpL3_1 = HttpL3_1 & "					<tr>" & vbCrLf
'			HttpL3_1 = HttpL3_1 & "						<td width=""5"" height=""31""><img src=""" & HomeAliasSL & "images/mwbtn_02_l.gif?" & GB_STU & """ width=""5"" height=""31""></td>" & vbCrLf
'			HttpL3_1 = HttpL3_1 & "						<td width=""3"" height=""31""><img src=""" & HomeAliasSL & "images/mwbtn_02_c.gif?" & GB_STU & """ width=""3"" height=""31""></td>" & vbCrLf
'			HttpL3_1 = HttpL3_1 & "						<td nowrap height=""31"" align=""center"" background=""" & HomeAliasSL & "images/mwbtn_02_c.gif?" & GB_STU & """ class=""tbtn3"" onClick=""" & btn3c & """ onMouseOver=""this.focus();"">" & btn3 & "</td>" & vbCrLf
'			HttpL3_1 = HttpL3_1 & "						<td width=""3"" height=""31""><img src=""" & HomeAliasSL & "images/mwbtn_02_c.gif?" & GB_STU & """ width=""3"" height=""31""></td>" & vbCrLf
'			HttpL3_1 = HttpL3_1 & "						<td width=""5"" height=""31""><img src=""" & HomeAliasSL & "images/mwbtn_02_r.gif?" & GB_STU & """ width=""5"" height=""31""></td>" & vbCrLf
'			HttpL3_1 = HttpL3_1 & "					</tr>" & vbCrLf
'			HttpL3_1 = HttpL3_1 & "				</table>" & vbCrLf
'			HttpL3_1 = HttpL3_1 & "			</td>" & vbCrLf
'			HttpL3_1 = HttpL3_1 & "			<td width=""5"" height=""30"">&nbsp;</td>" & vbCrLf
		End If
		If btn4 <> "" Then
			HttpL3_1 = HttpL3_1 & mnbtn(btn4, btn4c)
'			HttpL3_1 = HttpL3_1 & "			<td width=""60"">" & vbCrLf
'			HttpL3_1 = HttpL3_1 & "				<table width=""60"" border=""0"" cellpadding=""0"" cellspacing=""0"">" & vbCrLf
'			HttpL3_1 = HttpL3_1 & "					<tr>" & vbCrLf
'			HttpL3_1 = HttpL3_1 & "						<td width=""5"" height=""31""><img src=""" & HomeAliasSL & "images/mwbtn_02_l.gif?" & GB_STU & """ width=""5"" height=""31""></td>" & vbCrLf
'			HttpL3_1 = HttpL3_1 & "						<td width=""3"" height=""31""><img src=""" & HomeAliasSL & "images/mwbtn_02_c.gif?" & GB_STU & """ width=""3"" height=""31""></td>" & vbCrLf
'			HttpL3_1 = HttpL3_1 & "						<td nowrap height=""31"" align=""center"" background=""" & HomeAliasSL & "images/mwbtn_02_c.gif?" & GB_STU & """ class=""tbtn3"" onClick=""" & btn4c & """ onMouseOver=""this.focus();"">" & btn4 & "</td>" & vbCrLf
'			HttpL3_1 = HttpL3_1 & "						<td width=""3"" height=""31""><img src=""" & HomeAliasSL & "images/mwbtn_02_c.gif?" & GB_STU & """ width=""3"" height=""31""></td>" & vbCrLf
'			HttpL3_1 = HttpL3_1 & "						<td width=""5"" height=""31""><img src=""" & HomeAliasSL & "images/mwbtn_02_r.gif?" & GB_STU & """ width=""5"" height=""31""></td>" & vbCrLf
'			HttpL3_1 = HttpL3_1 & "					</tr>" & vbCrLf
'			HttpL3_1 = HttpL3_1 & "				</table>" & vbCrLf
'			HttpL3_1 = HttpL3_1 & "			</td>" & vbCrLf
'			HttpL3_1 = HttpL3_1 & "			<td width=""5"" height=""30"">&nbsp;</td>" & vbCrLf
		End If
		If btn5 <> "" Then
			HttpL3_1 = HttpL3_1 & mnbtn(btn5, btn5c)
'			HttpL3_1 = HttpL3_1 & "			<td width=""60"">" & vbCrLf
'			HttpL3_1 = HttpL3_1 & "				<table width=""60"" border=""0"" cellpadding=""0"" cellspacing=""0"">" & vbCrLf
'			HttpL3_1 = HttpL3_1 & "					<tr>" & vbCrLf
'			HttpL3_1 = HttpL3_1 & "						<td width=""5"" height=""31""><img src=""" & HomeAliasSL & "images/mwbtn_02_l.gif?" & GB_STU & """ width=""5"" height=""31""></td>" & vbCrLf
'			HttpL3_1 = HttpL3_1 & "						<td width=""3"" height=""31""><img src=""" & HomeAliasSL & "images/mwbtn_02_c.gif?" & GB_STU & """ width=""3"" height=""31""></td>" & vbCrLf
'			HttpL3_1 = HttpL3_1 & "						<td nowrap height=""31"" align=""center"" background=""" & HomeAliasSL & "images/mwbtn_02_c.gif?" & GB_STU & """ class=""tbtn3"" onClick=""" & btn5c & """ onMouseOver=""this.focus();"">" & btn5 & "</td>" & vbCrLf
'			HttpL3_1 = HttpL3_1 & "						<td width=""3"" height=""31""><img src=""" & HomeAliasSL & "images/mwbtn_02_c.gif?" & GB_STU & """ width=""3"" height=""31""></td>" & vbCrLf
'			HttpL3_1 = HttpL3_1 & "						<td width=""5"" height=""31""><img src=""" & HomeAliasSL & "images/mwbtn_02_r.gif?" & GB_STU & """ width=""5"" height=""31""></td>" & vbCrLf
'			HttpL3_1 = HttpL3_1 & "					</tr>" & vbCrLf
'			HttpL3_1 = HttpL3_1 & "				</table>" & vbCrLf
'			HttpL3_1 = HttpL3_1 & "			</td>" & vbCrLf
		End If
		'↓↓↓↓↓↓↓※グローバル変数からボタンを追加(210107小野)↓↓↓↓↓↓↓
		If HttpL3_1_btn6 <> "" Then
			HttpL3_1 = HttpL3_1 & mnbtn(HttpL3_1_btn6, HttpL3_1_btn6c)
		End If
		If HttpL3_1_btn7 <> "" Then
			HttpL3_1 = HttpL3_1 & mnbtn(HttpL3_1_btn7, HttpL3_1_btn7c)
		End If
		If HttpL3_1_btn8 <> "" Then
			HttpL3_1 = HttpL3_1 & mnbtn(HttpL3_1_btn8, HttpL3_1_btn8c)
		End If
		If HttpL3_1_btn9 <> "" Then
			HttpL3_1 = HttpL3_1 & mnbtn(HttpL3_1_btn9, HttpL3_1_btn9c)
		End If
		If HttpL3_1_btn0 <> "" Then
			HttpL3_1 = HttpL3_1 & mnbtn(HttpL3_1_btn0, HttpL3_1_btn0c)
		End If
		'↑↑↑↑↑↑↑※グローバル変数からボタンを追加(210107小野)↑↑↑↑↑↑↑
		HttpL3_1 = HttpL3_1 & "			 <td><img src=""" & HomeAliasSL & "images/spacer.gif?" & GB_STU & """ width=""1"" height=""1""></td>" & vbCrLf
		HttpL3_1 = HttpL3_1 & "		</tr>" & vbCrLf
		HttpL3_1 = HttpL3_1 & "	</table>" & vbCrLf

		HttpL3_1 = HttpL3_1 & "</div>" & vbCrLf
	End Function


	'mnbtn_02のボタンカラーをトグルする
	Function mnbtn(Str, Val)
		Dim BtnHL
		BtnHL = ""
		If InStr(Str,"保存") > 0 Or InStr(Str,"実行") > 0 Or Str = "送信" Or Str = "発行" Or Str = "依頼" Or Str = "発信" Or Str = "入金" Or Str = "出金" Or Str = "入庫" Or Str = "出庫" Or Str = "通知" Or Str = "ダウンロード" Or InStr(Str,"開設") > 0 Then
			BtnHL = "g"
		End If
		Dim BtnCls
		Dim BtnWidth
		BtnCls = "tbtn3"
		BtnWidth = "60" '最低サイズ
		If Str = "借行挿入" Or Str = "借行削除" Or Str = "借行↑" Or Str = "借行↓" Or Str = "貸行挿入" Or Str = "貸行削除" Or Str = "貸行↑" Or Str = "貸行↓" Then
			BtnCls = "tbtn2"
			BtnWidth = "52" '最低サイズ
		End If
		mnbtn = ""
		mnbtn = mnbtn & "			<td width=""" & BtnWidth & """>" & vbCrLf
		mnbtn = mnbtn & "				<table width=""" & BtnWidth & """ border=""0"" cellpadding=""0"" cellspacing=""0"">" & vbCrLf
		mnbtn = mnbtn & "					<tr>" & vbCrLf
		mnbtn = mnbtn & "						<td width=""5"" height=""31"" onClick=""" & Val & """ onMouseOver=""this.focus();"" style=""background:url('" & HomeAliasSL & "images/mwbtn_02_" & BtnHL & "l.gif?" & GB_STU & "') no-repeat right center;cursor:pointer;""><div style=""height:1px;width:4px;""></div></td>" & vbCrLf
		mnbtn = mnbtn & "						<td nowrap height=""31"" align=""center"" background=""" & HomeAliasSL & "images/mwbtn_02_" & BtnHL & "c.gif?" & GB_STU & """ class=""" & BtnCls & """ style=""padding:0px 2px 0px 2px;"" onClick=""" & Val & """ onMouseOver=""this.focus();"">" & Str & "</td>" & vbCrLf
		mnbtn = mnbtn & "						<td width=""5"" height=""31"" onClick=""" & Val & """ onMouseOver=""this.focus();"" style=""background:url('" & HomeAliasSL & "images/mwbtn_02_" & BtnHL & "r.gif?" & GB_STU & "') no-repeat left center;cursor:pointer;""><div style=""height:1px;width:4px;""></div></td>" & vbCrLf
		mnbtn = mnbtn & "					</tr>" & vbCrLf
		mnbtn = mnbtn & "				</table>" & vbCrLf
		mnbtn = mnbtn & "			</td>" & vbCrLf
	End Function


	Function HttpL3_2(btn1, btn1c, btn2, btn2c, btn3, btn3c, btn4, btn4c, btn5, btn5c)
		'使えないクエリ文字列を入れ替える(090420小野)
		btn1c = QueryStringIrekae(btn1c)
		btn2c = QueryStringIrekae(btn2c)
		btn3c = QueryStringIrekae(btn3c)
		btn4c = QueryStringIrekae(btn4c)
		btn5c = QueryStringIrekae(btn5c)

		'サイバー会計モードで業種確定時は一部の色を変える
		Dim TmpColor
		Dim TmpColorObj
		TmpColor = Session(HomeAlias & "GyosyuColor")
		TmpColorObj = Session(HomeAlias & "GyosyuColorObj")
		If PackageMode = 1 And Session(HomeAlias & "GyosyuColorObj") <> "" And GB_Admin < 1 Then
			TmpColor = "#275F00"
			TmpColor = "#2A6500"
			TmpColor = "#29A37A"
			TmpColor = "#248F6B"
			TmpColor = "#248F8B"
			TmpColor = "#007777"
			TmpColorObj = "ca"
		End If

		HttpL3_2 = ""
		HttpL3_2 = HttpL3_2 & "<div id=""L3_2"" style=""position:absolute; visibility: hidden; left: 0px; top: 60px;"">" & vbCrLf

		Dim Query, Content
		Dim RiyoMailKubun
		RiyoMailKubun = GetEnshuParam(EnshuCD, "メール利用")
		'生徒単位でのメール送信拒否設定を取得(091013小野)
		Dim MailSendKyohi
		Query = "exec SPV演習履歴取得 '" & GB_SystemCD & "', '" & EnshuCD & "', '" & GB_GakuseiNo & "'"
		Set Content = OpenQuery(Query)
		If Not(Content.BOF Or Content.EOF) Then
			MailSendKyohi = "" & Content.Fields("メール送信拒否")
		End If

		'FAX利用可否判定
		Dim FAXRiyo
		Query = "exec SPMシステム情報取得 '" & GB_SystemCD & "'"
		Set Content = OpenQuery(Query)
		If Not(Content.BOF Or Content.EOF) Then
			FAXRiyo = "" & Content.Fields("FAX利用")
		End If

		If btn2 = "発信文書" And btn3 = "メール作成" Then
			HttpL3_2 = HttpL3_2 & "						<table width=""830"" height=""29"" border=""0"" cellpadding=""0"" cellspacing=""0"">" & vbCrLf
			HttpL3_2 = HttpL3_2 & "							<tr align=""center"" valign=""middle""> " & vbCrLf
			If PackageMode = 1 Then
				'サイバー会計では受信文書・発信文書タブを表示しない
			Else
				If btn1c <> "" Then
					HttpL3_2 = HttpL3_2 & "								<td width=""120"" background=""" & HomeAliasSL & "images/mltab_dn.gif?" & GB_STU & """ class=""tbtn3"" onClick=""" & btn1c & """><img src=""" & HomeAliasSL & "images/mltab_icon_im.gif?" & GB_STU & """ width=""15"" height=""17"" align=""absmiddle""> " & vbCrLf
					HttpL3_2 = HttpL3_2 & "									" & btn1 & "</td>" & vbCrLf
				Else
					HttpL3_2 = HttpL3_2 & "								<td width=""120"" background=""" & HomeAliasSL & "images/mltab_up.gif?" & GB_STU & """ class=""tx1416""><img src=""" & HomeAliasSL & "images/mltab_icon_im.gif?" & GB_STU & """ width=""15"" height=""17"" align=""absmiddle""> " & vbCrLf
					HttpL3_2 = HttpL3_2 & "									" & btn1 & "</td>" & vbCrLf
				End If
				If btn2c <> "" Then
					HttpL3_2 = HttpL3_2 & "								<td width=""120"" background=""" & HomeAliasSL & "images/mltab_dn.gif?" & GB_STU & """ class=""tbtn3"" onClick=""" & btn2c & """><img src=""" & HomeAliasSL & "images/mltab_icon_om.gif?" & GB_STU & """ width=""15"" height=""17"" align=""absmiddle""> " & vbCrLf
					HttpL3_2 = HttpL3_2 & "									" & btn2 & "</td>" & vbCrLf
				Else
					HttpL3_2 = HttpL3_2 & "								<td width=""120"" background=""" & HomeAliasSL & "images/mltab_up.gif?" & GB_STU & """ class=""tx1416""><img src=""" & HomeAliasSL & "images/mltab_icon_om.gif?" & GB_STU & """ width=""15"" height=""17"" align=""absmiddle""> " & vbCrLf
					HttpL3_2 = HttpL3_2 & "									" & btn2 & "</td>" & vbCrLf
				End If
				HttpL3_2 = HttpL3_2 & "										<td width=""30"" class=""tx1214"">&nbsp;</td>" & vbCrLf
			End If
			If RiyoMailKubun = "1" Then
				'生徒単位でメール送信拒否設定されている場合はメール作成ボタンを表示しない(091013小野)
				If MailSendKyohi <> "1" Then
					If btn3c <> "" Then
						HttpL3_2 = HttpL3_2 & "								<td width=""120"" background=""" & HomeAliasSL & "images/mltab_dn.gif?" & GB_STU & """ class=""tbtn3"" onClick=""" & btn3c & """><img src=""" & HomeAliasSL & "images/mltab_icon_new.gif?" & GB_STU & """ width=""15"" height=""18"" align=""absmiddle""> " & vbCrLf
						HttpL3_2 = HttpL3_2 & "									" & btn3 & "</td>" & vbCrLf
					Else
						HttpL3_2 = HttpL3_2 & "								<td width=""120"" background=""" & HomeAliasSL & "images/mltab_up.gif?" & GB_STU & """ class=""tx1416""><img src=""" & HomeAliasSL & "images/mltab_icon_new.gif?" & GB_STU & """ width=""15"" height=""18"" align=""absmiddle""> " & vbCrLf
						HttpL3_2 = HttpL3_2 & "									" & btn3 & "</td>" & vbCrLf
					End If
				End If
				If btn4c <> "" Then
					HttpL3_2 = HttpL3_2 & "								<td width=""120"" background=""" & HomeAliasSL & "images/mltab_dn.gif?" & GB_STU & """ class=""tbtn3"" onClick=""" & btn4c & """><img src=""" & HomeAliasSL & "images/mltab_icon_rcv.gif?" & GB_STU & """ width=""15"" height=""17"" align=""absmiddle""> " & vbCrLf
					HttpL3_2 = HttpL3_2 & "									" & btn4 & "</td>" & vbCrLf
				Else
					HttpL3_2 = HttpL3_2 & "								<td width=""120"" background=""" & HomeAliasSL & "images/mltab_up.gif?" & GB_STU & """ class=""tx1416""><img src=""" & HomeAliasSL & "images/mltab_icon_rcv.gif?" & GB_STU & """ width=""15"" height=""17"" align=""absmiddle""> " & vbCrLf
					HttpL3_2 = HttpL3_2 & "									" & btn4 & "</td>" & vbCrLf
				End If
				If btn5c <> "" Then
					HttpL3_2 = HttpL3_2 & "								<td width=""120"" background=""" & HomeAliasSL & "images/mltab_dn.gif?" & GB_STU & """ class=""tbtn3"" onClick=""" & btn5c & """><img src=""" & HomeAliasSL & "images/mltab_icon_snd.gif?" & GB_STU & """ width=""15"" height=""17"" align=""absmiddle""> " & vbCrLf
					HttpL3_2 = HttpL3_2 & "									" & btn5 & "</td>" & vbCrLf
				Else
					HttpL3_2 = HttpL3_2 & "								<td width=""120"" background=""" & HomeAliasSL & "images/mltab_up.gif?" & GB_STU & """ class=""tx1416""><img src=""" & HomeAliasSL & "images/mltab_icon_snd.gif?" & GB_STU & """ width=""15"" height=""17"" align=""absmiddle""> " & vbCrLf
					HttpL3_2 = HttpL3_2 & "									" & btn5 & "</td>" & vbCrLf
				End If
			End If
			If EnableFAX = 1 And FAXRiyo = "1" Then
				If btn1c <> "" And btn2c <> "" And btn3c <> "" And btn4c <> "" And btn5c <> "" Then
					HttpL3_2 = HttpL3_2 & "								<td width=""120"" background=""" & HomeAliasSL & "images/mltab_up.gif?" & GB_STU & """ class=""tx1416""><img src=""" & HomeAliasSL & "images/mltab_icon_snd.gif?" & GB_STU & """ width=""15"" height=""17"" align=""absmiddle""> " & vbCrLf
					HttpL3_2 = HttpL3_2 & "									FAX送受信</td>" & vbCrLf
				Else
					HttpL3_2 = HttpL3_2 & "								<td width=""120"" background=""" & HomeAliasSL & "images/mltab_dn.gif?" & GB_STU & """ class=""tbtn3"" onClick=""tblbtn('" & HomeAliasSL & "user/bk/jyuhasshinbunsyownd/fn_fax"
					'生徒単位でメール送信拒否設定されている場合はFAX初期画面の飛び先を変更する(091013小野)
					If MailSendKyohi = "1" Then
						HttpL3_2 = HttpL3_2 & "_ichiran.asp?PageType=RecvFAX&"
					Else
						HttpL3_2 = HttpL3_2 & ".asp?"
					End If
					HttpL3_2 = HttpL3_2 & "RouteType=MailOnly')""><img src=""" & HomeAliasSL & "images/mltab_icon_snd.gif?" & GB_STU & """ width=""15"" height=""17"" align=""absmiddle""> " & vbCrLf
					HttpL3_2 = HttpL3_2 & "									FAX送受信</td>" & vbCrLf
				End If
			End If


			HttpL3_2 = HttpL3_2 & "										<td>&nbsp;</td>" & vbCrLf
			HttpL3_2 = HttpL3_2 & "							</tr>" & vbCrLf
			HttpL3_2 = HttpL3_2 & "						</table>" & vbCrLf
		Else
			HttpL3_2 = HttpL3_2 & "	<table height=""26"" border=""0"" cellpadding=""0"" cellspacing=""0"">" & vbCrLf
			HttpL3_2 = HttpL3_2 & "		<tr align=""center"" valign=""middle""> " & vbCrLf
			If btn1 <> "" Then
				HttpL3_2 = HttpL3_2 & "			<td width=""60"">" & vbCrLf
				HttpL3_2 = HttpL3_2 & "				<table width=""60"" border=""0"" cellpadding=""0"" cellspacing=""0"">" & vbCrLf
				HttpL3_2 = HttpL3_2 & "					<tr>" & vbCrLf
				HttpL3_2 = HttpL3_2 & "						<td width=""5"" height=""26"" onClick=""" & btn1c & """ style=""background:url('" & HomeAliasSL & "images/mwbtn_01_l" & TmpColorObj & ".gif?" & GB_STU & "') no-repeat right center;cursor:pointer;""><div style=""height:1px;width:4px;""></div></td>" & vbCrLf
				HttpL3_2 = HttpL3_2 & "						<td nowrap height=""26"" align=""center"" background=""" & HomeAliasSL & "images/mwbtn_01_c" & TmpColorObj & ".gif?" & GB_STU & """ class=""tbtn3"" style=""padding:0px 2px 0px 2px;"" onClick=""" & btn1c & """>" & btn1 & "</td>" & vbCrLf
				HttpL3_2 = HttpL3_2 & "						<td width=""5"" height=""26"" onClick=""" & btn1c & """ style=""background:url('" & HomeAliasSL & "images/mwbtn_01_r" & TmpColorObj & ".gif?" & GB_STU & "') no-repeat left center;cursor:pointer;""><div style=""height:1px;width:4px;""></div></td>" & vbCrLf
				HttpL3_2 = HttpL3_2 & "					</tr>" & vbCrLf
				HttpL3_2 = HttpL3_2 & "				</table>" & vbCrLf
				HttpL3_2 = HttpL3_2 & "			</td>" & vbCrLf
				HttpL3_2 = HttpL3_2 & "			<td width=""5"" height=""26"">&nbsp;</td>" & vbCrLf
			End If
			If btn2 <> "" Then
				HttpL3_2 = HttpL3_2 & "			<td width=""60"">" & vbCrLf
				HttpL3_2 = HttpL3_2 & "				<table width=""60"" border=""0"" cellpadding=""0"" cellspacing=""0"">" & vbCrLf
				HttpL3_2 = HttpL3_2 & "					<tr>" & vbCrLf
				HttpL3_2 = HttpL3_2 & "						<td width=""5"" height=""26"" onClick=""" & btn2c & """ style=""background:url('" & HomeAliasSL & "images/mwbtn_01_l" & TmpColorObj & ".gif?" & GB_STU & "') no-repeat right center;cursor:pointer;""><div style=""height:1px;width:4px;""></div></td>" & vbCrLf
				HttpL3_2 = HttpL3_2 & "						<td nowrap height=""26"" align=""center"" background=""" & HomeAliasSL & "images/mwbtn_01_c" & TmpColorObj & ".gif?" & GB_STU & """ class=""tbtn3"" style=""padding:0px 2px 0px 2px;"" onClick=""" & btn2c & """>" & btn2 & "</td>" & vbCrLf
				HttpL3_2 = HttpL3_2 & "						<td width=""5"" height=""26"" onClick=""" & btn2c & """ style=""background:url('" & HomeAliasSL & "images/mwbtn_01_r" & TmpColorObj & ".gif?" & GB_STU & "') no-repeat left center;cursor:pointer;""><div style=""height:1px;width:4px;""></div></td>" & vbCrLf
				HttpL3_2 = HttpL3_2 & "					</tr>" & vbCrLf
				HttpL3_2 = HttpL3_2 & "				</table>" & vbCrLf
				HttpL3_2 = HttpL3_2 & "			</td>" & vbCrLf
				HttpL3_2 = HttpL3_2 & "			<td width=""5"" height=""26"">&nbsp;</td>" & vbCrLf
			End If
			If btn3 <> "" Then
				HttpL3_2 = HttpL3_2 & "			<td width=""60"">" & vbCrLf
				HttpL3_2 = HttpL3_2 & "				<table width=""60"" border=""0"" cellpadding=""0"" cellspacing=""0"">" & vbCrLf
				HttpL3_2 = HttpL3_2 & "					<tr>" & vbCrLf
				HttpL3_2 = HttpL3_2 & "						<td width=""5"" height=""26"" onClick=""" & btn3c & """ style=""background:url('" & HomeAliasSL & "images/mwbtn_01_l" & TmpColorObj & ".gif?" & GB_STU & "') no-repeat right center;cursor:pointer;""><div style=""height:1px;width:4px;""></div></td>" & vbCrLf
				HttpL3_2 = HttpL3_2 & "						<td nowrap height=""26"" align=""center"" background=""" & HomeAliasSL & "images/mwbtn_01_c" & TmpColorObj & ".gif?" & GB_STU & """ class=""tbtn3"" onClick=""" & btn3c & """>" & btn3 & "</td>" & vbCrLf
				HttpL3_2 = HttpL3_2 & "						<td width=""5"" height=""26"" onClick=""" & btn3c & """ style=""background:url('" & HomeAliasSL & "images/mwbtn_01_r" & TmpColorObj & ".gif?" & GB_STU & "') no-repeat left center;cursor:pointer;""><div style=""height:1px;width:4px;""></div></td>" & vbCrLf
				HttpL3_2 = HttpL3_2 & "					</tr>" & vbCrLf
				HttpL3_2 = HttpL3_2 & "				</table>" & vbCrLf
				HttpL3_2 = HttpL3_2 & "			</td>" & vbCrLf
				HttpL3_2 = HttpL3_2 & "			<td width=""5"" height=""26"">&nbsp;</td>" & vbCrLf
			End If
			If btn4 <> "" Then
				HttpL3_2 = HttpL3_2 & "			<td width=""60"">" & vbCrLf
				HttpL3_2 = HttpL3_2 & "				<table width=""60"" border=""0"" cellpadding=""0"" cellspacing=""0"">" & vbCrLf
				HttpL3_2 = HttpL3_2 & "					<tr>" & vbCrLf
				HttpL3_2 = HttpL3_2 & "						<td width=""5"" height=""26"" onClick=""" & btn4c & """ style=""background:url('" & HomeAliasSL & "images/mwbtn_01_l" & TmpColorObj & ".gif?" & GB_STU & "') no-repeat right center;cursor:pointer;""><div style=""height:1px;width:4px;""></div></td>" & vbCrLf
				HttpL3_2 = HttpL3_2 & "						<td nowrap height=""26"" align=""center"" background=""" & HomeAliasSL & "images/mwbtn_01_c" & TmpColorObj & ".gif?" & GB_STU & """ class=""tbtn3"" onClick=""" & btn4c & """>" & btn4 & "</td>" & vbCrLf
				HttpL3_2 = HttpL3_2 & "						<td width=""5"" height=""26"" onClick=""" & btn4c & """ style=""background:url('" & HomeAliasSL & "images/mwbtn_01_r" & TmpColorObj & ".gif?" & GB_STU & "') no-repeat left center;cursor:pointer;""><div style=""height:1px;width:4px;""></div></td>" & vbCrLf
				HttpL3_2 = HttpL3_2 & "					</tr>" & vbCrLf
				HttpL3_2 = HttpL3_2 & "				</table>" & vbCrLf
				HttpL3_2 = HttpL3_2 & "			</td>" & vbCrLf
				HttpL3_2 = HttpL3_2 & "			<td width=""5"" height=""26"">&nbsp;</td>" & vbCrLf
			End If
			If btn5 <> "" Then
				HttpL3_2 = HttpL3_2 & "			<td width=""60"">" & vbCrLf
				HttpL3_2 = HttpL3_2 & "				<table width=""60"" border=""0"" cellpadding=""0"" cellspacing=""0"">" & vbCrLf
				HttpL3_2 = HttpL3_2 & "					<tr>" & vbCrLf
				HttpL3_2 = HttpL3_2 & "						<td width=""5"" height=""26"" onClick=""" & btn5c & """ style=""background:url('" & HomeAliasSL & "images/mwbtn_01_l" & TmpColorObj & ".gif?" & GB_STU & "') no-repeat right center;cursor:pointer;""><div style=""height:1px;width:4px;""></div></td>" & vbCrLf
				HttpL3_2 = HttpL3_2 & "						<td nowrap height=""26"" align=""center"" background=""" & HomeAliasSL & "images/mwbtn_01_c" & TmpColorObj & ".gif?" & GB_STU & """ class=""tbtn3"" onClick=""" & btn5c & """>" & btn5 & "</td>" & vbCrLf
				HttpL3_2 = HttpL3_2 & "						<td width=""5"" height=""26"" onClick=""" & btn5c & """ style=""background:url('" & HomeAliasSL & "images/mwbtn_01_r" & TmpColorObj & ".gif?" & GB_STU & "') no-repeat left center;cursor:pointer;""><div style=""height:1px;width:4px;""></div></td>" & vbCrLf
				HttpL3_2 = HttpL3_2 & "					</tr>" & vbCrLf
				HttpL3_2 = HttpL3_2 & "				</table>" & vbCrLf
				HttpL3_2 = HttpL3_2 & "			</td>" & vbCrLf
			End If
			HttpL3_2 = HttpL3_2 & "			 <td><img src=""" & HomeAliasSL & "images/spacer.gif?" & GB_STU & """ width=""1"" height=""1""></td>" & vbCrLf
			HttpL3_2 = HttpL3_2 & "		</tr>" & vbCrLf
			HttpL3_2 = HttpL3_2 & "	</table>" & vbCrLf
		End If

		HttpL3_2 = HttpL3_2 & "</div>" & vbCrLf
	End Function



	Function HttpL3_3(btn1, btn1c, btn2, btn2c, btn3, btn3c, btn4, btn4c, btn5, btn5c)
		'使えないクエリ文字列を入れ替える(090420小野)
		btn1c = QueryStringIrekae(btn1c)
		btn2c = QueryStringIrekae(btn2c)
		btn3c = QueryStringIrekae(btn3c)
		btn4c = QueryStringIrekae(btn4c)
		btn5c = QueryStringIrekae(btn5c)

		'サイバー会計モードで業種確定時は一部の色を変える
		Dim TmpColor
		Dim TmpColorObj
		TmpColor = Session(HomeAlias & "GyosyuColor")
		TmpColorObj = Session(HomeAlias & "GyosyuColorObj")
		If PackageMode = 1 And Session(HomeAlias & "GyosyuColorObj") <> "" And GB_Admin < 1 Then
			TmpColor = "#275F00"
			TmpColor = "#2A6500"
			TmpColor = "#29A37A"
			TmpColor = "#248F6B"
			TmpColor = "#248F8B"
			TmpColor = "#007777"
			TmpColorObj = "ca"
		End If

		HttpL3_3 = ""
		HttpL3_3 = HttpL3_3 & "<div id=""L3_2"" style=""position:absolute; visibility: hidden; left: 0px; top: 60px;"">" & vbCrLf

		Dim Query, Content
		Dim RiyoMailKubun
		RiyoMailKubun = GetEnshuParam(EnshuCD, "メール利用")


		If btn2 = "発信文書" Then
			HttpL3_3 = HttpL3_3 & "						<table width=""530"" height=""25"" border=""0"" cellpadding=""0"" cellspacing=""0"">" & vbCrLf
			HttpL3_3 = HttpL3_3 & "							<tr align=""center"" valign=""middle""> " & vbCrLf
			If btn1c <> "" Then
				HttpL3_3 = HttpL3_3 & "								<td width=""100"" background=""" & HomeAliasSL & "images/mltab_dn.gif?" & GB_STU & """ class=""tbtn3"" onClick=""" & btn1c & """><img src=""" & HomeAliasSL & "images/mltab_icon_im.gif?" & GB_STU & """ width=""15"" height=""15"" align=""absmiddle""> " & vbCrLf
				HttpL3_3 = HttpL3_3 & "									" & btn1 & "</td>" & vbCrLf
			Else
				HttpL3_3 = HttpL3_3 & "								<td width=""100"" background=""" & HomeAliasSL & "images/mltab_up.gif?" & GB_STU & """ class=""tx1214""><img src=""" & HomeAliasSL & "images/mltab_icon_im.gif?" & GB_STU & """ width=""15"" height=""15"" align=""absmiddle""> " & vbCrLf
				HttpL3_3 = HttpL3_3 & "									" & btn1 & "</td>" & vbCrLf
			End If
			If btn2c <> "" Then
				HttpL3_3 = HttpL3_3 & "								<td width=""100"" background=""" & HomeAliasSL & "images/mltab_dn.gif?" & GB_STU & """ class=""tbtn3"" onClick=""" & btn2c & """><img src=""" & HomeAliasSL & "images/mltab_icon_om.gif?" & GB_STU & """ width=""15"" height=""15"" align=""absmiddle""> " & vbCrLf
				HttpL3_3 = HttpL3_3 & "									" & btn2 & "</td>" & vbCrLf
			Else
				HttpL3_3 = HttpL3_3 & "								<td width=""100"" background=""" & HomeAliasSL & "images/mltab_up.gif?" & GB_STU & """ class=""tx1214""><img src=""" & HomeAliasSL & "images/mltab_icon_om.gif?" & GB_STU & """ width=""15"" height=""15"" align=""absmiddle""> " & vbCrLf
				HttpL3_3 = HttpL3_3 & "									" & btn2 & "</td>" & vbCrLf
			End If
			HttpL3_3 = HttpL3_3 & "										<td width=""30"" class=""tx1214"">&nbsp;</td>" & vbCrLf
			If RiyoMailKubun = "1" Then
			
			
				'If btn3c <> "" Then
				'	HttpL3_3 = HttpL3_3 & "								<td width=""100"" background=""" & HomeAliasSL & "images/mltab_dn.gif?" & GB_STU & """ class=""tbtn3"" onClick=""" & btn3c & """><img src=""" & HomeAliasSL & "images/mltab_icon_new.gif?" & GB_STU & """ width=""15"" height=""15"" align=""absmiddle""> " & vbCrLf
				'	HttpL3_3 = HttpL3_3 & "									" & btn3 & "</td>" & vbCrLf
				'Else
				'	HttpL3_3 = HttpL3_3 & "								<td width=""100"" background=""" & HomeAliasSL & "images/mltab_up.gif?" & GB_STU & """ class=""tx1214""><img src=""" & HomeAliasSL & "images/mltab_icon_new.gif?" & GB_STU & """ width=""15"" height=""15"" align=""absmiddle""> " & vbCrLf
				'	HttpL3_3 = HttpL3_3 & "									" & btn3 & "</td>" & vbCrLf
				'End If
				
				
				If btn4c <> "" Then
					HttpL3_3 = HttpL3_3 & "								<td width=""100"" background=""" & HomeAliasSL & "images/mltab_dn.gif?" & GB_STU & """ class=""tbtn3"" onClick=""" & btn4c & """><img src=""" & HomeAliasSL & "images/mltab_icon_rcv.gif?" & GB_STU & """ width=""15"" height=""15"" align=""absmiddle""> " & vbCrLf
					HttpL3_3 = HttpL3_3 & "									" & btn4 & "</td>" & vbCrLf
				Else
					HttpL3_3 = HttpL3_3 & "								<td width=""100"" background=""" & HomeAliasSL & "images/mltab_up.gif?" & GB_STU & """ class=""tx1214""><img src=""" & HomeAliasSL & "images/mltab_icon_rcv.gif?" & GB_STU & """ width=""15"" height=""15"" align=""absmiddle""> " & vbCrLf
					HttpL3_3 = HttpL3_3 & "									" & btn4 & "</td>" & vbCrLf
				End If
				If btn5c <> "" Then
					HttpL3_3 = HttpL3_3 & "								<td width=""100"" background=""" & HomeAliasSL & "images/mltab_dn.gif?" & GB_STU & """ class=""tbtn3"" onClick=""" & btn5c & """><img src=""" & HomeAliasSL & "images/mltab_icon_snd.gif?" & GB_STU & """ width=""15"" height=""15"" align=""absmiddle""> " & vbCrLf
					HttpL3_3 = HttpL3_3 & "									" & btn5 & "</td>" & vbCrLf
				Else
					HttpL3_3 = HttpL3_3 & "								<td width=""100"" background=""" & HomeAliasSL & "images/mltab_up.gif?" & GB_STU & """ class=""tx1214""><img src=""" & HomeAliasSL & "images/mltab_icon_snd.gif?" & GB_STU & """ width=""15"" height=""15"" align=""absmiddle""> " & vbCrLf
					HttpL3_3 = HttpL3_3 & "									" & btn5 & "</td>" & vbCrLf
				End If
			End If
			HttpL3_3 = HttpL3_3 & "										<td>&nbsp;</td>" & vbCrLf
			HttpL3_3 = HttpL3_3 & "							</tr>" & vbCrLf
			HttpL3_3 = HttpL3_3 & "						</table>" & vbCrLf
		Else
			HttpL3_3 = HttpL3_3 & "	<table height=""26"" border=""0"" cellpadding=""0"" cellspacing=""0"">" & vbCrLf
			HttpL3_3 = HttpL3_3 & "		<tr align=""center"" valign=""middle""> " & vbCrLf
			If btn1 <> "" Then
				HttpL3_3 = HttpL3_3 & "			<td width=""60"">" & vbCrLf
				HttpL3_3 = HttpL3_3 & "				<table width=""60"" border=""0"" cellpadding=""0"" cellspacing=""0"">" & vbCrLf
				HttpL3_3 = HttpL3_3 & "					<tr>" & vbCrLf
				HttpL3_3 = HttpL3_3 & "						<td width=""5"" height=""26"" style=""background:url('" & HomeAliasSL & "images/mwbtn_01_l" & TmpColorObj & ".gif?" & GB_STU & "') no-repeat right center;""><div style=""height:1px;width:4px;""></div></td>" & vbCrLf
				HttpL3_3 = HttpL3_3 & "						<td nowrap height=""26"" align=""center"" background=""" & HomeAliasSL & "images/mwbtn_01_c" & TmpColorObj & ".gif?" & GB_STU & """ class=""tbtn3"" style=""padding:0px 2px 0px 2px;"" onClick=""" & btn1c & """>" & btn1 & "</td>" & vbCrLf
				HttpL3_3 = HttpL3_3 & "						<td width=""5"" height=""26"" style=""background:url('" & HomeAliasSL & "images/mwbtn_01_r" & TmpColorObj & ".gif?" & GB_STU & "') no-repeat left center;""><div style=""height:1px;width:4px;""></div></td>" & vbCrLf
				HttpL3_3 = HttpL3_3 & "					</tr>" & vbCrLf
				HttpL3_3 = HttpL3_3 & "				</table>" & vbCrLf
				HttpL3_3 = HttpL3_3 & "			</td>" & vbCrLf
				HttpL3_3 = HttpL3_3 & "			<td width=""5"" height=""26"">&nbsp;</td>" & vbCrLf
			End If
			If btn2 <> "" Then
				HttpL3_3 = HttpL3_3 & "			<td width=""60"">" & vbCrLf
				HttpL3_3 = HttpL3_3 & "				<table width=""60"" border=""0"" cellpadding=""0"" cellspacing=""0"">" & vbCrLf
				HttpL3_3 = HttpL3_3 & "					<tr>" & vbCrLf
				HttpL3_3 = HttpL3_3 & "						<td width=""5"" height=""26"" style=""background:url('" & HomeAliasSL & "images/mwbtn_01_l" & TmpColorObj & ".gif?" & GB_STU & "') no-repeat right center;""><div style=""height:1px;width:4px;""></div></td>" & vbCrLf
				HttpL3_3 = HttpL3_3 & "						<td nowrap height=""26"" align=""center"" background=""" & HomeAliasSL & "images/mwbtn_01_c" & TmpColorObj & ".gif?" & GB_STU & """ class=""tbtn3"" style=""padding:0px 2px 0px 2px;"" onClick=""" & btn2c & """>" & btn2 & "</td>" & vbCrLf
				HttpL3_3 = HttpL3_3 & "						<td width=""5"" height=""26"" style=""background:url('" & HomeAliasSL & "images/mwbtn_01_r" & TmpColorObj & ".gif?" & GB_STU & "') no-repeat left center;""><div style=""height:1px;width:4px;""></div></td>" & vbCrLf
				HttpL3_3 = HttpL3_3 & "					</tr>" & vbCrLf
				HttpL3_3 = HttpL3_3 & "				</table>" & vbCrLf
				HttpL3_3 = HttpL3_3 & "			</td>" & vbCrLf
				HttpL3_3 = HttpL3_3 & "			<td width=""5"" height=""26"">&nbsp;</td>" & vbCrLf
			End If
			
			
			'If btn3 <> "" Then
			'	HttpL3_3 = HttpL3_3 & "			<td width=""60"">" & vbCrLf
			'	HttpL3_3 = HttpL3_3 & "				<table width=""60"" border=""0"" cellpadding=""0"" cellspacing=""0"">" & vbCrLf
			'	HttpL3_3 = HttpL3_3 & "					<tr>" & vbCrLf
			'	HttpL3_3 = HttpL3_3 & "						<td width=""5"" height=""26""><img src=""" & HomeAliasSL & "images/mwbtn_01_l" & Session(HomeAlias & "GyosyuColorObj") & ".gif?" & GB_STU & """ width=""5"" height=""26""></td>" & vbCrLf
			'	HttpL3_3 = HttpL3_3 & "						<td nowrap height=""26"" align=""center"" background=""" & HomeAliasSL & "images/mwbtn_01_c" & Session(HomeAlias & "GyosyuColorObj") & ".gif?" & GB_STU & """ class=""tbtn3"" style=""padding:0px 2px 0px 2px;"" onClick=""" & btn3c & """>" & btn3 & "</td>" & vbCrLf
			'	HttpL3_3 = HttpL3_3 & "						<td width=""5"" height=""26""><img src=""" & HomeAliasSL & "images/mwbtn_01_r" & Session(HomeAlias & "GyosyuColorObj") & ".gif?" & GB_STU & """ width=""5"" height=""26""></td>" & vbCrLf
			'	HttpL3_3 = HttpL3_3 & "					</tr>" & vbCrLf
			'	HttpL3_3 = HttpL3_3 & "				</table>" & vbCrLf
			'	HttpL3_3 = HttpL3_3 & "			</td>" & vbCrLf
			'	HttpL3_3 = HttpL3_3 & "			<td width=""5"" height=""26"">&nbsp;</td>" & vbCrLf
			'End If
			
			
			If btn4 <> "" Then
				HttpL3_3 = HttpL3_3 & "			<td width=""60"">" & vbCrLf
				HttpL3_3 = HttpL3_3 & "				<table width=""60"" border=""0"" cellpadding=""0"" cellspacing=""0"">" & vbCrLf
				HttpL3_3 = HttpL3_3 & "					<tr>" & vbCrLf
				HttpL3_3 = HttpL3_3 & "						<td width=""5"" height=""26"" style=""background:url('" & HomeAliasSL & "images/mwbtn_01_l" & TmpColorObj & ".gif?" & GB_STU & "') no-repeat right center;""><div style=""height:1px;width:4px;""></div></td>" & vbCrLf
				HttpL3_3 = HttpL3_3 & "						<td nowrap height=""26"" align=""center"" background=""" & HomeAliasSL & "images/mwbtn_01_c" & TmpColorObj & ".gif?" & GB_STU & """ class=""tbtn3"" style=""padding:0px 2px 0px 2px;"" onClick=""" & btn4c & """>" & btn4 & "</td>" & vbCrLf
				HttpL3_3 = HttpL3_3 & "						<td width=""5"" height=""26"" style=""background:url('" & HomeAliasSL & "images/mwbtn_01_r" & TmpColorObj & ".gif?" & GB_STU & "') no-repeat left center;""><div style=""height:1px;width:4px;""></div></td>" & vbCrLf
				HttpL3_3 = HttpL3_3 & "					</tr>" & vbCrLf
				HttpL3_3 = HttpL3_3 & "				</table>" & vbCrLf
				HttpL3_3 = HttpL3_3 & "			</td>" & vbCrLf
				HttpL3_3 = HttpL3_3 & "			<td width=""5"" height=""26"">&nbsp;</td>" & vbCrLf
			End If
			If btn5 <> "" Then
				HttpL3_3 = HttpL3_3 & "			<td width=""60"">" & vbCrLf
				HttpL3_3 = HttpL3_3 & "				<table width=""60"" border=""0"" cellpadding=""0"" cellspacing=""0"">" & vbCrLf
				HttpL3_3 = HttpL3_3 & "					<tr>" & vbCrLf
				HttpL3_3 = HttpL3_3 & "						<td width=""5"" height=""26"" style=""background:url('" & HomeAliasSL & "images/mwbtn_01_l" & TmpColorObj & ".gif?" & GB_STU & "') no-repeat right center;""><div style=""height:1px;width:4px;""></div></td>" & vbCrLf
				HttpL3_3 = HttpL3_3 & "						<td nowrap height=""26"" align=""center"" background=""" & HomeAliasSL & "images/mwbtn_01_c" & TmpColorObj & ".gif?" & GB_STU & """ class=""tbtn3"" style=""padding:0px 2px 0px 2px;"" onClick=""" & btn5c & """>" & btn5 & "</td>" & vbCrLf
				HttpL3_3 = HttpL3_3 & "						<td width=""5"" height=""26"" style=""background:url('" & HomeAliasSL & "images/mwbtn_01_r" & TmpColorObj & ".gif?" & GB_STU & "') no-repeat left center;""><div style=""height:1px;width:4px;""></div></td>" & vbCrLf
				HttpL3_3 = HttpL3_3 & "					</tr>" & vbCrLf
				HttpL3_3 = HttpL3_3 & "				</table>" & vbCrLf
				HttpL3_3 = HttpL3_3 & "			</td>" & vbCrLf
			End If
			HttpL3_3 = HttpL3_3 & "			 <td><img src=""" & HomeAliasSL & "images/spacer.gif?" & GB_STU & """ width=""1"" height=""1""></td>" & vbCrLf
			HttpL3_3 = HttpL3_3 & "		</tr>" & vbCrLf
			HttpL3_3 = HttpL3_3 & "	</table>" & vbCrLf
		End If

		HttpL3_3 = HttpL3_3 & "</div>" & vbCrLf
	End Function



	Function HttpL3 (btn1, btn1c, btn2, btn2c, btn3, btn3c, btn4, btn4c, btn5, btn5c, btn6, btn6c, btn7, btn7c, btn0, btn0c)
		HttpL3 = HttpL3 & "<div id=""L3"" style=""position:absolute; visibility: hidden; left: 0px; top: 60px;"">" & btn1 & "</div>" & vbCrLf
	End Function

	Function HttpL4 (title1, title2)
		HttpL4 = ""
		HttpL4 = HttpL4 & "<div id=""L4"" style=""position:absolute; visibility: hidden; left: 0px; top: 0px;"">"
		If title2 = "" Then
			HttpL4 = HttpL4 & title1
		ElseIf Len(title2) <= 3 Then
			HttpL4 = HttpL4 & title1 & " <" & title2 & ">"
		ElseIf GB_CSS = "EC" Then
			HttpL4 = HttpL4 & title1 & " <span class=""tx1416""><" & title2 & "></span>"
		Else
			HttpL4 = HttpL4 & title1 & " <span class=""tx1416"">&lt;" & title2 & "&gt;</span>"
		End If
		HttpL4 = HttpL4 & "<img src=""" & HomeAliasSL & "images/spacer.gif?" & GB_STU & """ width=""1"" height=""1"">" & vbCrLf
		HttpL4 = HttpL4 & "</div>" & vbCrLf
	End Function

	Function HttpL5(text1)
		HttpL5 = ""
		If text1 <> "" Then
			If GB_KaisyaMeisyo <> "" Or GB_KaisyaRyakuMeisyo <> "" Then
				If Len(text1) > 30 Then
					text1 = "<span style=""font-size:12px;"">" & text1 & "</span>"
				ElseIf Len(text1) > 25 Then
					text1 = "<span style=""font-size:13px;"">" & text1 & "</span>"
				ElseIf Len(text1) > 20 Then
					text1 = "<span style=""font-size:14px;"">" & text1 & "</span>"
				End If
			End If
			HttpL5 = HttpL5 & "<div id=""L5"" style=""position:absolute; visibility: hidden; left: 0px; top: 60px;"">" & text1 & "</div>" & vbCrLf
		Else
			HttpL5 = HttpL5 & ""
		End If
	End Function

	'/////////////////////////////////////////////////////////////////////////////////////
	'	名称:PrintHeader
	'	目的:印刷用のヘッダーを返す
	'	作成:2002/8/29 山崎
	'/////////////////////////////////////////////////////////////////////////////////////
	Function PrintHeader(F_AutoFlg, F_Title)
		PrintHeader = ""
		PrintHeader = PrintHeader & PrintHeader1(F_AutoFlg)

		PrintHeader = PrintHeader & "				<table border=""0"" cellpadding=""0"" cellspacing=""0"" width=""100%"">" & vbCrLf
		PrintHeader = PrintHeader & "					<tr>" & vbCrLf
		PrintHeader = PrintHeader & "						<td align=""center"" style=""font-family:MS Pゴシック; font-size: 32px; line-height: 34px; font-weight: bold"">" & F_Title & "</td>" & vbCrLf
'		PrintHeader = PrintHeader & "						<td align=""center""><b><font size=""5""><u>" & F_Title & "</u></font></b></td>" & vbCrLf
		PrintHeader = PrintHeader & "					</tr>" & vbCrLf
		PrintHeader = PrintHeader & "				</table>" & vbCrLf
	End Function

	'/////////////////////////////////////////////////////////////////////////////////////
	'	名称:PrintHeaderWidth
	'	目的:印刷用のヘッダーを返す
	'	作成:2002/8/29 山崎
	'/////////////////////////////////////////////////////////////////////////////////////


	Function PrintHeader1(F_AutoFlg)

		PrintHeader1 = ""
		PrintHeader1 = PrintHeader1 & PrintHeaderTop()
		If GB_ShowPrintHeader = "1" Or GB_ShowPrintHeader = "2" Then
			PrintHeader1 = PrintHeader1 & "	<table border=""0"" cellpadding=""0"" cellspacing=""0"" width=""100%"" class=""tx1416"">" & vbCrLf
			PrintHeader1 = PrintHeader1 & "		<tr>" & vbCrLf
			Dim TmpValue
			TmpValue = KaisyaMeisyo
			If Session("AdminPrintKaisyaMeisyo") <> "" Then
				TmpValue = Session("AdminPrintKaisyaMeisyo")
			End If 
			PrintHeader1 = PrintHeader1 & "			<td>" & TmpValue & "&nbsp;</td>" & vbCrLf
			If F_AutoFlg <> -1 Then
				PrintHeader1 = PrintHeader1 & "			<td width=""250"" align=""right"">" & SetDateStr(Now(), "YYYY年MM月DD日 hh時mm分") & "印刷</td>" & vbCrLf
'				PrintHeader1 = PrintHeader1 & "			<td width=""250"" align=""right"">" & "2018年6月13日 9時50分" & "印刷</td>" & vbCrLf
			End If
			PrintHeader1 = PrintHeader1 & "		</tr>" & vbCrLf
			PrintHeader1 = PrintHeader1 & "	</table>" & vbCrLf
			PrintHeader1 = PrintHeader1 & "	<div class=""tx1214""> </div>" & vbCrLf
		End If

	End Function




	'/////////////////////////////////////////////////////////////////////////////////////
	'	名称:PrintHeaderTop
	'	目的:印刷用のヘッダーの頭を返す
	'	作成:2002/9/6 山崎
	'/////////////////////////////////////////////////////////////////////////////////////
	Function PrintHeaderTop()
		PrintHeaderTop = ""
		PrintHeaderTop = PrintHeaderTop & "<table border=""0"" cellpadding=""0"" cellspacing=""0"" width=""630"">" & vbCrLf
		PrintHeaderTop = PrintHeaderTop & "	<tr>" & vbCrLf
		PrintHeaderTop = PrintHeaderTop & "		<td align=""center"">" & vbCrLf
		If GB_ShowPrintHeader = "1" Then
			PrintHeaderTop = PrintHeaderTop & "			<table border=""1"" height=""75"" cellpadding=""0"" cellspacing=""0"" style=""border-collapse: collapse"" bordercolor=""#111111"" width=""100%"" class=""tx1416"">" & vbCrLf
			PrintHeaderTop = PrintHeaderTop & "				<tr>" & vbCrLf
			PrintHeaderTop = PrintHeaderTop & "					<td colspan=""4"" align=""center"">" & AppTitle & "</td>" & vbCrLf
			PrintHeaderTop = PrintHeaderTop & "				</tr>" & vbCrLf
			PrintHeaderTop = PrintHeaderTop & "				<tr>" & vbCrLf
			PrintHeaderTop = PrintHeaderTop & "					<td width=""40%"" align=""center"">演習名称</td>" & vbCrLf
			PrintHeaderTop = PrintHeaderTop & "					<td width=""20%"" align=""center"">会社略名称</td>" & vbCrLf
			PrintHeaderTop = PrintHeaderTop & "					<td width=""20%"" align=""center"">学生番号</td>" & vbCrLf
			PrintHeaderTop = PrintHeaderTop & "					<td width=""20%"" align=""center"">氏名</td>" & vbCrLf
			PrintHeaderTop = PrintHeaderTop & "				</tr>" & vbCrLf
			PrintHeaderTop = PrintHeaderTop & "				<tr>" & vbCrLf
			Dim TmpValue1
			Dim TmpValue2
			Dim TmpValue3
			Dim TmpValue4
			If EnshuMeisyo = "運用管理システム" And EnshuCD <> "" Then	'運用管理で演習CDが存在する場合は当該演習名称を表示
				TmpValue1 = ConvEnshuMeisyo(EnshuCD)
				TmpValue2 = KaisyaRyakuMeisyo
				If ConvEnshuKubun(EnshuCD) = "P" Then						'上記条件且つ同時同業会社の場合は所有している生徒情報を表示
					TmpValue3 = ConvKaisyaGakuseiNo(EnshuCD, KaisyaCD)
					TmpValue4 = ConvGakuseiShimei(ConvKaisyaGakuseiNo(EnshuCD, KaisyaCD))
				Else
					TmpValue3 = GakuseiNo
					TmpValue4 = GakuseiShimei
				End If
			Else
				TmpValue1 = EnshuMeisyo
				TmpValue2 = KaisyaRyakuMeisyo
				TmpValue3 = GakuseiNo
				TmpValue4 = GakuseiShimei
			End If
			If Session("AdminPrintEnshuMeisyo") <> "" Then
				TmpValue1 = Session("AdminPrintEnshuMeisyo")
			End If 
			If Session("AdminPrintKaisyaRyakuMeisyo") <> "" Then
				TmpValue2 = Session("AdminPrintKaisyaRyakuMeisyo")
			End If 
			If Session("AdminPrintGakuseiNo") <> "" Then
				TmpValue3 = Session("AdminPrintGakuseiNo")
			End If 
			If Session("AdminPrintGakuseiShimei") <> "" Then
				TmpValue4 = Session("AdminPrintGakuseiShimei")
			End If 
			PrintHeaderTop = PrintHeaderTop & "					<td width=""40%"" align=""center"">" & TmpValue1 & "</td>" & vbCrLf
			PrintHeaderTop = PrintHeaderTop & "					<td width=""20%"" align=""center"">" & TmpValue2 & "</td>" & vbCrLf
			PrintHeaderTop = PrintHeaderTop & "					<td width=""20%"" align=""center"">" & TmpValue3 & "</td>" & vbCrLf
			PrintHeaderTop = PrintHeaderTop & "					<td width=""20%"" align=""center"">" & TmpValue4 & "</td>" & vbCrLf
			PrintHeaderTop = PrintHeaderTop & "				</tr>" & vbCrLf
			PrintHeaderTop = PrintHeaderTop & "			</table>" & vbCrLf
			PrintHeaderTop = PrintHeaderTop & "			<hr noshade color=""#000000"">" & vbCrLf
		End If
	End Function



	'/////////////////////////////////////////////////////////////////////////////////////
	'	名称:PrintFooter
	'	目的:印刷用のフッターを返す
	'	作成:2002/8/29 山崎
	'/////////////////////////////////////////////////////////////////////////////////////
	Function PrintFooter()
		PrintFooter = ""
			PrintFooter = PrintFooter & "		</td>" & vbCrLf
			PrintFooter = PrintFooter & "	</tr>" & vbCrLf
			PrintFooter = PrintFooter & "</table>" & vbCrLf
	End Function



	Function Spacer(Width, Height)
		Spacer = "<img src=""" & HomeAliasSL & "images/spacer.gif?" & GB_STU & """ width=""" & Width & """ height=""" & Height & """>"
	End Function


	Function HelpDesk(HelpTitle)
		HelpDesk = ""
		If HelpTitle = "" Then
			HelpDesk = ""
		Else
			HelpDesk = "<span style=""cursor:pointer;""><IMG SRC=""" & HomeAliasSL & "images/help.gif?" & GB_STU & """ onClick=""wopen('" & HomeAliasSL & "help/helpdesk.asp?HelpTitle=" & HelpTitle & "', 'HelpDesk')""></span>"
		End If
	End Function


	'使えないクエリ文字列を入れ替える(090420小野)
	Function QueryStringIrekae(Str)
		Dim TmpStr
		TmpStr = Str
		If InStr(TmpStr, "ype=受信文書") Then
			TmpStr = Replace(TmpStr, "ype=受信文書", "ype=Recv")
		End If
		If InStr(Str, "ype=発信文書") Then
			TmpStr = Replace(TmpStr, "ype=発信文書", "ype=Send")
		End If
		If InStr(Str, "ype=受信メール") Then
			TmpStr = Replace(TmpStr, "ype=受信メール", "ype=RecvMail")
		End If
		If InStr(Str, "ype=送信メール") Then
			TmpStr = Replace(TmpStr, "ype=送信メール", "ype=SendMail")
		End If
		QueryStringIrekae = TmpStr
	End Function


%>