<!-- #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 = "△△△ビル１F"
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
%>