<!-- #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 %>