<!-- #include virtual="/sj3web/include.asp" -->
<%
'<!--
'################################################
' 名称 ：名刺
' 作成日：2003/04/09
' 作成者：山崎
' 目的 ：名刺作成
' 概要 ：
' <<表示>>
' ・名刺
'################################################
'-->
'
'
%>
<%
main()
Sub main()
If Not(SessionCheck()) Then
Exit Sub
End If
Dim Query, Content
Query = "exec SPT名刺デザイン一覧 '" & GB_SystemCD & "','V'"
Set Content = OpenQuery(Query)
%>
<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;">
<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="275" background="/sj3web/images/prc_ttl_c.gif" class="tx1416b" style="color:#FFFFFF">名刺のデザインを選んでください。</td>
<td width="100" align="right" background="/sj3web/images/prc_ttl_c.gif">
<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="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>
<div id="Layer1" style="position:absolute; width:100%; height:100%; z-index:2; overflow: auto; visibility: visible;">
<%
Dim MeishiDesignCDA, DesignA, MeishiDesignCDB, DesignB
Do While Not(Content.BOF Or Content.EOF)
MeishiDesignCDA = ""
DesignA = ""
MeishiDesignCDB = ""
DesignB = ""
If Not(Content.BOF Or Content.EOF) Then
MeishiDesignCDA = Content.Fields("名刺デザインCD")
DesignA = Content.Fields("デザイン")
Content.MoveNext
End If
If Not(Content.BOF Or Content.EOF) Then
MeishiDesignCDB = Content.Fields("名刺デザインCD")
DesignB = Content.Fields("デザイン")
Content.MoveNext
End If
DesignA = Replace(DesignA, "<Email />", "E-mail aaaaa@aaa.aa.aa")
DesignA = Replace(DesignA, "<TEL />", "TEL 00-0000-0000")
DesignA = Replace(DesignA, "<FAX />", "FAX 00-0000-0000")
DesignA = Replace(DesignA, "<住所1 />", "○○○○○○○○○○○")
DesignA = Replace(DesignA, "<住所2 />", "○○○○○○○○")
DesignA = Replace(DesignA, "<郵便番号 />", "〒 000-0000")
DesignA = Replace(DesignA, "<氏名 />", "○ ○ ○ ○")
DesignA = Replace(DesignA, "<肩書 />", "○○○○○")
DesignA = Replace(DesignA, "<役職 />", "○○○○")
DesignA = Replace(DesignA, "<会社名称 />", "○○○○○○○○")
DesignA = Replace(DesignA, "<画像ファイル />", "/sj3web/images/spacerc.gif")
DesignA = Replace(DesignA, "<フォント区分 />", "")
DesignB = Replace(DesignB, "<Email />", "E-mail aaaaa@aaa.aa.aa")
DesignB = Replace(DesignB, "<TEL />", "TEL 00-0000-0000")
DesignB = Replace(DesignB, "<FAX />", "FAX 00-0000-0000")
DesignB = Replace(DesignB, "<住所1 />", "○○○○○○○○○○○")
DesignB = Replace(DesignB, "<住所2 />", "○○○○○○○○")
DesignB = Replace(DesignB, "<郵便番号 />", "〒 000-0000")
DesignB = Replace(DesignB, "<氏名 />", "○ ○ ○ ○")
DesignB = Replace(DesignB, "<肩書 />", "○○○○○")
DesignB = Replace(DesignB, "<役職 />", "○○○○")
DesignB = Replace(DesignB, "<会社名称 />", "○○○○○○○○")
DesignB = Replace(DesignB, "<画像ファイル />", "/sj3web/images/spacerc.gif")
DesignB = Replace(DesignB, "<フォント区分 />", "")
%>
<table width="100%" height="420" border="0" cellpadding="0" cellspacing="0">
<tr>
<td width="255" height="60" align="center">
<table width="210" border="0" cellspacing="0" cellpadding="0">
<tr valign="bottom">
<td height="30" colspan="3">タイプ<% = MeishiDesignCDA %></td>
</tr>
<tr>
<td width="100" height="30" background="/sj3web/images/mm_btn_1.gif" class="tbtn2" onClick="tblbtn('meisiv.asp?Font=G&MeishiDesignCD=<% = MeishiDesignCDA %>')"> 文字：ゴシック</td>
<td width="10" height="30"> </td>
<td width="100" height="30" background="/sj3web/images/mm_btn_1.gif" class="tbtn2" onClick="tblbtn('meisiv.asp?Font=M&MeishiDesignCD=<% = MeishiDesignCDA %>')"> 文字：明朝</td>
</tr>
</table>
</td>
<td width="255" height="60" align="center">
<table width="210" border="0" cellspacing="0" cellpadding="0">
<tr valign="bottom">
<td height="30" colspan="3">タイプ<% = MeishiDesignCDB %></td>
</tr>
<tr>
<td width="100" height="30" background="/sj3web/images/mm_btn_1.gif" class="tbtn2" onClick="tblbtn('meisiv.asp?Font=G&MeishiDesignCD=<% = MeishiDesignCDB %>')"> 文字：ゴシック</td>
<td width="10" height="30"> </td>
<td width="100" height="30" background="/sj3web/images/mm_btn_1.gif" class="tbtn2" onClick="tblbtn('meisiv.asp?Font=M&MeishiDesignCD=<% = MeishiDesignCDB %>')"> 文字：明朝</td>
</tr>
</table>
</td>
</tr>
<tr valign="top">
<td height="360" align="center">
<% = DesignA %>
</td>
<td height="360" align="center">
<% = DesignB %>
</td>
</tr>
</table>
<%
Loop
%>
</div>
</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>
</body>
<% = HtmlFooter %>
</html>
<%
End Sub
%>