<!-- #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"		
		Yakusyoku = "○○○○"		
		Jyusyo1 = "東京都○○区○○0-00-0"
		Jyusyo2 = "△△△ビル1F"
		YubinBango = "〒000-0000"
		Shimei = "○ 山 △ 男"
		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)
				Design = Replace(Design, "<会社名称 />", KaisyaMeisyo)
				If Not(IsNull(Yakusyoku)) Then
					Design = Replace(Design, "<役職 />", Yakusyoku)			
				End If
				If Not(IsNull(FAX)) Then
					Design = Replace(Design, "<FAX />", FAX)						
				End If				

				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>
<title>Untitled Document</title>
<meta http-equiv="Content-Type" content="text/html; charset=Shift_JIS">
<link href="/sj3web/binx/sj3web.css" rel="stylesheet" type="text/css">
</head>

<body onload="this.focus();window.print();" onkeydown="if(ExitFlg==2)ExitFlg=3;" bgcolor="#FFFFFF" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<table width="100%" height="100%" border="0" cellpadding="0" cellspacing="0">
	<tr>
		<td align="left" valign="top">
			<table height="876" border="0" cellpadding="0" cellspacing="0">
				<tr> 
					<td width="20" height="20"><img src="/sj3web/images/tombo_ul.gif" width="20" height="20"></td>
					<% If MeishiYokogaki8MaiInsatsu = 1 Then %>					
					<td height="20" colspan="2" align="center" valign="top"><img src="/sj3web/images/tombo_cc.gif" width="1" height="15"></td>
					<% Else %>
					<td height="20" align="center" valign="top"><img src="/sj3web/images/tombo_cc.gif" width="1" height="15"></td>
					<% End If %>
					<td width="20" height="20"><img src="/sj3web/images/tombo_ur.gif" width="20" height="20"></td>
				</tr>
				<tr> 
					<td width="20" align="left" valign="bottom"><img src="/sj3web/images/tombo_cc.gif" width="15" height="1"></td>
					<td width="344" height="209" align="center" valign="middle" id="spc0"><% = Design %></td>
					<% If MeishiYokogaki8MaiInsatsu = 1 Then %>
					<td width="344" height="209" align="center" valign="middle" id="spc1"><% = Design %></td>
					<% End If %>
					<td width="20" align="right" valign="bottom"><img src="/sj3web/images/tombo_cc.gif" width="15" height="1"></td>
				</tr>
				<tr> 
					<td width="20" align="left" valign="bottom"><img src="/sj3web/images/tombo_cc.gif" width="15" height="1"></td>
					<td width="344" height="209" align="center" valign="middle" id="spc2"><% = Design %></td>
					<% If MeishiYokogaki8MaiInsatsu = 1 Then %>
					<td width="344" height="209" align="center" valign="middle" id="spc3"><% = Design %></td>
					<% End If %>					
					<td width="20" align="right" valign="bottom"><img src="/sj3web/images/tombo_cc.gif" width="15" height="1"></td>
				</tr>
				<tr> 
					<td width="20" height="209" align="left" valign="bottom"><img src="/sj3web/images/tombo_cc.gif" width="15" height="1"></td>
					<td width="344" height="209" align="center" valign="middle" id="spc4"><% = Design %></td>
					<% If MeishiYokogaki8MaiInsatsu = 1 Then %>					
					<td width="344" height="209" align="center" valign="middle" id="spc5"><% = Design %></td>
					<% End If %>					
					<td width="20" height="209" align="right" valign="bottom"><img src="/sj3web/images/tombo_cc.gif" width="15" height="1"></td>
				</tr>
				<tr> 
					<td width="20" height="209" align="left" valign="bottom"><img src="/sj3web/images/tombo_cc.gif" width="15" height="1"></td>
					<td width="344" height="209" align="center" valign="middle" id="spc6"><% = Design %></td>
					<% If MeishiYokogaki8MaiInsatsu = 1 Then %>
					<td width="344" height="209" align="center" valign="middle" id="spc7"><% = Design %></td>
					<% End If %>					
					<td width="20" height="209" align="right" valign="bottom"><img src="/sj3web/images/tombo_cc.gif" width="15" height="1"></td>
				</tr>
				<tr> 
					<td width="20" height="20"><img src="/sj3web/images/tombo_dl.gif" width="20" height="20"></td>
					<% If MeishiYokogaki8MaiInsatsu = 1 Then %>					
					<td height="20" colspan="2" align="center" valign="bottom"><img src="/sj3web/images/tombo_cc.gif" width="1" height="15"></td>
					<% Else %>
					<td height="20" align="center" valign="bottom"><img src="/sj3web/images/tombo_cc.gif" width="1" height="15"></td>					
					<% End If %>
					<td width="20" height="20"><img src="/sj3web/images/tombo_dr.gif" width="20" height="20"></td>
				</tr>
			</table>
			<% If MeishiYokogaki8MaiInsatsu = 1 Then %>
			<br>
            <font size="2">
			*右の4枚が切れて印刷される場合は、<br>IEのメニューの「ファイル」-「ページ設定」で余白を調整する必要があります。</font>
			<% End If %>
		</td>
	</tr>
</table>
</body>

</html>
<% 
End Sub
%>