<!-- #include virtual="/sj3web/include.asp" -->

<%
'<!--
'################################################
'	名称	:名刺
'	作成日:2003/04/09
'	作成者:山崎
'	目的 :名刺作成
'	概要	:
'	 <<表示>>
' ・名刺
'################################################
'-->
'
'
%>

<%
main()
Sub main()
	If Not(SessionCheck()) Then
		Exit Sub
	End If

	Dim MeishiDesignCD, Font
	Dim Design
	MeishiDesignCD = Request("MeishiDesignCD")
	Font = Request("Font")

		Dim Query, Content

	Dim Email, TEL, Jyusyo1, Jyusyo2, YubinBango, Shimei, Katagaki, KaisyaMeisyo
	Dim ImageFile
	Dim Yakusyoku, FAX

	Query = "exec SPT名刺データ取得 '" & GB_SystemCD & "',null, null, '" & GakuseiNo & "', null"
	Set Content = OpenQuery(Query)
	If Not(Content.BOF Or Content.EOF) Then
		Email = Content.Fields("メールアドレス")
		TEL = Content.Fields("電話番号")
		Jyusyo1 = Content.Fields("住所1")
		Jyusyo2 = Content.Fields("住所2")
		YubinBango = Content.Fields("郵便番号")
		Shimei = Content.Fields("氏名")
		Katagaki = Content.Fields("肩書")
		KaisyaMeisyo = Content.Fields("会社名称")
		Yakusyoku = Content.Fields("役職")
		FAX = Content.Fields("FAX")
		ImageFile = Content.Fields("画像ファイル")
	Else
		Email = "E-mail aaaaa@aaa.aa.aa"
		TEL = "TEL 00-0000-0000"
		FAX = "FAX 00-0000-0000"
		Jyusyo1 = "東京都○○区○○0-00-0"
		Jyusyo2 = "△△△ビル1F"
		YubinBango = "〒000-0000"
		Shimei = "○ 山 △ 男"
		Yakusyoku = "○○○○"
		Katagaki = "○○事業部"
		KaisyaMeisyo = "○○○○株式会社"
	End If

		Design = ""

	Query = "exec SPT名刺デザイン一覧 '" & GB_SystemCD & "','H'"
	Set Content = OpenQuery(Query)
		Do While Not(Content.BOF Or Content.EOF)
		If Content.Fields("名刺デザインCD") = MeishiDesignCD Then
				MeishiDesignCD = Content.Fields("名刺デザインCD")
				Design = Content.Fields("デザイン")

			Design = Replace(Design, "<Email />", Email )
			Design = Replace(Design, "<TEL />", TEL )
			Design = Replace(Design, "<住所1 />", Jyusyo1 )
			Design = Replace(Design, "<住所2 />", Jyusyo2 )
			Design = Replace(Design, "<郵便番号 />", YubinBango )
			Design = Replace(Design, "<氏名 />", Shimei)
			Design = Replace(Design, "<肩書 />", Katagaki)
			If Not(IsNull(Yakusyoku)) Then
				Design = Replace(Design, "<役職 />", Yakusyoku)
			End If
			If Not(IsNull(FAX)) Then
				Design = Replace(Design, "<FAX />", FAX)
			End If
			Design = Replace(Design, "<会社名称 />", KaisyaMeisyo)
			If ImageFile = "" Then
				Design = Replace(Design, "<img src=""<画像ファイル />"" width=""50"" height=""50"">", "")
			Else
				Design = Replace(Design, "<画像ファイル />", ImageFile)
			End If
			If Request("Font") = "M" Then
				Design = Replace(Design, "<フォント区分 />", "m")
			Else
				Design = Replace(Design, "<フォント区分 />", "")
			End If


		End If

		Content.MoveNext
	Loop

%>
<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="/sj3web/binx/sj3web.css" rel="stylesheet" type="text/css">
<title><% = AppTitle %></title>
<script language="JScript" src="/sj3web/include.js"></script>
<script language="JScript" src="/sj3web/includesj.js"></script>
<script language="JScript.Encode" src="/sj3web/include_enc.js"></script>
<script language="JScript.Encode" src="/sj3web/includesj_enc.js"></script>
</head>
<SCRIPT LANGUAGE="JavaScript">
<!--
	ExitFlg = 1;
-->
</SCRIPT>

<body onkeydown="if(ExitFlg==2)ExitFlg=3;" onBeforeUnload="window.event.returnValue = ExitMsg(ExitFlg)" bgcolor="#8D9BCC" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<%
	Response.Write(HtmlDesign(9))

	Response.Write(HttpL1(4))

	Response.Write(HttpL2("会社選択" ,"tblbtn( '/sj3web/user/bk/')", "名刺作成", "tblbtn('/sj3web/user/manner/default.asp')", "", "", "", "", "", "", "", ""))

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

	Response.Write(HttpL3_1("", "", "", "", "", "", "", "", "", ""))

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

	Response.Write(HttpL4("" , ""))
%>

<div id="L0" style="position: absolute; visibility: hidden; left: 0px; top: -2000px;">
<form OnKeyDown="FormKeyDown(this)"	name="form1" method="POST" action="meisi_bin.asp" target="_top">
<input type="hidden" name="Font" value="<% = Font %>">
<input type="hidden" name="MeishiDesignCD" value="<% = MeishiDesignCD %>">
<input type="hidden" name="TateyokoKubun" value="H">

<table width="100%" height="100%" border="0" cellpadding="0" cellspacing="10" background="/sj3web/images/bmct_bk1.gif" style="border: 1px solid #000000">
	<tr>
		<td align="center" valign="top">
			<table width="530" height="100%" border="0" cellpadding="0" cellspacing="0" bgcolor="#6CB36B">
				<tr>
					<td>
						<table width="540" height="100%" border="0" cellpadding="0" cellspacing="0">
							<tr>
								<td height="40" align="center">
									<table width="530" height="40" border="0" cellpadding="0" cellspacing="0">
										<tr>
											<td width="135"><img src="/sj3web/images/mm_ttl.gif" width="135" height="40"></td>
											<td width="375" align="right" background="/sj3web/images/prc_ttl_c.gif">
												<table width="290" height="40" border="0" cellpadding="0" cellspacing="5">
													<tr>
														<td width="90" height="30">&nbsp;</td>
														<td width="90" height="30" align="center" background="/sj3web/images/mm_btn_2.gif" class="tbtn2" onClick="PrintoutReal()">印刷</td>
														<td width="90" height="30" align="center" background="/sj3web/images/mm_btn_2.gif" class="tbtn2" onClick="tblbtn('meisi_st.asp')">タイプ変更</td>
													</tr>
												</table>
											</td>
											<td width="20"><img src="/sj3web/images/prc_ttl_r.gif" width="20" height="40"></td>
										</tr>
									</table>
								</td>
							</tr>
							<tr>
								<td align="center">
									<table width="510" height="100%" border="0" cellpadding="0" cellspacing="0" bgcolor="#CCEECC">
										<tr>
											<td width="510" align="center">
												<% = Design	%>
											</td>
										</tr>
									</table>
								</td>
							</tr>
							<tr>
								<td height="155" align="center" valign="bottom">
									<table width="510" border="0" cellpadding="0" cellspacing="0" class="tx1214" style="border:1px solid #CCEECC">
										<tr>
											<td>
												<table width="510" border="0" cellpadding="0" cellspacing="0" class="tx1214">
													<tr>
														<td width="85" height="22" align="right">会社名称</td>
														<td width="10" height="22" align="center">:</td>
														<td height="22">
															<input name="KaisyaMeisyo" type="text" value="<% = KaisyaMeisyo %>" size="40" onBlur="SetString(this, 40, true)" >(20)
														</td>
														<td width="110" rowspan="7" valign="top">
															<table width="100" height="100%" border="0" cellpadding="0" cellspacing="0">
																<tr>
																	<td height="40">
																		<table width="100" height="40" border="0" cellpadding="0" cellspacing="5">
																			<tr>
																				<td width="90" height="30" align="center" background="/sj3web/images/mm_btn_2.gif" class="tbtn2" onClick="SubmitCheck()">データ入力</td>
																			</tr>
																		</table>
																	</td>
																</tr>
															</table>
														</td>
													</tr>
													<tr>
														<td width="85" height="22" align="right">部署</td>
														<td width="10" height="22" align="center">:</td>
														<td height="22">
															<input name="Katagaki" type="text" value="<% = Katagaki %>" size="40">(20)
														</td>
													</tr>
												</table>
												<table width="510" border="0" cellpadding="0" cellspacing="0" class="tx1214">
													<tr>
														<td width="85" height="22" align="right">役職</td>
														<td width="10" height="22" align="center">:</td>
														<td width="100" height="22">
															<input name="Yakusyoku" type="text" value="<% = Yakusyoku %>" size="10">(5)
														</td>
														<td width="30" height="22" align="right">氏名</td>
														<td width="10" height="22" align="center">:</td>
														<td height="22">
															<input name="Shimei" type="text" value="<% = Shimei %>" size="30">(20)
														</td>
													</tr>
												</table>
												<table width="510" border="0" cellpadding="0" cellspacing="0" class="tx1214">

													<tr>
														<td width="85" height="22" align="right">住所</td>
														<td width="10" height="22" align="center">:</td>
														<td rowspan="2">
															<table width="381" height="35" border="0" cellpadding="0" cellspacing="0" class="tx1214">
																<tr>
																	<td width="120" height="22">
																		<input name="YubinBango" type="text" id="YubinBango" value="<% = YubinBango %>" size="16">(10)
																	</td>
																	<td rowspan="2" valign="top">
																		<input name="Jyusyo1" type="text" id="Jyusyo1" value="<% = Jyusyo1 %>" size="40">(25)<br>
																		<input name="Jyusyo2" type="text" id="Jyusyo2" value="<% = Jyusyo2 %>" size="40">(25)

																	</td>
																</tr>
																<tr>
																	<td width="120" height="12"><img src="/sj3web/images/spacer.gif" width="10" height="10"></td>
																</tr>
															</table>
														</td>
													</tr>
													<tr>
														<td width="85" height="12" align="right"><img src="/sj3web/images/spacer.gif" width="10" height="10"></td>
														<td width="10" height="12" align="center"><img src="/sj3web/images/spacer.gif" width="10" height="10"></td>
													</tr>
												</table>
												<table width="510" border="0" cellpadding="0" cellspacing="0" class="tx1214">
													<tr>
														<td width="85" height="22" align="right">電話番号</td>
														<td width="10" height="22" align="center">:</td>
														<td width="170" height="22">
															<input name="TEL" type="text" value="<% = TEL %>" size="25">(25)
														</td>
														<td width="60" height="22" align="right">FAX番号</td>
														<td width="10" height="22" align="center">:</td>
														<td height="22">
															<input name="FAX" type="text" value="<% = FAX %>" size="25">(25)
														</td>
													</tr>
												</table>
												<table width="510" border="0" cellpadding="0" cellspacing="0" class="tx1214">
													<tr>
														<td width="85" height="22" align="right">メールアドレス</td>
														<td width="10" height="22" align="center">:</td>
														<td height="22">
															<input name="Email" type="text" value="<% = Email %>" size="50">(25)
														</td>
													</tr>
													<tr>
														<td width="85" height="22" align="right">画像ファイル</td>
														<td width="10" height="22" align="center">:</td>
														<td height="22">
															<input name="ImageFile" type="text" value="<% = ImageFile %>" size="30">
															<input name="ImageFile1" type="file" value="<% = ImageFile %>" size="1" onChange="ImageChange()" onBlur="ImageChange()" style="border-style: solid; border-color: #6CB36B; font-color: #6CB36B;background-color: #6CB36B; color: #6CB36B">

														</td>
													</tr>
												</table>
											</td>
										</tr>
									</table>
								</td>
							</tr>
							<tr>
								<td height="20" align="center" valign="top"><img src="/sj3web/images/bmct_s_dd.gif" width="530" height="20"></td>
							</tr>
						</table>
					</td>
				</tr>
			</table>


		</td>
	</tr>
</table>
</form>
</div>
<SCRIPT LANGUAGE="JavaScript">


function ImageChange()
{
	form1.ImageFile.value = form1.ImageFile1.value;
}

function SubmitCheck()
{
	SubmitReal(form1);
}


</SCRIPT>
</body>
<% = HtmlFooter %>
</html>
<%
End Sub
%>