<!-- #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">&nbsp;</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">&nbsp;</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
%>