<% ' ' ' %> <% 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 ) Design = Replace(Design, "", 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) End If If ImageFile = "" Then Design = Replace(Design, """ 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 %>

<% If MeishiYokogaki8MaiInsatsu = 1 Then %> <% Else %> <% End If %> <% If MeishiYokogaki8MaiInsatsu = 1 Then %> <% End If %> <% If MeishiYokogaki8MaiInsatsu = 1 Then %> <% End If %> <% If MeishiYokogaki8MaiInsatsu = 1 Then %> <% End If %> <% If MeishiYokogaki8MaiInsatsu = 1 Then %> <% End If %> <% If MeishiYokogaki8MaiInsatsu = 1 Then %> <% Else %> <% End If %> <% = Design %> <% = Design %> <% = Design %> <% = Design %> <% = Design %> <% = Design %> <% = Design %> <% = Design %> <% If MeishiYokogaki8MaiInsatsu = 1 Then %> ＊右の4枚が切れて印刷される場合は、 IEのメニューの「ファイル」-「ページ設定」で余白を調整する必要があります。 <% End If %>

<% End Sub %>