
<!-- #include file="../../../../include.asp" -->

<%
'<!--
'################################################
'	名称	：保険情報設定設定
'	作成日：2002/12/09
'	作成者：重松
'	目的　：保険情報入力画面を表示する。
'	概要	：
'	 <<表示>>
'	<<入力チェック>>
'	・ＮＵＬＬチェック
'
'	修正日：
'	修正者：
'	fu_hoken.asp
'################################################
'-->

main()
Sub main()
	If Not(SessionCheck()) Then
		Exit Sub
	End If

	Dim NRflg , ErrMSG , Action

	Dim MousikomiNum	'申込番号


	Dim TorihikisakiCD,HokenkikanFrom,HokenkikanTo
	Dim SyohinCD										'商品コード
	Dim SyohinName										'商品名称
	Dim Tanka											'単価
	Dim Suryo											'数量
	Dim Kakaku											'標準価格
	Dim Kingaku											'保険対象金額
	Dim Ryoritsu										'料率
	Dim HokenRyokin										'保険料金
	Dim HSyubetsuCode									'保険種別CD
	Dim Biko											'備考
	Dim Mosikomibi

	Dim Syubetsu
	Syubetsu = Request("Syubetsu")

	Dim HokenKubun
	HokenKubun = Request("HokenKubun")

	Dim Query
	Dim Content
	Dim CContent

	NRflg = Request("nr")
	Action = Request("Action")


	MousikomiNum = Request("MousikomiNum")
	ErrMSG = Request("ErrMSG")



	If NRflg = "r" then
		MousikomiNum = Request("MousikomiNum")
		ErrMsg = Request("ErrMsg")
	End If

	If Action = 2 Then		 '修正をする場合
		'対象データＧＥＴ保険情報取得
		Query = "exec SPC保険取得 '" & GB_SystemCD & "','" & EnshuCD & "','" & KaisyaCD & "', "& MousikomiNum &""

		Set Content = OpenQuery(Query)
		If Not(Content.BOF Or Content.EOF) Then
'			KaisyaCD = Content.Fields("会社CD")
			MousikomiNum = Content.Fields("申込番号")

			if IsNull(Content.Fields("取引先CD")) then
				TorihikisakiCD=""
			else
				TorihikisakiCD=Content.Fields("取引先CD")
			end if

			if IsNull(Content.Fields("保険種別")) then
				HSyubetsuCode=""
			else
				HSyubetsuCode = Content.Fields("保険種別")
			end if

			HokenKubun = "" & Content.Fields("保険区分")

			if IsNull(Content.Fields("申込年月日")) then
			 'Mosikomibi=""
			else
				Mosikomibi = SetTimeYYYYMMDD(Content.Fields("申込年月日"))
			end if

			if IsNull(Content.Fields("保険開始年月日")) then
				 'HokenkikanFrom=""
			else
				HokenkikanFrom = SetTimeYYYYMMDD(Content.Fields("保険開始年月日"))
			end if

			if IsNull(Content.Fields("保険終了年月日")) then
				 'HokenkikanTo=""
			else
				HokenkikanTo = SetTimeYYYYMMDD(Content.Fields("保険終了年月日"))
			end if

			if IsNull(Content.Fields("商品CD")) then
				SyohinCD=""
			else
				SyohinCD = Content.Fields("商品CD")
			end if

			'標準販売単価ではなく単価を指定する方式に変更
			If IsNull(Content.Fields("単価")) Then
				If SyohinCD <> "" then
					'旧バージョン仕様
					Tanka = ConvSyohinHanbaiTanka(SyohinCD)
				Else
					Tanka = ""
				End If
			Else
				Tanka = Content.Fields("単価")
			End If
'Response.Write("[" & Tanka & "]")
'Exit Sub

			if IsNull(Content.Fields("数量")) then
				Suryo=""
			else
				Suryo = Content.Fields("数量")
			end if

			Kingaku = Content.Fields("保険対象金額")
			If "" & Kingaku = "" And "" & Tanka <> "" And "" & Suryo <> "" Then
On Error Resume Next
	Err.Clear()
				Kingaku = Tanka * Suryo
	If Err.Description <> "" Then
				Kingaku = 0
	End If
On Error Goto 0
			End If

			if IsNull(Content.Fields("料率")) then
				Ryoritsu=""
			else
				Ryoritsu = Content.Fields("料率")
			end if


			if IsNull(Content.Fields("請求金額")) then
				HokenRyokin=""
			else
				HokenRyokin = Content.Fields("請求金額")
			end if

			if IsNull(Content.Fields("備考")) then
				Biko=""
			else
				Biko = Content.Fields("備考")
			end if
		End If
	end if


	If HokenKubun = "" Then
		HokenKubun = "0"
	End If


	Dim SyubetsuLabel
	If Syubetsu <> "" Then
		Query = "exec SPV区分情報一覧 '" & GB_SystemCD & "', '保険種別'"
		Set Content = OpenQuery(Query)
		Do While Not(Content.BOF Or Content.EOF)
			If Content.Fields("区分CD") = Syubetsu Then
				SyubetsuLabel = Replace("" & Content.Fields("区分名称"), "保険", "")
				Exit Do
			End If
			Content.MoveNext
		Loop
	End If

%>


<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=shift_jis">
<meta http-equiv="Pragma" content="no-cache">
<meta http-equiv="Cache-Control" content="no-cache">
<meta http-equiv="Expires" content="-1">
<link href="../../../../binx/sj3web.css?<% = TimeUniq() %>" rel="stylesheet" type="text/css">
<title><% = AppTitle %></title>
<script language="JScript" src="../../../../include.js?<% = TimeUniq() %>"></script>
<script language="JScript" src="../../../../includesj.js?<% = TimeUniq() %>"></script>
<script language="JScript.Encode" src="../../../../include_enc.js?<% = TimeUniq() %>"></script>
<script language="JScript.Encode" src="../../../../includesj_enc.js?<% = TimeUniq() %>"></script>
<script type=""text/javascript"" src="../../../../javascript.js?<% = TimeUniq() %>"></script>
</head>
<SCRIPT LANGUAGE="JavaScript">
<!--
	HomeAlias = "<% = HomeAlias %>";
	HomeAliasSL = "<% = HomeAliasSL %>";
	ExitFlg = 2;
-->
</SCRIPT>

<body onkeydown="if(ExitFlg==2)ExitFlg=3;" onBeforeUnload="window.event.returnValue = ExitMsg(ExitFlg)" bgcolor="#FFFFFF" text="#000000" leftmargin="0" topmargin="0" margin margin>

<form OnKeyDown="FormKeyDown(this)"	method="POST" action="fu_hoken_bin.asp" name="form1" autocomplete="off">
<!--Action????-->
<input type="hidden" name="Action" value="<% = Action %>">
<input type="hidden" name="Syubetsu" value="<% = Syubetsu %>">



<%
	Response.Write(HtmlDesign(1))

	Response.Write(HttpL1(1))

	Response.Write(HttpL2("会社選択" ,"tblbtn( '/" & HomeAlias & "/user/bk/')", "運輸・倉庫・保険" ,"tblbtn( '/" & HomeAlias & "/user/bk/menu_u.asp')", "運輸倉庫保険業務" , "tblbtn( '/" & HomeAlias & "/user/bk/menu_u2.asp')", "" & SyubetsuLabel & "保険料計算", "", "", "", "", ""))

	Response.Write(HttpL3("", "", "", "", "", "", "", "", "", "", "", "", "", "", "", ""))

	Response.Write(HttpL3_1("保存", "SubmitCheck()","", "", "", "", "", "", "", ""))

	Response.Write(HttpL3_2("一覧表示", "tblbtn( 'fu_hoken_ichiran.asp?Syubetsu=" & Syubetsu & "')", "", "", "", "", "", "", "", ""))

	If Action =1 then
		Response.Write(HttpL4("" & SyubetsuLabel & "保険料計算", "入力"))
	ElseIf Action =2 then
		Response.Write(HttpL4("" & SyubetsuLabel & "保険料計算", "修正"))
	End If

%>


<div id="L0" style="position: absolute; visibility: hidden; left: 0px; top: -2000px;">
	<table	 border="0" cellpadding="0" cellspacing="0">
		<tr>
			<td align="center">
				<table	width="550" height="360" border="0" cellspacing="3" cellpadding="15" bgcolor="#ffffff" style="border: 1px solid #000000">
					<tr>
						<td align="center" background="/<% = HomeAlias %>/images/window_bk.gif"><!--薄青のチェックの背景-->
							<TABLE border="0" cellspacing="0" cellpadding="0"	width="100%">
									<TR>
										<TD align="center">
											<TABLE border="0" width="100%" class="tx1618">
												<TR>
													<TD width="124">申込番号</TD>
													<TD ><input type="text" name="MousikomiNum" value="<% = MousikomiNum %>" readonly class="tbox4_ro"></TD>
												</TR>
												<TR>
													<TD >取引先</TD>
													<TD >
													<SELECT	name="TorihikisakiCD"	class="tbox4" >
													<option value="">　　　　</option>
														<%
															Query = "exec SPM会社全部一覧 '" & GB_SystemCD & "','" & EnshuCD & "', '" & GakuseiNo & "'"
															Set Content = OpenQuery(Query)

																Do While Not(Content.BOF Or Content.EOF)
																		Dim TmpKaisyaCD
																		TmpKaisyaCD = Content.Fields("会社CD")
																		If TmpkaisyaCD <> KaisyaCD Then
																			Response.Write("<option value=""" & Content.Fields("会社CD") & """")
																			If Content.Fields("会社CD") = TorihikisakiCD Then
																				Response.Write(" selected")
																			End If
																			Response.Write(">" & Content.Fields("会社略名称") & "</option>" & vbCrLf)
																		End If
																				Content.MoveNext
																Loop
														%>
															 </SELECT>
													</TD>
												</TR>

												<TR>
													<TD >保険種別</TD>
													<TD >
<% If Syubetsu = "" Then %>
														<SELECT name="HSyubetsuCode" class="tbox4" onChange="SetKingaku()">
															<option value="">　　　　</option>
															<%
																Query = "exec SPV区分情報一覧 '" & GB_SystemCD & "', '保険種別'"
																Set Content = OpenQuery(Query)
																Do While Not(Content.BOF Or Content.EOF)
																	Dim KubunCD
																	KubunCD = Content.Fields("区分CD")
																	Response.Write("<option value=""" & Content.Fields("区分CD") & """")
																	If Content.Fields("区分CD") = HSyubetsuCode Then
																		Response.Write(" selected")
																	End If
																	Response.Write(">" & Content.Fields("区分名称") & "</option>" & vbCrLf)
																	Content.MoveNext
																Loop
															%>
														</SELECT>
<% Else '種別固定モード（130123小野） %>
														<%
															Query = "exec SPV区分情報一覧 '" & GB_SystemCD & "', '保険種別'"
															Set Content = OpenQuery(Query)
															Do While Not(Content.BOF Or Content.EOF)
																If Content.Fields("区分CD") = Syubetsu Then
																	Response.Write(Content.Fields("区分名称"))
																	Exit Do
																End If
																Content.MoveNext
															Loop
														%>
														<input type="hidden" name="HSyubetsuCode" value="<% = Syubetsu %>">
<% End If %>
													</TD>
												</TR>

												<TR>
													<TD >申込年月日</TD>
													<TD >
														 <INPUT	type="text" name="Mosikomibi" value="<% = Mosikomibi %>" onkeyup="FormStrDate(this);" onKeypress="FormStrDate(this);" onBlur="SetDate(this, 1, true)" class="tbox4" size="15"></TD>
												</TR>

												<TR>
													<TD >保険期間</TD>
													<TD >
														<TABLE border="0" cellspacing="0" cellpadding="0"	>

															<TR>
																<TD ><INPUT	type="text" name="HokenkikanFrom" value="<% = HokenkikanFrom %>" onkeyup="FormStrDate(this);" onKeypress="FormStrDate(this);" onBlur="SetDate(this, 1, false)" class="tbox4" size="15"></TD>
																<TD >&nbsp;～&nbsp;</TD>
																<TD ><INPUT	type="text" name="HokenkikanTo"	value="<% = HokenkikanTo %>" onkeyup="FormStrDate(this);" onKeypress="FormStrDate(this);" onBlur="SetDate(this, 1, false)" class="tbox4" size="15"></TD>
															</TR>
														</TABLE>
													</TD>
												</TR>

											<% If Syubetsu = "H1" Then %>
												<TR height="30">
													<TD>保険区分</TD>
													<TD>
														<SELECT	name="HokenKubun" class="tbox4" onChange="SyohinParaToggle(this.value);">
															<option value="0"<% If HokenKubun = "0" Then %> selected<% End If %>>商品</option>
															<option value="1"<% If HokenKubun = "1" Then %> selected<% End If %>>建物</option>
															<option value="2"<% If HokenKubun = "2" Then %> selected<% End If %>>備品</option>
														</select>
													</td>
												</TR>
											<% Else %>
												<input type="hidden" name="HokenKubun" value="0">
											<% End If %>
												<TR>
													<TD colspan="2">
														<span id="SyohinPara" style="height:80px;width:100%;overflow:hidden;">
														<table border="0" cellpadding="0" cellspacing="0" class="tx1618">
												<TR height="28" valign="top">
													<TD width="128">商品名</TD>
													<TD >
													<!--
													<SELECT	name="SyohinCD" class="tbox4" onChange="ConvSyohinHanbaiTanka()">
													-->
													<SELECT	name="SyohinCD" class="tbox4">
													<option value="">　　　　</option>
													<%
													Query = "exec SPM商品一覧 '" & GB_SystemCD & "','" & EnshuCD & "', '" & GB_GakuseiNo & "'"
													Set Content = OpenQuery(Query)
														Do While Not(Content.BOF Or Content.EOF)
																Response.Write("<option value=""" & Content.Fields("商品CD") & """")
																If Content.Fields("商品CD") = SyohinCD Then
																	Response.Write(" selected")
																End If
																Response.Write(">" & Content.Fields("商品名称") & "</option>" & vbCrLf)
															Content.MoveNext
														Loop
													%>
													</select>
												 </td>
												</TR>
												<TR>
													<TD >単価</TD>
														 <TD ><INPUT type="text" name="Tanka" value="<% = SetMoney(Tanka, false, false) %>" onKeyup="FormStrFloat(this,9,0);" onKeypress="FormStrFloat(this,9,0);" onBlur="FormStrFloatCutoff(this);" class="tbox5" size="20"></TD>
												</TR>

												<TR>
													<TD>商品数量</TD>
													<TD>
														<table border="0" cellpadding="0" cellspacing="0">
															<tr>
																<td>
																	<INPUT type="text" name="Suryo" value="<% = SetNumber(Suryo, false) %>" onKeyup="FormStrFloat(this,9,0);" onKeypress="FormStrFloat(this,9,0);" onBlur="FormStrFloatCutoff(this);" size="20" class="tbox5">
																</td>
																<td>
																	<TABLE BORDER="0" CELLSPACING="0" CELLPADDING="0" HEIGHT="30" onClick="SetTaishoKingaku();SetKingaku();" class="tx1618">
																		<TR>
																			<TD WIDTH="10" BACKGROUND="/<% = HomeAlias %>/images/dlogbtn_b2l.gif?<% = GB_STU %>">　</TD>
																			<TD WIDTH="124" CLASS="tbtn3w" ALIGN="CENTER" VALIGN="MIDDLE" BACKGROUND="/<% = HomeAlias %>/images/dlogbtn_b2c.gif?<% = GB_STU %>" WIDTH="100">保険対象金額計算</TD>
																			<TD WIDTH="10" BACKGROUND="/<% = HomeAlias %>/images/dlogbtn_b2r.gif?<% = GB_STU %>">　</TD>
																		</TR>
																	</TABLE>
																</td>
															</tr>
														</table>
													</TD>
												</TR>
														</span>
														</table>
													</TD>
												</TR>
												<TR>
													<TD >保険対象金額</TD>
														 <TD><INPUT type="text" name="Kingaku" value="<% = SetMoney(Kingaku, false, true) %>" onKeyup="FormStrFloat(this,10,0);" onKeypress="FormStrFloat(this,10,0);" onBlur="FormStrFloatCutoff(this);SetKingaku();" size="20" class="tbox5"></TD>
												</TR>
												<TR>
													<TD >料率</TD>
														 <TD ><INPUT type="text" name="Ryoritsu" value="<% = SetNumber(Ryoritsu, false) %>" onKeyup="FormStrFloat(this,3,3);" onKeypress="FormStrFloat(this,3,3);" onBlur="FormStrFloatCutoff(this);SetKingaku();" class="tbox5"></TD>
												</TR>
												<TR>
													<TD >保険料金</TD>
														 <TD ><INPUT type="text" name="HokenRyokin" readonly value="<%
														 	If HSyubetsuCode = "H1" Then
														 		Response.Write(SetMoney(HokenRyokin, false, false))
														 		'Response.Write(SetMoney(Ryoritsu * Suryo * Tanka / 1000, false, true))
														 	Else
														 		Response.Write(SetMoney(HokenRyokin, false, false))
														 		'Response.Write(SetMoney(Ryoritsu * Suryo * Tanka / 10000, false, true))
														 	End If
														 %>" class="tbox5_ro" size="20"></TD>
												</TR>
												<TR>
													<TD >備考</TD>
													<TD >
														<p align="left"><INPUT type="text" name="Biko" value="<% = Biko %>" size="50" MAXLENGTH="40" onBlur="FormStrLeftIME(this,40,true);" class="tbox4_ime"></p>
													</TD>
												</TR>
										</TABLE>
<!--
										　　　
										<TABLE border="0" cellspacing="0" cellpadding="0"	width="100%" class="tx1416">
											<tr>
												<td align="center">火災保険の場合</TD>
												<td align="center">運送保険の場合</TD>
											</tr>
											<tr>
												<td align="center">

													<TABLE BORDER="1" BORDERCOLOR="#000000" STYLE="border-collapse: collapse">
														<TR>
															<TD align="center">
																<TABLE	align="center" cellspacing="2" class="tx1416">
																	<TR valign="top">
																		<TD rowspan="2" valign="middle" >保険料金＝料率×</TD>
																		<TD align="center" style="border-bottom: 1px solid #000000">保険対象金額</TD>
																		<TD ></TD>
																	</TR>
																	<TR>
																		<TD align="center" >1000</TD>
																		<TD ></TD>
																	</TR>
																</TABLE>
															</TD>
														</TR>
													</TABLE>

												</TD>
												<td align="center">

													<TABLE BORDER="1" BORDERCOLOR="#000000" STYLE="border-collapse: collapse">
														<TR>
															<TD align="center">
																<TABLE	align="center" cellspacing="2" class="tx1416">
																	<TR valign="top">
																		<TD rowspan="2" valign="middle" >保険料金＝料率×</TD>
																		<TD align="center" style="border-bottom: 1px solid #000000">保険対象金額</TD>
																		<TD ></TD>
																	</TR>
																	<TR>
																		<TD align="center" >10000</TD>
																		<TD ></TD>
																	</TR>
																</TABLE>
															</TD>
														</TR>
													</TABLE>
												</TD>
											</TR>
										</TABLE>
-->
									</TD>
								</TR>
							</TABLE>
						</td>
					</tr>
				</table>
			</td>
		</tr>
	</table>
</form>
</div>
</body>


<SCRIPT LANGUAGE="JavaScript">

now = 'menu0' ;
check = 0 ;
menuflag = 0 ;


	function SyohinParaToggle(HokenKubun) {
		var element = document.getElementById("SyohinPara"); 
    	if (HokenKubun == "0") {
//			alert(HokenKubun);
			element.style.height = "80px";
			element.style.width = "100%";
		} else {
			element.style.height = "0px";
			element.style.width = "0px";
		}
	}


	function ConvSyohinHanbaiTanka()
	{
		var SyohinCD;
		SyohinCD = form1.SyohinCD.value;
	<%

		Query = "exec SPM商品一覧 '" & GB_SystemCD & "','" & EnshuCD & "', '" & GB_GakuseiNo & "'"
		Set Content = OpenQuery(Query)

		Do While Not(Content.BOF Or Content.EOF)
			Response.Write("if(SyohinCD == """ & Content.Fields("商品CD") & """)form1.Tanka.value = """ & ConvIntToMoney(Content.Fields("標準販売単価"), false, false) & """;" & vbCrLf)
			Content.MoveNext
		Loop
	%>
		return "";
	}



//################################################
//	名称：SetKingaku
//	目的：保険料金金額の値をセットする。
//################################################
	function SetKingaku() {
		var HokenRyokin;
		var Tanka, Suryo;
		var Kingaku, Ryoritsu, HokenRyokin;
		Tanka = ConvMoneyToInt(form1.Tanka.value, false, false);
		Suryo = ConvMoneyToInt(form1.Suryo.value, false, false);
		Ryoritsu = ConvMoneyToFloat(form1.Ryoritsu.value, false, false);

		//保険対象金額の自動計算を廃止 ※手入力可能にするため（130409小野）
//		if (Tanka	== "" || Suryo == "" ) {
//			Kingaku = 0;
//		} else {
//			Kingaku = Tanka * Suryo;
//		}
//		form1.Kingaku.value = ConvIntToMoney(Kingaku, false, false);
		Kingaku = ConvMoneyToInt(form1.Kingaku.value, false, false);

		if (Kingaku == "" || Ryoritsu == "" ) {
			HokenRyokin = "";
		} else if (form1.HSyubetsuCode.value == "H1") {
			HokenRyokin = ConvIntToMoney(Math.floor(Kingaku * Ryoritsu / 1000, false, false));
		} else if (form1.HSyubetsuCode.value == "H2") {
			HokenRyokin = ConvIntToMoney(Math.floor(Kingaku * Ryoritsu / 10000, false, false));
		}

		if (HokenRyokin != "ERR") {
			form1.HokenRyokin.value = HokenRyokin;
		}
	}

	//保険対象金額計算（130409小野）
	function SetTaishoKingaku() {
		var Tanka, Suryo;
		var Kingaku
		Tanka = ConvMoneyToInt(form1.Tanka.value, false, false);
		Suryo = ConvMoneyToInt(form1.Suryo.value, false, false);
		if (Tanka	== "" || Suryo == "" ) {
			Kingaku = 0;
		} else {
			if (Tanka * Suryo > "9999999999") {
				alert("単価×数量の計算結果が10桁を超えました　\n保険対象金額の計算を中止します　");
				form1.Suryo.focus();
				return false;
			}
			Kingaku = Tanka * Suryo;
		}
		form1.Kingaku.value = ConvIntToMoney(Kingaku, false, false);
	}


	function SubmitCheck() {
		var HokenkikanFrom;
		var HokenkikanTo;
		var dateNum;

		if (form1.TorihikisakiCD.value == "" ) {
			alert("取引先を入力してください　");
			form1.TorihikisakiCD.focus();
			return false;
		}


		if (form1.HSyubetsuCode.value == "") {
			alert("保険種別を入力してください　");
			form1.HSyubetsuCode.focus();
			return false;
		}

		if (form1.Mosikomibi.value == "") {
			alert("申込年月日を入力してください　");
			form1.Mosikomibi.focus();
			return false;
		}


		if (form1.HokenkikanFrom.value == "") {
			alert("保険期間の開始日を入力してください　");
			form1.HokenkikanFrom.focus();
			return false;
		}


		if (form1.HokenkikanTo.value == "") {
			alert("保険期間の終了日を入力してください　");
			form1.HokenkikanTo.focus();
			return false;
		}

		if (form1.HokenKubun.value == "0") {

			if (form1.SyohinCD.value == "") {
				alert("商品名を入力してください　");
				form1.SyohinCD.focus();
				return false;
			}

			if (form1.Tanka.value == "") {
				alert("単価を入力してください　");
				form1.Tanka.focus();
				return false;
			}


			if (form1.Suryo.value == "") {
				alert("商品数量を入力してください　");
				form1.Suryo.focus();
				return false;
			}

		}

		if (form1.Kingaku.value == "") {
			alert("保険対象金額を入力してください　");
			form1.Kingaku.focus();
			return false;
		}
		if (form1.Ryoritsu.value == "") {
			alert("料率を入力してください　");
			form1.Ryoritsu.focus();
			return false;
		}
		if (form1.HokenRyokin.value == "") {
			alert("保険料金を入力してください　");
			form1.HokenRyokin.focus();
			return false;
		}

		HokenkikanFrom = form1.HokenkikanFrom.value;
		HokenkikanTo = form1.HokenkikanTo.value;
		if (HokenkikanTo < HokenkikanFrom) {
			alert("保険期間を正しく入力してください　");
			form1.HokenkikanFrom.focus();
			return false;
		}

		SubmitReal(form1);
		return true;
	}

</script>

<SCRIPT FOR="window" EVENT="onload" LANGUAGE="JavaScript">
	SyohinParaToggle(form1.HokenKubun.value);
</SCRIPT>


<% = HtmlFooter %>
</html>

<%
End Sub
%>