<% ' ' ' %> <% 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" Jyusyo1 = "東京都○○区○○0-00-0" Jyusyo2 = "△△△ビル１F" YubinBango = "〒000-0000" Shimei = "○ 山　△ 男" Yakusyoku = "○○○○" 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) If Not(IsNull(Yakusyoku)) Then Design = Replace(Design, "<役職 />", Yakusyoku) End If If Not(IsNull(FAX)) Then Design = Replace(Design, "", FAX) End If Design = Replace(Design, "<会社名称 />", KaisyaMeisyo) 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 %> <% = AppTitle %> <% 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("" , "")) %> <% = HtmlFooter %> <% End Sub %>